<?php
date_default_timezone_set('America/La_Paz');
setlocale(LC_CTYPE, "es_ES");
setlocale(LC_ALL, 'esp');
  session_start();
  $ruta="../../../../";
  include_once($ruta."class/dominio.php");
  $dominio=new dominio;
  include_once($ruta."class/vadmejecutivo.php");
  $vadmejecutivo=new vadmejecutivo;
  include_once($ruta."class/individual.php");
  $individual=new individual;
  include_once($ruta."class/ciclo.php");
  $ciclo=new ciclo;
   include_once($ruta."class/individualcredito.php");
  $individualcredito=new individualcredito;
  include_once($ruta."class/credito.php");
  $credito=new credito;
  include_once($ruta."class/creditodetalle.php");
  $creditodetalle=new creditodetalle;
  include_once($ruta."class/personagrupo.php");
  $personagrupo=new personagrupo;
  include_once($ruta."class/persona.php");
  $persona=new persona;
  include_once($ruta."class/tipobanca.php");
  $tipobanca=new tipobanca;
  include_once($ruta."class/miempresa.php");
  $miempresa=new miempresa;
  include_once($ruta."class/usuario.php");
  $usuario=new usuario;
  include_once($ruta."funciones/funciones.php");
  require_once($ruta.'recursos/pdf/tcpdf/tcpdf.php');
  include($ruta."recursos/qr/qrlib.php");
  /******************    SEGURIDAD *************/
  extract($_GET);
  //********* SEGURIDAD GET *************/
  $valor=dcUrl($lblcode);
  $cred=$individualcredito->muestra($valor);
  $gr=$individual->muestra($cred['idindividual']);
  $rutaImg=$ruta."imagenes/logo.png";
  $demp=$miempresa->muestra(1);
  $dus=$usuario->muestra($cred["usuariocreacion"]);
  $tba=$tipobanca->muestra($cred['idtipobanca']);
  $ddom=$dominio->muestra($cred['frecuenciapago']);
  $cuotacobrar=$cred['cuota']+1;
  $per=$persona->muestra($gr['idpersona']);
// create new PDF document
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
//$pdf->SetPrintHeader(false);
$pdf->setHeaderData('',0,'','',array(0,0,0), array(255,255,255) );  
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('SIDE');
$pdf->SetTitle('CIERRE FORZADO');
$pdf->SetSubject('CIERRE FORZADO');
$pdf->SetKeywords('CIERRE FORZADO');


// set header and footer fonts
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));

// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);

// set margins
//$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
//$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
//$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);

// set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);

// set image scale factor

// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__).'/lang/es.php')) {
    require_once(dirname(__FILE__).'/lang/es.php');
    $pdf->setLanguageArray($l);
}
// ---------------------------------------------------------
// set default font subsetting mode
$pdf->setFontSubsetting(true);
$fechaHoy=date("Y-m-d");
$hora=date("H:i");

