<?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/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");
	include($ruta."recursos/qr/qrlib.php");
	require_once '../../../recursos/pdf/mpdf/vendor/autoload.php';

	/******************    SEGURIDAD *************/
	extract($_GET);
	//********* SEGURIDAD GET *************/
	$valor=dcUrl($lblcode);
	$valor=dcUrl($lblcode);
	$cred=$individualcredito->muestra($valor);
	$gr=$individual->muestra($cred['idindividual']);
	$per=$persona->mostrarUltimo("idpersona=".$gr['idpersona']);
	$rutaImg=$ruta."imagenes/logo2.png";
	$demp=$miempresa->muestra(1);
	$dus=$usuario->muestra($cred["usuariocreacion"]);
	$tba=$tipobanca->muestra($cred['idtipobanca']);
	$eje=$vadmejecutivo->muestra($gr['idadmejecutivo']);
	$ddom=$dominio->muestra($cred['frecuenciapago']);
	$cuotacobrar=$cred['cuota']+1;
	$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;
	 } 
	$fechaActual=date('Y-m-d');
    $horaActual=date("H:i:s");
    $per=$persona->muestra($canTCred['idpersona']);

   
	$defaultConfig = (new Mpdf\Config\ConfigVariables())->getDefaults();
	$fontDirs = $defaultConfig['fontDir'];

	$defaultFontConfig = (new Mpdf\Config\FontVariables())->getDefaults();
	$fontData = $defaultFontConfig['fontdata'];

	$mpdf = new \Mpdf\Mpdf([
			'fontDir' => array_merge([
		        $ruta.'recursos/font/titilium',
		    ]),
		    'fontdata' => $fontData + [
		        'frutiger' => [
		            'R' => 'TitilliumWeb-Regular.ttf',
		            'I' => 'TitilliumWeb-Italic.ttf',
		        ]
		    ],
		    'default_font' => 'frutiger',
		    'mode' => 'utf-8',
		    'margin_header' => 5, 
		    'margin_top' => 30, 
		    'orientation' => ''
		]
	);


