<?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 CREDITO');
$pdf->SetSubject('CIERRE CREDITO');
$pdf->SetKeywords('CIERRE CREDITO');


// 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);
$canTCred=$credito->mostrarPrimero("idgrupocredito=".$valor." and tipocredito=1");
 $fechaHoy=date('Y-m-d');
  switch ($canTCred['estadofechacontrol']) 
  {
    case '0':
      $fechaHoy=date('Y-m-d');//---------------------------
      break;
    
    case '1':
      $fechaHoy=$canTCred['controlfecha'];//---------------------------
      break;
   }
$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" width="20%">
              <center>
                <img width="150px;" src="'.$rutaImg.'" ><br>
                
                ';
                $html=$html.'
                LA PAZ - BOLIVIA
              </center>
            </td>
            <td width="60%"><br><br><br>
            <table align="center"><tr>
              <td>
                <div class="tituloFactura">
                  CIERRE DE CREDITO INDIVIDUAL
                </div>
                </td>
              </tr>
            </table>
            </td>
            <td width="20%"><br><br>
            <table >
              <tr>
                <td>
                  <table class="letras" style="border: 1px solid #008E65;border-radius: 5px;padding: 5px;text-align: center;" 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);
  
$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;
    }
    .textoderecha{
      text-align:right;
    }
  </style>

<table width="100%">
  <tr>
   <td width="45%;">
      <table class="cabecera3" width="100%" style="font-size:8px;">
       <tr>
          <td width="55%"><b>Socio(a): </b>'.$per['nombre']." ".$per['paterno']." ".$per['materno'].'</td>
          <td width="45%"><b>Codigo: </b>'.$cred['idindividualcredito'].'</td>
        </tr>
        <tr>
           <td ><b>Carnet: </b>'.$per['carnet'].$per['expedido'].'</td>
          <td><b>Cuotas: </b>'.$cuotacobrar.'/'.$cred['nrocuotas'].'</td>
        </tr>
        <tr>
        <td><b>Ciclo: </b> '.$gr['idciclo'].'</td>
        <td><b>Fecha: </b>'.$cred['fechaproximo'].'</td>
        </tr>
        <tr>
          <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>Fecha Ultima Reunión : </b>'.$cred['fechaultimo'].'</td>   
        </tr>
        <tr>     
          <td><b>Tipo Banca: </b>'.$tba['nombre'].'</td>
           <td><b>Fecha Cierre: </b>'.$cred['fechacierre'].'</td>
        </tr>
      </table>
   </td>
   <td width="55%;">
      <table border="0" cellpadding="2" width="100%">
      <tr style="background-color:#dddddd;">
          <td class="cabecera2 textocentro" width="100%">INFORMACIÓN GENERAL</td>
        </tr>
        <tr style="background-color:#dddddd;">
          <td class="cabecera2 textocentro" width="10%"></td>
          <td class="cabecera2 textocentro" width="10%">K</td>
          <td class="cabecera2 textocentro" width="10%">(K+i)</td>
          <td class="cabecera2 textocentro" width="8%">SEG.</td>
          <td class="cabecera2 textocentro" width="15%">TOTAL <br>CANCELADO</td>
          <td class="cabecera2 textocentro" width="12%">CUOTAS <br>FALTANTES</td>
          <td class="cabecera2 textocentro" width="10%">AHORRO <br>INICIAL</td>
          <td class="cabecera2 textocentro" width="10%">AHORRO VOLUNT.</td>
          <td class="cabecera2 textocentro" width="15%">TOTAL</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("idcredito=".$canTCred['idcredito']) 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 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>
            </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($totalFondoGara, 2, '.', '').' </td>
          
          <td class="cabecera2 textocentro">'.number_format($totaldepVol, 2, '.', '').'</td>
          <td class="cabecera2 textocentro">'.number_format($totalTotal, 2, '.', '').'</td>
        </tr>
       </table>
   </td>
  </tr>