// Set font
// dejavusans is a UTF-8 Unicode font, if you only need to
// print standard ASCII chars, you can use core fonts like
// helvetica or times to reduce file size.
//$pdf->SetFont('dejavusans', '', 14, '', true);
$pdf->SetFont('helvetica', '', 7);
$pdf->AddPage('L','');
// Add a page
// This method has several options, check the source code documentation for more information.
setlocale(LC_ALL, 'es_ES').': ';
// Set some content to print
$html=' 
<style>
.tituloFactura{
  font-size:12px;
  font-weight: bold;
}
.tituloCenda{
  color:red;
}
.letras{
  font-size:7px;
}
.letras2{
  font-size:18px;
}
</style>
<table width="100%"  align="center">
          <tr>
            <td class="letras">
              <center>
                <img width="150px;" src="'.$rutaImg.'" ><br>
                <b>'.$demp['nombre'].'</b><br>
                ';
                $html=$html.'
                LA PAZ - BOLIVIA
              </center>
            </td>
            <td><br><br><br>
            <table align="center"><tr>
              <td>
                <div class="tituloFactura">
                  CIERRE FORZADO
                </div>
                </td>
              </tr>
            </table>
            </td>
            <td><br><br>
            <table border="1">
              <tr>
                <td>
                  <table class="letras" cellpadding="2">
                    <tr>
                      <td align="right">
                        FECHA:
                      </td>
                      <td align="left">
                        <b>'.$fechaHoy.'</b>
                      </td>
                    </tr>
                    <tr>
                      <td align="right">
                        HORA:
                      </td>
                      <td align="left">
                        <b>'.$hora.'</b>
                      </td>
                    </tr>
                    <tr>
                      <td align="right">
                        USUARIO:
                      </td>
                      <td align="left">
                        <b>'.$dus['usuario'].'</b>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>                     
            </td>
          </tr>
        </table';
        $pdf->SetFont('helvetica', '', 7);
  $pdf->writeHTMLCell(0, 0, '', '', $html, 0, 1, 0, true, '', true);
  $canTCred=$credito->mostrarTodo("idgrupocredito=".$valor." and tipocredito=1");
$html='
  <style>
    .tituloCenda{
      text-align:center;
      font-weight: bold;
      font-size:10px;
    }
    .sMoneda{
      text-align: right;
    }
    .scenter{
      text-align: center;
    }
    .sfila{
      border: solid 1px #ddd;
    }
    .letras{
      font-size:6px;
      text-align: center;
    }
    .letras4{
      font-size:8px;
    }
    .cabeceraCentro{
      padding: 1px;
      border-top: solid 1px #ddd;
      border-bottom: solid 1px #ddd;
      text-align:center;
    }
    .textocentro{
      text-align:center;
    }
    .cabecera2{
      border: solid 1px white;
      font-weight: bold;
    }
    .small{
      font-size:8px;
    }
  </style>
  <table class="cabecera3" width="100%" style="font-size:8px;">
  <tr>
      <td width="30%"><b>Socio(a): </b>'.$per['nombre']." ".$per['paterno']." ".$per['materno'].'</td>
      <td width="20%"><b>Codigo: </b>'.$cred['idindividualcredito'].'</td>
      <td width="25%"><b>Fecha: </b>'.$cred['fechaproximo'].'</td>
      <td width="25%"><b>Fecha Ultima Reunión : </b>'.$cred['fechaultimo'].'</td>
    </tr>
    <tr>
    <td ><b>Carnet: </b>'.$per['carnet'].$per['expedido'].'</td>
      
      <td><b>Ciclo: </b> '.$gr['idciclo'].'</td>
      <td><b>Zona: </b>'.$gr['lugarreunion'].'</td>
      <td><b>Fecha Apertura: </b>'.$cred['fechadesembolso'].'</td>
      
    </tr>
    
    <tr>
      <td><b>Lapso : </b>'.$ddom['nombre'].'</td>
      <td><b>Cuotas: </b>'.$cuotacobrar.'/'.$cred['nrocuotas'].'</td>      
      <td><b>Tipo Banca: </b>'.$tba['nombre'].'</td>
       <td><b>Fecha Cierre: </b>'.$cred['fechacierre'].'</td>
    </tr>
    <tr>
      
     
      
    </tr>
  </table><br><br>
