<?php
  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/grupo.php");
  $grupo=new grupo;
  include_once($ruta."class/ciclo.php");
  $ciclo=new ciclo;
   include_once($ruta."class/grupocredito.php");
  $grupocredito=new grupocredito;
  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=$grupocredito->muestra($valor);
  $gr=$grupo->muestra($cred['idgrupo']);
  $rutaImg=$ruta."imagenes/logo.png";
  $demp=$miempresa->muestra(1);
  $dus=$usuario->muestra($cred["usuariocreacion"]);
  $tba=$tipobanca->muestra($cred['idtipobanca']);
  $ddom=$dominio->muestra($cred['frecuenciapago']);
  $eje=$vadmejecutivo->muestra($gr['idadmejecutivo']);
  $cuotacobrar=$cred['cuota']+1;

// 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('JHULIOS');
$pdf->SetTitle('PLANILLA DE COBRO');
$pdf->SetSubject('PLANILLA DE COBRO');
$pdf->SetKeywords('PLANILLA DE COBRO');


// 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");

// 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', '', 8);
$pdf->AddPage('','A4');
// 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;
}
.tituloCenda{
  color:red;
}
.letras{
  font-size:7px;
}
.letras2{
  font-size:18px;
}
.cabeceraCentro{
      border: solid 1px #aeaeae;
      text-align:center;
    }
</style>
  <table width="100%"  align="center">
    <tr >
            <td style="width:30%;" class="letras">
              <center>
                <img style="width:240px;" src="'.$rutaImg.'" ><br>
              </center>
            </td>
            <td style="width:30%;">
              <table class="cabeceraCentro" width="100%" align="center">
              <tr>
                <td>
                  <h1>A</h1>
                </td>
                <td>
                  <div class="tituloFactura">
                    PLANILLA <h3> REUNIÓN '.$cuotacobrar.'</h3>
                  </div>
                </td>
              </tr>
              </table>
            </td>
            <td style="width:30%;">
              <table border="0">
                <tr>
                  <td>
                    <table class="letras" cellpadding="2">
                      <tr>
                        <td align="right">
                          FECHA:
                        </td>
                        <td align="left">
                          <b>'.$cred['fechaproximo'].'</b>
                        </td>
                      </tr>
                      <tr>
                        <td align="right">
                          HORA:
                        </td>
                        <td align="left">
                          <b>'.$cred['horacreacion'].'</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=0");
$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  style="width:100%; font-size:9px;">
    <tr>
      <td width="25%"><b>Ult. Reunión : </b>'.$cred['fechaultimo'].'</td>
      <td width="25%"><b>Fecha: </b>'.$cred['fechaproximo'].'</td>
      <td width="25%"><b>Fecha Apertura: </b>'.$cred['fechadesembolso'].'</td>
      <td width="25%"><b>Fecha Cierre: </b>'.$cred['fechacierre'].'</td>
    </tr>
    <tr>
      <td><b>Grupo: </b>'.$gr['nombre'].'</td>
      <td><b>Codigo: </b>'.$cred['idgrupocredito'].'</td>
      <td><b>Zona: </b>'.$gr['lugarreunion'].'</td>
      <td><b>Ciclo: </b> '.$gr['idciclo'].'</td>
    </tr>
    <tr>
      <td><b>Cuotas: </b>'.$cuotacobrar.'/'.$cred['nrocuotas'].'</td>
      <td><b>Lapso : </b>'.$ddom['short'].' días</td>
      <td><b>Tipo Banca: </b><br>'.$tba['nombre'].'</td>
      <td><b>N° Integrantes : </b>'.count($canTCred).'</td>
    </tr>
  </table>

  <br><br>