</table>    
 <br><br>';
 /*-------////------------------*/
 $cuotasfaltantes=$cred['nrocuotas']-$cuotacobrar;
 $html=$html.'
  <table width="100%">
    <tr>


      <td width="50%">
      <table border="0" cellpadding="2" width="100%">
      <thead>
        <tr style="background-color:#dddddd;">
          <th class="cabecera2 textocentro" colspan="7">DETALLE CUOTAS FALTANTES</th>
        </tr>
        <tr style="background-color:#dddddd;">
          <th class="cabecera2 textocentro">Nro</th>
          <th class="cabecera2 textocentro">FECHA</th>
          <th class="cabecera2 textocentro">CAPITAL</th>
          <th class="cabecera2 textocentro">INTERÉS</th>
          <th class="cabecera2 textocentro">SEGURO</th>
          <th class="cabecera2 textocentro">CUOTA</th>
          <th class="cabecera2 textocentro">SALDO</th>
        </tr>
      </thead>
      <tbody>
      ';
       $fechaActual="";
  $montoCAM=$canTCred['montoOT']/$canTCred['cuotas'];
  /***************** INTERES  **********************************************/
   //meses plazo
    $mesesPlazo=$canTCred['cuotas']/$ddom['codigo'];
  $interesTotal=($canTCred['montoOT']*($canTCred['interes']/100)*$mesesPlazo);
  $interesCuota=$interesTotal/$canTCred['cuotas'];
  /*************************************************************************/
  // CUOTA ACUMULADA
  $gaTotal=$canTCred['montoOT']*($tba['gastosadmin']/100);
  $gastoadmin=$gaTotal/$canTCred['cuotas'];
  //No se muestra por que es 0% para credito individual
  /****************************************************************/
  //SEGURO
  $seguro=$canTCred['montoOT']*($canTCred['seguro']/100);
  $seguro=$seguro/$canTCred['cuotas'];
  /*******************************************************/
  $saldo=$canTCred['montoOT'];
  $fechaActual=$canTCred['fechaprimer'];
  $saldoCapitalTotlal=0;
  for ($cuota=1; $cuota <= $canTCred['cuotas']; $cuota++) {
    $totalCuota=number_format($montoCAM, 2, '.', '')+number_format($interesCuota, 2, '.', '')+number_format($gastoadmin, 2, '.', '')+number_format($seguro, 2, '.', '');
    $saldo=$saldo-$montoCAM;


   if ($cuotacobrar<=$cuota) 
   {
          if ($cuotacobrar==$cuota) 
          {
              if ($cuota==1) {
          //$fechaActual=$canTCred['fechaprimer'];
          $html=$html.'
          <tr>
            <td class="sfila textocentro">'.$cuota.'</td>
            <td class="sfila textocentro">'.date("d-m-Y", strtotime($fechaActual)).'</td>
            <td class="sfila textocentro">'.number_format($montoCAM, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($interesCuota, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($seguro, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($totalCuota, 2, '.', '').'</td>
            <td class="sfila textoderecha">'.number_format($saldo, 2, '.', '').'</td>
          </tr>';
        }else{
          $fecha = date('Y-m-j');
          //$nuevafecha = strtotime ( '+'.$dcred['lapsoDias'].' days' , strtotime ($fechaActual)) ;
          $nuevafecha = strtotime ( '+'.$canTCred['lapsoDias'].' month' , strtotime ($fechaActual)) ;
          $nuevafecha = date ( 'Y-m-d' , $nuevafecha );
          $fechaActual=$nuevafecha;
          $html=$html.'
          <tr>
            <td class="sfila textocentro">'.$cuota.'</td>
            <td class="sfila textocentro">'.date("d-m-Y", strtotime($nuevafecha)).'</td>
            <td class="sfila textocentro">'.number_format($montoCAM, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($interesCuota, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($seguro, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($totalCuota, 2, '.', '').'</td>
            <td class="sfila textoderecha">'.number_format($saldo, 2, '.', '').'</td>
          </tr>';
        }
       $saldoCapitalTotlal= $saldo;
    }else{
          $fecha = date('Y-m-j');
          //$nuevafecha = strtotime ( '+'.$dcred['lapsoDias'].' days' , strtotime ($fechaActual)) ;
          $nuevafecha = strtotime ( '+'.$canTCred['lapsoDias'].' month' , strtotime ($fechaActual)) ;
          $nuevafecha = date ( 'Y-m-d' , $nuevafecha );
          $fechaActual=$nuevafecha;
          $totalCuota=$montoCAM;
          $html=$html.'
          <tr>
            <td class="sfila textocentro">'.$cuota.'</td>
            <td class="sfila textocentro">'.date("d-m-Y", strtotime($nuevafecha)).'</td>
            <td class="sfila textocentro">'.number_format($montoCAM, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format(0, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format(0, 2, '.', '').'</td>
            <td class="sfila textocentro">'.number_format($totalCuota, 2, '.', '').'</td>
            <td class="sfila textoderecha">'.number_format($saldo, 2, '.', '').'</td>
          </tr>';
    }
   }else{
          if ($cuota!=1)
          {
            $fecha = date('Y-m-j');
          //$nuevafecha = strtotime ( '+'.$dcred['lapsoDias'].' days' , strtotime ($fechaActual)) ;
          $nuevafecha = strtotime ( '+'.$canTCred['lapsoDias'].' month' , strtotime ($fechaActual)) ;
          $nuevafecha = date ( 'Y-m-d' , $nuevafecha );
          $fechaActual=$nuevafecha;
          }
          
   }
    
  }
  //calcular de nuevo monto capital
  $montoCAMNUEVO=$canTCred['montoOT']/$canTCred['cuotas'];
  $totalCapitalSIN=intval($cuotasfaltantes) *number_format($montoCAMNUEVO, 2, '.', '');
  $totalInteresSIN=intval($cuotasfaltantes) *number_format($interesCuota, 2, '.', '');
  $totalSeguroSIN=intval($cuotasfaltantes) *number_format($seguro, 2, '.', '');

      $html = $html.'
      </tbody>
      <tfoot>
                <tr style="background-color:#dddddd;">
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro"></td>
                </tr>
              </tfoot>
    </table>
      </td>
      <td width="35%">
      
        <table border="0" cellpadding="2" width="100%">
              <thead>
                   <tr style="background-color:#dddddd;">
                  <th class="cabecera2 textocentro" colspan="3"><b>DIAS MORA </b>( x dia '.number_format($canTCred['interesdia'], 2, '.', '').')</th>
                </tr>
                <tr style="background-color:#dddddd;">
                  <th class="sfila textocentro" width="35%">Cuota</th>
                  <th class="sfila textocentro" width="35%">Dias mora</th>
                  <th class="sfila textocentro" width="30%">Total cobrar Bs.</th>
                </tr>
              </thead>
              <tbody>
              ';    
              $TotaldiasMora=0;
              $TotaltotalMora=0;
              $compararexist=0;
              foreach($creditodetalle->mostrarTodo("idcredito=".$canTCred['idcredito']) as $creddet) 
              {
                $totalMora=0;
                switch ($creddet['estadodiasmora']) {
                  case '2':
                   $totalMora=$creddet['diasmora']*number_format($canTCred['interesdia'], 2, '.', '');
                      $diasMora= $creddet['diasmora'];
                    $html = $html.'
                    <tr>
                      <td class="sfila textocentro" style="text-align:center;">'.$creddet['cuota'].'</td>
                      <td class="sfila textocentro" style="text-align:center;">'.$diasMora.'</td>
                      <td class="sfila textocentro" style="text-align:center;">'.number_format($totalMora, 2, '.', '').'</td>
                    </tr>
                    ';
                    break;
                  
                  case '3':
                    $html = $html.'
                      <tr>
                        <td class="sfila textocentro" style="text-align:center;">'.$creddet['cuota'].'</td>
                        <td class="sfila textocentro" style="text-align:center;">';
                            //$fechaHoy='2020-09-09';//date('Y-m-d');       
                                $diasMora=0;
                                  $CantidaddiasMora=diferenciaDias($creddet['fechainiciomora'],$fechaHoy );
                                  $fechaLista=$creddet['fechainiciomora'];
                                  for ($i=0; $i < $CantidaddiasMora; $i++) 
                                  { 
                                     $fechaLista=date("Y-m-d",strtotime($fechaLista."+ 1 days"));
                                      $dia= conocerDiaSemanaFecha($fechaLista);
                                   // if ($dia!="Domingo" && $dia!="Sábado") 
                                    //{
                                      $diasMora++;
                                   // }
                                  }
                                  //$diasMora=$diasMora+$canTCred['diasmora'];
                                  $totalMora=$diasMora*$canTCred['interesdia'];
                        $html = $html.'
                            '.$diasMora.'
                        </td>
                        <td class="sfila textocentro" style="text-align:center;">'.number_format($totalMora, 2, '.', '').'</td>
                      </tr>
                    ';
                    break;
                    
                }
                if ($cuotacobrar==$creddet['cuota']) 
                {
                  $compararexist=1;
                }
                $TotaldiasMora=$TotaldiasMora+$diasMora;
                $TotaltotalMora=$TotaltotalMora+$totalMora;

                }
                $diasMoraActual=0;
                $totalMoraActual=0;
                  if ($compararexist==0) 
                  {
                    $html = $html.'
                      <tr>
                    <td class="sfila textocentro" style="text-align:center;">'.$cuotacobrar.'</td>
                    <td class="sfila textocentro" style="text-align:center;">';
                                        $CantidaddiasMoraActual=diferenciaDias($canTCred['fechaproxve'],$fechaHoy );
                                        $fechaListaActual=$canTCred['fechaproxve'];
                                        for ($i2=0; $i2 < $CantidaddiasMoraActual; $i2++) 
                                        { 
                                           $fechaListaActual=date("Y-m-d",strtotime($fechaListaActual."+ 1 days"));
                                            $diaActual= conocerDiaSemanaFecha($fechaListaActual);
                                          //if ($diaActual!="Domingo" && $diaActual!="Sábado")
                                          //{
                                            $diasMoraActual++;
                                         // }
                                        }
                                        //$diasMoraActual=$diasMoraActual+$TotaldiasMora;
                                        $totalMoraActual=$diasMoraActual*$canTCred['interesdia'];
                    $html = $html.'
                        '.$diasMoraActual.'
                    </td>
                    <td class="sfila textocentro" style="text-align:center;">'.number_format($totalMoraActual, 2, '.', '').'</td>
                  </tr>
                    ';
                  }
                $TotaldiasMora=$TotaldiasMora+$diasMoraActual;
                $TotaltotalMora=$TotaltotalMora+$totalMoraActual;
              $html = $html.'

              </tbody>
              <tfoot>
                <tr style="background-color:#dddddd;">
                  <td class="cabecera2 textocentro"></td>
                  <td class="cabecera2 textocentro">'.$TotaldiasMora.'</td>
                  <td class="cabecera2 textocentro">'.number_format($TotaltotalMora, 2, '.', '').'</td>
                </tr>
              </tfoot>
            </table>
        ';
    /*-------////------------------*/    
      $html=$html.'
      </td>
      <td width="15%">
      
        <table border="0" cellpadding="2" width="100%">
              <thead>
                   <tr style="background-color:#dddddd;">
                  <th class="cabecera2 textocentro" colspan="3"><b>CALIFICACION A CLIENTE CREDITO ACTUAL</b></th>
                </tr>
                <tr style="background-color:#dddddd;">
                  <th class="sfila textocentro" width="50%">Cuota</th>
                  <th class="sfila textocentro" width="50%">Dias mora</th>
                </tr>
              </thead>
              <tbody>
              ';  
              //porcentaje actual mora
               $porcentajeUnidActual=($totalMoraActual/22)*100;
              //-----------------------  
              $TotaldiasMoraHis=$diasMoraActual;
              $porcentajeTotal=0;
              foreach($creditodetalle->mostrarTodo("idcredito=".$canTCred['idcredito']." and estadodiasmora>0") as $creddetHis) 
              {
                    $html = $html.'
                    <tr>
                      <td class="sfila textocentro" style="text-align:center;">'.$creddetHis['cuota'].'</td>
                      <td class="sfila textocentro" style="text-align:center;">'.$creddetHis['diasmora'].'</td>
                    </tr>
                    ';
                  $porcentajeUnid=($creddetHis['diasmora']/22)*100;
                  $porcentajeTotal=number_format($porcentajeTotal, 2, '.', '')+number_format($porcentajeUnid, 2, '.', '');
                  $TotaldiasMoraHis=$TotaldiasMoraHis+$creddetHis['diasmora'];
              } 
                  $porcentajePromed=($porcentajeUnidActual+$porcentajeTotal)/$cuotacobrar;

                  if ($porcentajePromed<=100) 
                  {
                    $calificado='CLIENTE MALO';
                    $estilo="background-color: #B80303; color:white"; 
                    $estilo2="color: #EA4F2F;";                      
                  }
                  if ($porcentajePromed<=50) 
                  {
                    $calificado='CLIENTE REGULAR';
                    $estilo="background-color: #FF6100; color:white"; 
                    $estilo2="color: #FF6100;";  
                  }
                  if ($porcentajePromed<=20) 
                  {
                    $calificado='BUEN CLIENTE';
                    $estilo="background-color: #0080FF; color:white"; 
                    $estilo2="color: #0080FF;";  
                  }
                  if ($porcentajePromed<=0) 
                  {
                    $calificado='EXCELENTE CLIENTE';
                    $estilo="background-color: green; color:white";
                    $estilo2="color: green;";
                  }
                   if ($porcentajePromed>100) 
                  {
                    $calificado='INHABILITADO';
                    $estilo="background-color: #B80303; color:white"; 
                    $estilo2="color: RED";   
                    $porcentajePromed='';                   
                  }
              $html = $html.'
                     
              </tbody>
              <tfoot>
                <tr>
                  <td class="cabecera2 textocentro"></td>
                  <td  style="echo '.$estilo.'" class="cabecera2 textocentro">'.$TotaldiasMoraHis.'</td>
                </tr>
                      <tr>
                      <td colspan="2" class="sfila textocentro" style="text-align:center; '.$estilo2.'"><b>'.$calificado.' '.number_format($porcentajePromed, 2, '.', '').'%</b></td>
                      </tr>
              </tfoot>
            </table>
        ';
    /*-------////------------------*/    
      $html=$html.'
      </td>
    </tr>

  </table>