<table border="0" cellpadding="2" width="100%">
  <tr style="background-color:#dddddd;">
    <td class="cabecera2 textocentro" width="5%"></td>
    <td class="cabecera2 textocentro" width="10%">K</td>
    <td class="cabecera2 textocentro" width="10%">(K+i)</td>
    <td class="cabecera2 textocentro" width="5%">SEGURO</td>
    <td class="cabecera2 textocentro" width="10%">TOTAL <br>CANCELADO</td>
    <td class="cabecera2 textocentro" width="10%">CUOTAS <br>FALTANTES</td>
    <td class="cabecera2 textocentro" width="10%">CIERRE <br>FORZADO</td>
    <td class="cabecera2 textocentro" width="5%">AHORRO <br>INICIAL</td>
    <td class="cabecera2 textocentro" width="5%">AHORRO VOLUNT.</td>
    <td class="cabecera2 textocentro" width="10%">TOTAL</td>
    <td class="cabecera2 textocentro" width="20%">FIRMA DE COFORMIDAD<br> SOCIO(A)</td>
  </tr>
  ';
  $pdf->SetFont('helvetica', '', 7);
  $fechaActual="";
  $nro=1;
  $totalCapital=0;
  $totalInteresK=0;
  $totalCreditoInt=0;
  $totalCancelado=0;
  $totalFaltante=0;
  $totalFondoGara=0;
  $totalcuotaAcum=0;
  $totaldepVol=0;
  $totalAjInt=0;
  $totalCCH=0;
  $totalInteresDevCI=0;
  $totalCierreForz=0;
  $totalTotal=0;
  foreach($credito->mostrarTodo("idgrupocredito=".$valor." and tipocredito=1") as $f) {
    //$dper=$persona->muestra($f['idpersona']);
      $cuotaPago=$f['cuotas'];
      $tba=$tipobanca->muestra($f['idtipobanca']);

      $montoCAM=$f['montoOT']/$f['cuotas'];
      /***************** INTERES  **********************************************/
        $dcount=$dominio->muestra($f['idfrecuenciapago']);
        $mesesPlazo=$f['cuotas']/$dcount['codigo'];
        $interesTotal=($f['montoOT']*($f['interes']/100)*$mesesPlazo);
        $interesCuota=$interesTotal/$f['cuotas'];
        $interesCuota=round($interesCuota, 2);
      /*************************************************************************/
      // CUOTA ACUMULADA
      $gaTotal=$f['montoOT']*($tba['gastosadmin']/100);
      $cuotaAcumulada=$gaTotal/$f['cuotas'];
      /****************************************************************/
      //SEGURO
      $seguroTotal=$f['montoOT']*($f['seguro']/100);//
            //lo que pago hasta el momento
      $seguro=$f['montoOT']*($f['seguro']/100);
      $seguro=$seguro/$f['cuotas'];
      $seguro=round($seguro, 2);
      /*******************************************************/
      //FONDO DE GARANTIA
      $fondoGarantia=$f['montoOT']*($f['fgarantia']/100);
      /*******************************************************/

      // CAPITAL ADEUDADO A PAGAR *******************************************************/
      // Capital pagado = MontoOT-saldo
      $capitalPagado=$f['montoOT']-$f['saldo'];
      $pagoACapital=$montoCAM*$cuotaPago;
      $CapitalAPagar=$pagoACapital-$capitalPagado;
      /*********************************************************************************/
      // INETERES ADEUDADO *************************************************************/
      $interesPago=$interesCuota*$cuotaPago;
      $interesAPagar=$interesPago-$f['interesPagado'];
      /*********************************************************************************/
      // CUOTA ACUMULADA ADEUDADA
      $cuotaAcumPago=$cuotaAcumulada*$cuotaPago;
      $cuotaAcumAPagar=$cuotaAcumPago-$f['cuotaAcumulada'];
      $cuotaAcumAPagar=round($cuotaAcumAPagar, 2);
      /*********************************************************************************/
      // SEGURO ADEUDADO ***************************************************************/
      $seguroPago=$seguro*$cuotaPago;
      $seguroAPagar=$seguroPago-$f['seguroPagado'];
      /*********************************************************************************/

    $totalAPagar=$CapitalAPagar+$interesAPagar+$cuotaAcumAPagar+$seguroAPagar;
    $totalAPagar=round($totalAPagar, 2);
    $totalPagado=$capitalPagado+$f['interesPagado']+$f['cuotaAcumulada']+$f['seguroPagado'];

    $totalEgresos=$fondoGarantia+$cuotaAcumPago+$f['saldoahorro']+$f['saldoCCH']+$f['interesDevCI'];


    //************* TOTALES **********/
    $totalCapital=$f['montoOT']+$totalCapital;
    $totalInteresK=$f['montoOT']+$interesTotal+$totalInteresK;
    $totalCreditoInt=$f['saldoCI']+$totalCreditoInt;//
    $totalCancelado=$totalCancelado+$totalPagado;
    $totalFaltante=$totalFaltante+$totalAPagar;
    $totalFondoGara=$totalFondoGara+$fondoGarantia;
    $totalcuotaAcum=$totalcuotaAcum+$cuotaAcumPago;
    $totaldepVol=$totaldepVol+$f['saldoahorro'];
    $totalTotal=$totalEgresos+$totalTotal;
    $totalCCH=$totalCCH+$f['saldoCCH'];
    $totalInteresDevCI=$totalInteresDevCI+$f['interesDevCI'];
    $kinteres=$f['montoOT']+$interesTotal;
    $cierreForzado=number_format($fondoGarantia, 2, '.', '')+number_format($totalPagado, 2, '.', '')+$f['saldoahorro']+$f['saldoCCH']+$f['interesDevCI']-$kinteres-$f['saldoCI']-number_format($seguroTotal, 2, '.', '');
    $totalCierreForz=$totalCierreForz+$cierreForzado;
    $html=$html.'

       <tr>
        <td class="sfila textocentro"><br>&nbsp;<br></td>
        <td class="sfila textocentro">'.number_format($f['montoOT'], 2, '.', '').'</td>
        <td class="sfila textocentro">'.number_format($kinteres, 2, '.', '').'</td>
        <td class="sfila textocentro">'.number_format($seguroTotal, 2, '.', '').'</td>
        <td class="sfila textocentro">'.number_format($totalPagado, 2, '.', '').'</td>
       
        <td class="sfila textocentro">'.number_format($totalAPagar, 2, '.', '').'</td>
        <td style="background-color:#dddddd;border: solid 1px white;" class="sfila textocentro">'.number_format($cierreForzado, 2, '.', '').'</td>
        <td class="sfila textocentro">'.number_format($fondoGarantia, 2, '.', '').'</td>
        <td class="sfila textocentro">'.number_format($f['saldoahorro'], 2, '.', '').'</td>
        <td style="background-color:#dddddd;border: solid 1px white;" class="sfila textocentro">'.number_format($totalEgresos, 2, '.', '').'</td>
        <td class="sfila textocentro"></td>
      </tr>
       ';
      $nro++;
      
  }
  $totlaConteo=$totalFondoGara+$totalcuotaAcum+$totaldepVol+$totalCCH+$totalInteresDevCI;
  $comprovacion=number_format($totalCreditoInt, 2, '.', '')+number_format($totalcuotaAcum, 2, '.', '')+number_format($totalCCH, 2, '.', '')+number_format($totalInteresDevCI, 2, '.', '');
  $html=$html.'
  <tr style="background-color:#dddddd;">
    <td class="cabecera2 textocentro"> TOTALES </td>
    <td class="cabecera2 textocentro">'.number_format($totalCapital, 2, '.', '').'</td>
    <td class="cabecera2 textocentro">'.number_format($totalInteresK, 2, '.', '').'</td>
    <td class="cabecera2 textocentro">'.number_format($seguroTotal, 2, '.', '').'</td>
    <td class="cabecera2 textocentro">'.number_format($totalCancelado, 2, '.', '').'</td>
    <td class="cabecera2 textocentro">'.number_format($totalFaltante, 2, '.', '').' </td>
    <td class="cabecera2 textocentro">'.number_format($totalCierreForz, 2, '.', '').' </td>
    <td class="cabecera2 textocentro">'.number_format($totalFondoGara, 2, '.', '').' </td>
    
    <td class="cabecera2 textocentro">'.number_format($totaldepVol, 2, '.', '').'</td>
    <td class="cabecera2 textocentro">'.number_format($totalTotal, 2, '.', '').'</td>
    <td class="cabecera2 textocentro"></td>
  </tr>
 </table><br><br>';
 $html=$html.'
 <table class="cabecera3" width="100%">
    <tr>
      <td width="50%">

        <table style="background-color:#dddddd;" class="cabecera3" width="100%">
          <tr>
            <td class="cabecera2 textocentro" width="30%">INGRESOS</td>
            <td class="cabecera2 textocentro" width="20%">MONTO</td>
            <td class="cabecera2 textocentro" width="30%">EGRESOS</td>
            <td class="cabecera2 textocentro" width="20%">MONTO</td>
          </tr>
          <tr>
            <td class="sfila textocentro">CUOTAS</td>
            <td class="sfila textocentro">'.number_format($totalFaltante, 2, '.', '').' </td>
            <td class="sfila textocentro">AHORRO INICIAL</td>
            <td class="sfila textocentro">'.number_format($totalFondoGara, 2, '.', '').'</td>
          </tr>
          <tr>
            <td class="sfila textocentro">OTROS</td>
            <td class="sfila textocentro">'.number_format(0, 2, '.', '').' </td>
            <td class="sfila textocentro">AHORRO VOLUNTARIOS</td>
            <td class="sfila textocentro">'.number_format($totaldepVol, 2, '.', '').'</td>
          </tr>
          <tr>
            <td class="sfila textocentro"></td>
            <td class="sfila textocentro"> </td>
           <td class="sfila textocentro"></td>
            <td class="sfila textocentro"> </td>
          </tr>
          <tr>
            <td class="cabecera2 textocentro">TOTAL</td>
            <td class="cabecera2 textocentro">'.number_format($totalFaltante+$totalCreditoInt, 2, '.', '').' </td>
            <td class="cabecera2 textocentro">TOTAL</td>
            <td class="cabecera2 textocentro">'.number_format($totlaConteo, 2, '.', '').'</td>
          </tr>

        </table>
        <table style="background-color:#dddddd; font-size:8px;" class="cabecera3" width="100%">
          <tr>
            <td class="cabecera2 textocentro" width="100%">
            ';
            if ($totalFaltante+$totalCreditoInt-$totlaConteo<0) {
          $enCOntra=$totalFaltante+$totalCreditoInt-$totlaConteo;
          $enCOntra=$enCOntra*-1;
          $html=$html.'&nbsp;<br><b style="color:red;">EN CONTRA:</b> '.$enCOntra.'<br>';
        }else{
          $aFavor=$totalFaltante+$totalCreditoInt-$totlaConteo;
          $html=$html.'&nbsp;<br><b style="color:green;">A FAVOR:</b> '.$aFavor.'<br>';
        }
            $html=$html.'
            </td>
          </tr>

        </table>
        ';
        
        if ($comprovacion>0) 
        {
         $compcoor="color:red";
        }
        $html=$html.'
      </td>
      <td width="50%" style="'.$compcoor.'">OBSERVACIONES<br> <br> 
      ______________________________________________________________________________________________<br><br> 
      ______________________________________________________________________________________________<br> <br>
      ______________________________________________________________________________________________<br> <br>
      ______________________________________________________________________________________________<br> <br>
      </td>
    </tr>
  </table>
  <br><br><br><br><br><br>
  <table align="center">
    <tr>
      <td>
        
          <br><br><br>
          <center>
          
        </center>
      </td>
      <td>
        
          <br><br><br>
          <center>
         
        </center>
      </td>
      <td>
        
          <br><br><br>
          <center>
          
        </center>
      </td>
    </tr>
  </table>
 ';
// Print text using writeHTMLCell()
 $pdf->SetFont('helvetica', '', 7);
$pdf->writeHTMLCell(0, 0, '', '', $html, 0, 1, 0, true, '', true);
// ---------------------------------------------------------
// Close and output PDF document
// This method has several options, check the source code documentation for more information. "D"
$pdf->Output('historial.pdf', 'I');
?>