<table border="1" cellpadding="2" width="504">
  <thead>
    <tr style="background-color:#efefef; text-align:center;">
      <th width="261">DATOS PERSONALES PERSONA(A)</th>
      <th width="77">CUOTAS</th>
      <th width="180">PRESTAMO INTERNO</th>
    </tr>
    <tr style="background-color:#efefef; text-align:center;">
      <th width="20">NRO</th>
      <th width="40">Carnet</th>
      <th width="100">Nombre</th>
      <th width="35">Capital</th>
      <th width="33">Multa</th>
      <th width="33">Dep. Vol.</th>

      <th width="32">Vigente</th>
      <th width="45">Mora</th>

      
      <th width="35">Monto Ot.</th>
      <th width="30">Devol</th>
      <th width="35">Saldo</th>
      <th width="35">Int. Pag.</th>
      <th width="45">Fecha Dev.</th>
    </tr>
  </thead>
  <tbody>
  ';
  $nro=1;
        $totalPago=0;
          $totalCI=0;
          $totalSaldoCI=0;
          $totalinteresCI=0;
          $saldoAnt=0;
          $cuotasCobradas=0;
          $depositVol=0;
          $multas=0;
          $devInterno=0;
          $devinternos=0;
          $intIntCobrado=0;
          $credIntOtorg=0;
          $montoPagadoInt=0;
          $totalFG=0;
          $totalk=0;
          $totalMontoCuota=0;
        foreach($credito->mostrarTodo("idgrupocredito=".$valor." and tipocredito=0") as $f) {
          $dper=$persona->muestra($f['idpersona']);
            $cuotaPago=$f['cuotaspagadas']+1;
            $tba=$tipobanca->muestra($f['idtipobanca']);

            $montoCAM=$f['montoOT']/$f['cuotas'];
            /***************** INTERES  **********************************************/
            //meses plazo
                    $domF=$dominio->muestra($f['idfrecuenciapago']);
                    $mesesPlazo=$f['cuotas']/$domF['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
            $seguro=$f['montoOT']*($f['seguro']/100);
            $seguro=$seguro/$f['cuotas'];
                    $seguro=round($seguro, 2);
            /*******************************************************/

            // 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'];
            /*********************************************************************************/
            // SEGURO ADEUDADO ***************************************************************/
            $seguroPago=$seguro*$cuotaPago;
            $seguroAPagar=$seguroPago-$f['seguroPagado'];
            /*********************************************************************************/

            $totalAPagar=$CapitalAPagar+$interesAPagar+$cuotaAcumAPagar+$seguroAPagar;
            $totalAPagar=round($totalAPagar, 2);
            $totalPago=$totalAPagar+$totalPago;

            $totalCI=$f['montoCI']+$totalCI;
            $totalSaldoCI=$f['saldoCI']+$totalSaldoCI;
            $totalinteresCI=$f['interesCI']+$totalinteresCI;

            $mora=$totalAPagar-$f['montocuota'];

            /******************************************   SALDO ANTERIOR  ******************************/
            /*******************************************************************************************/
            $fgarantia=$f['montoOT']*($f['fgarantia']/100);
            $totalFG=$totalFG+$fgarantia;
            $cuotasCobradas=$cuotasCobradas+$capitalPagado+$f['interesPagado']+$f['seguroPagado']+$f['cuotaAcumulada'];
            $depositVol=$depositVol+$f['saldoahorro'];
            $multas=$multas+$f['saldoMultas'];
            $montoPagadoInt=$f['montoCI']-$f['saldoCI'];
            $devInterno=$devInterno+$montoPagadoInt;//
            $intIntCobrado=$intIntCobrado+$f['interesDevCI'];//
            $credIntOtorg=$credIntOtorg+$f['montoCI'];
            /**********************************************************************************/

            /*
            $valcredito=array(
              "montocuota"=>"'$totalAPagar'"
            );
            $credito->actualizar($valcredito,$f['idcredito']);
            */
            $montoCI="";
            if ($f['montoCI']>0) {
              $montoCI=number_format($f['montoCI'], 2, '.', '');
            }
            $saldoCI="";
            if ($f['saldoCI']>0) {
              $saldoCI=number_format($f['saldoCI'], 2, '.', '');
            }
            $interesCI="";
            if ($f['interesCI']>0) {
              $interesCI=number_format($f['interesCI'], 2, '.', '');
            }
            $totalk=$totalk+$f['montoOT'];

            $totalMontoCuota=$totalMontoCuota+$f['montocuota'];
          $html = $html.'
            <tr>
              <td width="20">'.$nro.'</td>
              <td width="40">'.$dper['carnet'].$dper['expedido'].'</td>
              <td width="100">'.$dper['nombre']." ".$dper['paterno']." ".$dper['materno'].'</td>
              <td width="35">'.number_format($f['montoOT'], 2, '.', '').'</td>
              <td width="33"></td>
              <td width="33"></td>

              <td width="32">'.number_format($f['montocuota'], 2, '.', '').'</td>
              <td width="45">'.number_format($mora, 2, '.', '').'/____</td>

              <td width="35"><b>('.$f['cantidadCI'].')</b>'.$montoCI.'</td>
              <td width="30"></td>
              <td width="35">'.$saldoCI.'</td>
              <td width="35">'.$interesCI.'</td>
              <td width="45">'.$f['fechaVenceCI'].'</td>
            </tr>
          ';
          $nro++;
        }
        $saldoAnt=$totalFG+$cuotasCobradas+$depositVol+$multas+$devInterno+$intIntCobrado-$credIntOtorg;
$formula="";
  $html=$html.'
  </tbody>
      <tfoot>
        <tr>
          <td colspan="3"><b>Saldo Anterior</b><br> Ingresos: '.number_format($saldoAnt, 2, '.', '').'</td>
          <td><b>'.number_format($totalk, 2, '.', '').'</b></td>
          <td>___</td>
          <td>___</td>
          <td>'.number_format($totalMontoCuota, 2, '.', '').'</td>
          <td></td>
          <td>Por recibo<br>&nbsp;</td>
          <td></td>
          <td>'.number_format($totalSaldoCI, 2, '.', '').'</td>
          <td></td>
          <td>Total Ingresos<br>&nbsp;</td>
        </tr>
        <tr>
          <td colspan="3">'.$formula.'</td>
          <td colspan="5">Recuperación <br>Egresos</td>
          <td>Nro. recibo<br>&nbsp;</td>
          <td>___</td>
          <td></td>
          <td>___</td>
          <td>Total Egresos<br>&nbsp;</td>
        </tr>
        <tr>
          <td colspan="10">Observaciones:</td>
          <td colspan="2">Total Efectivo<br>&nbsp;</td>
          <td>Total Saldo<br>&nbsp;</td>
        </tr>
      </tfoot>
 </table><br><br><br>
 <br><br><br><br><br><br>
 <table style="width:100%; font-size:10px; text-align:center;">
      <tr>
        <td>_______________________<br>Presidente(ta)</td>
        <td>_______________________<br>Tesorero(a)</td>
        <td>_______________________<br>Secretario(a)</td>
      </tr>
      <tr>
        <td colspan="3"><br><br><br>______________________________<br>ASESOR(A) '.$eje['nombre']." ".$eje['paterno'].'</td>
      </tr>
    </table>
 ';
// Print text using writeHTMLCell()
$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');
?>