<br><br>
 <table class="cabecera3" width="100%">
    <tr>
      <td width="70%">

        <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" style="background-color:white;">'.number_format($totalFaltante, 2, '.', '').' </td>
            <td class="sfila textocentro">AHORRO INICIAL</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format($totalFondoGara, 2, '.', '').'</td>
          </tr>
          <tr>
            <td class="sfila textocentro">DIAS MORA</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format($TotaltotalMora, 2, '.', '').' </td>
            <td class="sfila textocentro">AHORRO VOLUNTARIOS</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format($totaldepVol, 2, '.', '').'</td>
          </tr>
          <tr>
            <td class="sfila textocentro">OTROS</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format(0, 2, '.', '').'</td>
            <td class="sfila textocentro">DESCUENTO INTERES</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format($totalInteresSIN, 2, '.', '').'</td>
          </tr>
          <tr>
            <td class="sfila textocentro"></td>
            <td class="sfila textocentro"></td>
            <td class="sfila textocentro">DESCUENTO SEGURO</td>
            <td class="sfila textocentro" style="background-color:white;">'.number_format($totalSeguroSIN, 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>';
             $totlaConteo=$totlaConteo+ number_format($totalInteresSIN, 2, '.', '')+number_format($totalSeguroSIN, 2, '.', '');
             $totalFaltante=$totalFaltante+$totalCreditoInt+number_format($TotaltotalMora, 2, '.', '');
           $html=$html.'
          <tr>
            <td class="cabecera2 textocentro">TOTAL</td>
            <td class="cabecera2 textocentro" style="background-color:white;">'.number_format($totalFaltante, 2, '.', '').' </td>
            <td class="cabecera2 textocentro">TOTAL</td>
            <td class="cabecera2 textocentro" style="background-color:white;">'.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-$totlaConteo<0) {
          $enCOntra=$totalFaltante-$totlaConteo;
          $enCOntra=$enCOntra*-1;
          $html=$html.'&nbsp;<br><b style="color:red;">EN CONTRA:</b> '.$enCOntra.'<br>';
        }else{
          $aFavor=$totalFaltante-$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="30%" 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>
            _____________________________________<br>
            SOCIO(a) '.$per['nombre'].' '.$per['paterno'].' '.$per['materno'].'
          </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');
?>