$header='
	<table style="width:100%; font-size:12px; text-align:center;"  align="center">
        <tr >
            <td style="width:30%; text-align:left;" class="letras">
              
                <img style="width:180px;" src="'.$rutaImg.'" >
              
            </td>
            <td style="width:30%;">
	            <table class="titREP" align="center">
	            <tr>
	            	<td>
	            		<h1>I</h1>
	            	</td>
	            	<td>
	            		<div class="titSUB">B O L E T A &nbsp;&nbsp;D E</div>
	            		<div class="titPRI"><h3> PAGO '.$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>'.$fechaActual.'</b>
	                      </td>
	                    </tr>
	                    <tr>
	                      <td align="right">
	                        HORA:
	                      </td>
	                      <td align="left">
	                        <b>'.$horaActual.'</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>
	';

	$html = '
		<table  style="width:100%; font-size:12px;">
		    <tr>
		      <td colspan="2"><b>Socio(a): </b>'.$per['nombre']." ".$per['paterno']." ".$per['materno'].'</td>
		      <td colspan="2"><b>Carnet: </b>'.$per['carnet'].$per['expedido'].'</td> 
		    </tr>
		    <tr>
		      <td width="30%"><b>Tipo Banca: </b>'.$tba['nombre'].'</td>
		      <td width="24%"><b>Monto Otorgado: </b>'.number_format($canTCred['montoOT'], 2, '.', '').'</td>
		      <td width="21%"><b>Fecha: </b>'.$canTCred['fechaproxve'].'</td> 
		      <td width="25%"><b>Ultima Reunión : </b>'.$cred['fechaultimo'].'</td>
		    </tr>
		    <tr>
		      <td><b>Reunión: </b>'.$gr['lugarreunion'].'</td>
		      <td><b>Ciclo: </b> '.$gr['idciclo'].'</td>
		      <td><b>Cuotas: </b>'.$cuotacobrar.'/'.$cred['nrocuotas'].'</td>
		      <td><b>Fecha Apertura: </b>'.$cred['fechadesembolso'].'</td>
		    </tr>
		    <tr>
		    <td><b>Código : </b>'.$valor.'</td>
		    <td colspan="2"><b>Lapso : </b>'.$ddom['nombre'].'</td>
		      <td><b>Fecha Cierre: </b>'.$cred['fechacierre'].'</td>
		    </tr>
		  </table>
		  <table width="100%">
			  <tr>
				  <td width="60%">
				  	<table class="tablaLIST2">
						<thead>
						     <tr>
							  <th colspan="4"><b>CUOTA</b></th>
							</tr>
							<tr>
							  <th width="25%">Ahorro Vol.</th>
							  <th width="25%">Vigente</th>
							  <th width="25%">Deuda por Cobrar</th>
							  <th width="25%">Vigente Saldo capital</th>
							</tr>
						</thead>
						<tbody>
						';
						$nro=1;
						$totalPago=0;
						$totalCI=0;
						$totalSaldoCI=0;
						$totalinteresCI=0;
						$saldoAnt=0;
						$totalk=0;
						$totalMontoCuota=0;
						foreach($credito->mostrarTodo("idcredito=".$canTCred['idcredito']) 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=number_format($interesCuota, 2, '.', '');
				                //$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=number_format($seguro, 2, '.', '');
			                    //$seguro=round($seguro, 2);
								/*******************************************************/
								/******************DESCUETOS DE PAGOS DE INTERES y seguro*********************/
								  $contar=0;
								  foreach($creditodetalle->mostrarTodo("idcredito=".$canTCred['idcredito']." and tiporegistro=1") as $creddet)
								  {
								    $contar++;
								  }
								  $descuentoInteres=$interesCuota*$contar;
								  $descuentoSeguro=$seguro*$contar;
								  /***************************************************/
								// CAPITAL ADEUDADO A PAGAR *******************************************************/
								// Capital pagado = MontoOT-saldo
								$capitalPagado=$f['montoOT']-$f['saldo'];
								$pagoACapital=$montoCAM*$cuotaPago;
								$CapitalAPagar=$pagoACapital-$capitalPagado;
								$CapitalAPagar=number_format($CapitalAPagar, 2, '.', '');
								/*********************************************************************************/
								// INETERES ADEUDADO *************************************************************/
								$interesPago=$interesCuota*$cuotaPago;
								$interesAPagar=$interesPago-$f['interesPagado'];
								//aumentado
								$interesAPagar=number_format($interesAPagar, 2, '.', '');
								/*********************************************************************************/
								// CUOTA ACUMULADA ADEUDADA
								$cuotaAcumPago=$cuotaAcumulada*$cuotaPago;
								$cuotaAcumAPagar=$cuotaAcumPago-$f['cuotaAcumulada'];
								$cuotaAcumAPagar=number_format($cuotaAcumAPagar, 2, '.', '');
								/*********************************************************************************/
								// SEGURO ADEUDADO ***************************************************************/
								$seguroPago=$seguro*$cuotaPago;
								$seguroAPagar=$seguroPago-$f['seguroPagado'];
								//aumentado
								$seguroAPagar=number_format($seguroAPagar, 2, '.', '');
								/*********************************************************************************/

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

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



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

								$mora=$totalAPagar-$f['montocuota'];
								$montoPagado=$f['montoOT']-$f['saldo'];
								$mora=($f['montocuota']*$f['cuotaspagadas'])-$montoPagado-$f['interesPagado']-$f['seguroPagado']-$f['cuotaAcumulada']-$descuentoInteres-$descuentoSeguro;
								$mora=number_format($mora, 2, '.', '');


								$totalCuota=$montoCAM+$interesCuota+$cuotaAcumulada+$seguro;
			   					$totalCuota=number_format($totalCuota, 2, '.', '');

			   					$valcredito=array(
									"montocuota"=>"'$totalCuota'"
							 	);
								$credito->actualizar($valcredito,$f['idcredito']);
							$html = $html.'
								<tr>
								  <td style="text-align:center;">'.number_format($f['saldoahorro'], 2, '.', '').'/____</td>
								  <td style="text-align:center;">'.number_format($f['montocuota'], 2, '.', '').'</td>
								  <td style="text-align:center;">'.number_format($mora, 2, '.', '').'/____</td>
								  


								  <td style="text-align:center;">'.number_format($f['saldo'], 2, '.', '').'</td>
								</tr>
							';
							$nro++;
			  			}
			  			$saldoAnt=$totalFG+$cuotasCobradas+$depositVol+$multas+$devInterno+$intIntCobrado-$credIntOtorg;
						$html = $html.'
						</tbody>
					  <tfoot>
					     <tr>
					      <td colspan="4"><b>Saldo Anterior</b><br> Ingresos: '.number_format($saldoAnt, 2, '.', '').'</td>
					    </tr>
					  </tfoot>
					</table>
				  </td>
				  <td width="40%">
				  	<table class="tablaLIST2">
						<thead>
						     <tr>
							  <th colspan="3"><b>DIAS MORA </b>( x dia '.number_format($canTCred['interesdia'], 2, '.', '').')</th>
							</tr>
							<tr>
							  <th width="35%">Cuota</th>
							  <th width="35%">Dias mora</th>
							  <th width="30%">Total cobrar mora</th>
							</tr>
						</thead>
						<tbody>
						';		
						$TotaldiasMora=0;
						$TotaltotalMora=0;
						$compararexist=0;
						$diasMora=0;
						foreach($creditodetalle->mostrarTodo("idcredito=".$canTCred['idcredito']." and estadodiasmora=2") as $creddet) 
						{
							$totalMora=0;
							switch ($creddet['estadodiasmora']) 
							{
								case '2':
								 $totalMora=$creddet['diasmora']*number_format($canTCred['interesdia'], 2, '.', '');
								    $diasMora= $creddet['diasmora'];
									$html = $html.'
									<tr>
									  <td style="text-align:center;">'.$creddet['cuota'].'</td>
									  <td style="text-align:center;">'.$diasMora.'</td>
									  <td style="text-align:center;">'.number_format($totalMora, 2, '.', '').'</td>
									</tr>
									';
									break;
								
								case '3':
									$html = $html.'
										<tr>
										  <td style="text-align:center;">'.$creddet['cuota'].'</td>
										  <td 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 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 style="text-align:center;">'.$cuotacobrar.'</td>
								  <td 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 style="text-align:center;">'.number_format($totalMoraActual, 2, '.', '').'</td>
								</tr>
			  					';
			  				}
			  			$TotaldiasMora=$TotaldiasMora+$diasMoraActual;
			  			$TotaltotalMora=$TotaltotalMora+$totalMoraActual;
						$html = $html.'

						</tbody>
						<tfoot>
					    <tr>
					      <td></td>
					      <td style="text-align:center;">'.$TotaldiasMora.'</td>
					      <td style="text-align:center;">'.number_format($TotaltotalMora, 2, '.', '').'</td>
					    </tr>
					  </tfoot>
					</table>
				  </td>
			  </tr>
		  </table>
	<br>
		<table class="tablaLIST2">
			<thead>
				<tr>
				  <th colspan="4" style="width:80%;">Observación</th>
				  <th style="width:20%;">Total efectivo</th>
				</tr>
			</thead>
			<tbody>
				<tr >
				  <td colspan="4">
				  ';
				  	if ($canTCred['idcredito']==10000230 && $cuotacobrar==1) //FELIX
				  	{
				  		$html = $html.'
				  		<p style="color:red">Se realiza el cobro de 7.40 Bs de interes por los 2 dias desde la fecha de desenbolso a su primer cuota programado. </p>
				  		';
				  	}
				  	if ($canTCred['idcredito']==10000256 && $cuotacobrar==1) //RAQUEL
				  	{
				  		$html = $html.'
				  		<p style="color:red">Se realiza el cobro de Bs 78 de interes por los 5 dias desde la fecha de desenbolso a su primer cuota programado. </p><p style="font-size:15px;">Bs 78</p>
				  		';
				  	}
				  	if ($canTCred['idcredito']==10000258 && $cuotacobrar==2) //PAULINA
				  	{
				  		$html = $html.'
				  		<p style="color:red">Se realiza el cobro de Bs 47.50 de interes por los 4 dias desde la fecha de desenbolso a su primer cuota programado. </p><p style="font-size:15px;">Bs 47.50</p>
				  		';
				  	}
                $html = $html.'
				  </td>
				  <td style="text-align:center;">______</td>
				</tr>
			</tbody>
		</table><br><br>
		<table style="width:100%; font-size:12px; text-align:center;">
			
			<tr>
			<td><br>______________________________<br>SOCIO(A) '.$per['nombre']." ".$per['paterno'].'</td>
				<td><br>______________________________<br>ASESOR(A) '.$eje['nombre']." ".$eje['paterno'].'</td>
			</tr>
		</table>
		
	';
	//==============================================================
	//==============================================================
	//==============================================================

	//$mpdf->SetDisplayMode('fullpage');

	$stylesheet = file_get_contents($ruta.'recursos/css/elisyam-1.5.css');
	$mpdf->WriteHTML($stylesheet,1); // The parameter 1 tells that this is css/style only and no
	$mpdf->SetHTMLFooter('
	<table width="100%">
	    <tr>
	        <td width="100%"></td>
	    </tr>
	</table>');
	$mpdf->SetHeader($header,50);
	$mpdf->WriteHTML($html);
	$mpdf->Output($per['nombre']." ".$per['paterno'].' - Cuota '.$cuotacobrar.'.pdf', 'I');

?>