<?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/vgrupocredito.php");
	$vgrupocredito=new vgrupocredito;
	include_once($ruta."class/vindividualcredito.php");
	$vindividualcredito=new vindividualcredito;
	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 *************/

	$user=dcUrl($lblcode);
	//$idadmeje=dcUrl($lblcode2);
	$fechaactual=date('Y-m-d');
    $horaactual=date('H:i:s');

    $MesInforme= $fechareporte;//date("Y-m-t",strtotime($fechareporte));

	$rutaImg=$ruta."imagenes/logo.png";
	$demp=$miempresa->muestra(1);

	$dus=$usuario->muestra($user);
	//$tba=$tipobanca->muestra($cred['idtipobanca']);
	//$eje=$vadmejecutivo->muestra($gr['idadmejecutivo']);
	//$ddom=$dominio->muestra($cred['frecuenciapago']);
	//$cuotacobrar=$cred['cuota']+1;
	//$canTCred=$credito->mostrarTodo("idgrupocredito=".$valor);

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

	//$consulta="SELECT sum(cuenta)  as 'maximo' FROM admcontrato where idsede=1";
	//$dcont=$credito->sql($consulta);
	//$dcont=array_shift($dcont);


	$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%;" class="letras">
              <center>
                <img style="width:240px;" src="'.$rutaImg.'" ><br>
              </center>
            </td>
            <td style="width:30%;">
	            <table class="titREP" width="100%" align="center">
	            <tr>
	            	<td>
	            		<div class="titSUB">I N F O R M E</div>
	            		<div class="titPRI"><h3>DE INDICE DE MORA </h3></div>
	            		<div class="titPRI"><h3>Al '.obtenerFechaLetra($MesInforme).'</h3></div>
	            		<div class=""><h5> '.$titulo.'</h5></div>
	            	</td>
	            </tr>
	            </table>
            </td>
            <td style="width:30%;">
	            <table border="0">
	              <tr>
	                <td>
	                  <table class="letras" cellpadding="2">
	                    <tr>
	                      <td align="right">
	                        FECHA ACTUAL:
	                      </td>
	                      <td align="left">
	                        <b>'.$fechaactual.'</b>
	                      </td>
	                    </tr>
	                    <tr>
	                      <td align="right">
	                        HORA ACTUAL:
	                      </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 class="" width="100%">
    <tr>
    	<td style="text-align:center;">
    		<h3>BANCA COMUNAL </h3>
    	</td>
    </tr>
	 </table>
		<table class="tablaLIST2">
			<thead>
				<tr>
				<th width="5%">Nro</th>
				  <th width="20%">ASESOR</th>
				  <th width="10%">Numero de creditos<br> vigentes</th>
				  <th width="10%">Cantidad Grupos<br> en mora</th>
				  <th width="20%">Saldo Cartera</th>
				  <th width="20%">Saldo Cartera<br> Mora</th>
				  <th width="10%">Clientes en mora</th>
				</tr>
			</thead>
			<tbody>
				';
		
				//foreach($credito->mostrarTodo("idgrupocredito=".$valor) as $f) 
				$consulta2="SELECT *
		                from vgrupocredito 
		                where activo=1 and estado=1 ORDER BY fechaproximo ASC";
				//foreach($vgrupocredito->sql($consulta2) as $f)
				$contar=0; 
		        foreach($vadmejecutivo->mostrarTodo("idtipo=142 and estado=1") as $eje)
				{
					$contar++;
					$contargr=0;
					$cantidadMora=0;

					$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;

					$TOTALmoraCRED=0;
					$saldocarteraCRED=0;
					$TOTALsaldocarteraCRED=0;
					$TOTALpermora=0;
					foreach($vgrupocredito->mostrarTodo("estado=1 and idadmejecutivo=".$eje['idvadmejecutivo']) as $vgc)
					{
					  $contargr++;
					  $moraactivo=0;
					  	foreach($credito->mostrarTodo("idgrupocredito=".$vgc['idvgrupocredito']." 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'];

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

							$totalCuota=$montoCAM+$interesCuota+$cuotaAcumulada+$seguro;
		   					$totalCuota=number_format($totalCuota, 2, '.', '');
		   					  if ($fechaactual>$vgc['fechaproximo']) 
		                      {
		                        //$estilo="background-color: #FF3838;";
		                        $moraactivo=1;
		                        $TOTALpermora=$TOTALpermora+1;
		                      }else{
								if($mora>1) 
			   					{
			   						$moraactivo=1;
			   						$TOTALpermora=$TOTALpermora+1;
			   					}
		                      }
		                      //SALDO CARTERA
		                      $cuotasfaltantes=$vgc['nrocuotas']-$vgc['cuota'];
		                      $saldocarteraCRED=$f['montocuota']*$cuotasfaltantes;
		                      $TOTALsaldocarteraCRED=$TOTALsaldocarteraCRED+$saldocarteraCRED;
						
		                      //SALDO CARTERA MORA
		                      $TOTALmoraCRED=$TOTALmoraCRED+$mora;
					  	}

	   				$cantidadMora=$cantidadMora+$moraactivo;
	   				
					}
					$estilo='background-color:#E7FDEC';
					if ($TOTALpermora>0) 
					{
						$estilo='background-color:#FFA1A1';
					}
					$html = $html.'
						<tr>
						 <td>'.$contar.'</td>
						  <td>'.$eje['nombre'].' '.$eje['paterno'].'</td>
						  <td style="text-align:center;">'.$contargr.'</td>
						  <td style="text-align:center;">'.$cantidadMora.'</td>
						  <td style="text-align:right;">'.number_format($TOTALsaldocarteraCRED, 2, '.', '').'</td>
						  <td style="text-align:right;">'.number_format($TOTALmoraCRED, 2, '.', '').'</td>
						  <td style="'.$estilo.'; text-align:center;">'.$TOTALpermora.'</td>

						</tr>
					';
				}
				$html = $html.'
			</tbody>
		  <tfoot>
		    <tr>
		    <td></td>
		    <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		      
		    </tr>
		  </tfoot>
		</table><br>

   <table class="" width="100%">
    <tr>
    	<td style="text-align:center;">
    		<h3>CREDITO INDIVIDUAL </h3>
    	</td>
    </tr>
	 </table>
          <table class="tablaLIST2">
			<thead>
				<tr>
				<th width="5%">Nro</th>
				  <th width="20%">ASESOR</th>
				  <th width="10%">Numero de creditos<br> vigentes</th>
				  <th width="10%">Cantidad Individuales<br> en mora</th>
				  <th width="20%">Saldo Cartera</th>
				  <th width="20%">Saldo Cartera<br> Mora</th>
				  <th width="10%">Clientes en mora</th>
				</tr>
			</thead>
			<tbody>
				';
		
				$contar2=0; 
		        foreach($vadmejecutivo->mostrarTodo("idtipo=142 and estado=1") as $eje2)
				{
					$contar2++;
					$contargr2=0;
					$cantidadMora2=0;

					$totalPago2=0;
					$totalCI2=0;
					$totalSaldoCI2=0;
					$totalinteresCI2=0;
					$saldoAnt2=0;
					$cuotasCobradas2=0;
					$depositVol2=0;
					$multas2=0;
					$devInterno2=0;
					$devinternos2=0;
					$intIntCobrado2=0;
					$credIntOtorg2=0;
					$montoPagadoInt2=0;
					$totalFG2=0;
					$totalk2=0;
					$totalMontoCuota2=0;

					$TOTALmoraCRED2=0;
					$saldocarteraCRED2=0;
					$TOTALsaldocarteraCRED2=0;
					$TOTALpermora2=0;
					foreach($vindividualcredito->mostrarTodo("estado=1 and idadmejecutivo=".$eje2['idvadmejecutivo']) as $vgc2)
					{
					  $contargr2++;
					  $moraactivo2=0;
					   foreach($credito->mostrarTodo("idgrupocredito=".$vgc2['idvindividualcredito']." and tipocredito=1") as $f)
					  	{
						  	$dper2=$persona->muestra($f['idpersona']);
							$cuotaPago2=$f['cuotaspagadas']+1;
							$tba2=$tipobanca->muestra($f['idtipobanca']);

							$montoCAM2=$f['montoOT']/$f['cuotas'];
							/***************** INTERES  **********************************************/
							//meses plazo
			                $domF2=$dominio->muestra($f['idfrecuenciapago']);
			                $mesesPlazo2=$f['cuotas']/$domF2['codigo'];
			                $interesTotal2=($f['montoOT']*($f['interes']/100)*$mesesPlazo2);
			                $interesCuota2=$interesTotal2/$f['cuotas'];
			                $interesCuota2=round($interesCuota2, 2);
							/*************************************************************************/
							// CUOTA ACUMULADA
							$gaTotal2=$f['montoOT']*($tba2['gastosadmin']/100);
							$cuotaAcumulada2=$gaTotal2/$f['cuotas'];
							/****************************************************************/
							//SEGURO
							$seguro2=$f['montoOT']*($f['seguro']/100);
							$seguro2=$seguro2/$f['cuotas'];
			                $seguro2=round($seguro2, 2);
							/*******************************************************/

							// CAPITAL ADEUDADO A PAGAR *******************************************************/
							// Capital pagado = MontoOT-saldo
							$capitalPagado2=$f['montoOT']-$f['saldo'];
							$pagoACapital2=$montoCAM2*$cuotaPago2;
							$CapitalAPagar2=$pagoACapital2-$capitalPagado2;
							/*********************************************************************************/
							// INETERES ADEUDADO *************************************************************/
							$interesPago2=$interesCuota2*$cuotaPago2;
							$interesAPagar2=$interesPago2-$f['interesPagado'];
							/*********************************************************************************/
							// CUOTA ACUMULADA ADEUDADA
							$cuotaAcumPago2=$cuotaAcumulada2*$cuotaPago2;
							$cuotaAcumAPagar2=$cuotaAcumPago2-$f['cuotaAcumulada'];
							/*********************************************************************************/
							// SEGURO ADEUDADO ***************************************************************/
							$seguroPago2=$seguro2*$cuotaPago2;
							$seguroAPagar2=$seguroPago2-$f['seguroPagado'];
							/*********************************************************************************/

							$totalAPagar2=$CapitalAPagar2+$interesAPagar2+$cuotaAcumAPagar2+$seguroAPagar2;
							$totalAPagar2=round($totalAPagar2, 2);
							$totalPago2=$totalAPagar2+$totalPago2;

							$totalCI2=$f['montoCI']+$totalCI2;
							$totalSaldoCI2=$f['saldoCI']+$totalSaldoCI2;
							$totalinteresCI2=$f['interesCI']+$totalinteresCI2;

							$mora2=$totalAPagar2-$f['montocuota'];

							$montoPagado2=$f['montoOT']-$f['saldo'];
							$mora2=($f['montocuota']*$f['cuotaspagadas'])-$montoPagado2-$f['interesPagado']-$f['seguroPagado']-$f['cuotaAcumulada'];
							$mora2=number_format($mora2, 2, '.', '');

							$totalCuota2=$montoCAM2+$interesCuota2+$cuotaAcumulada2+$seguro2;
		   					$totalCuota2=number_format($totalCuota2, 2, '.', '');
		   					  if ($fechaactual>=$vgc2['fechaproximo']) 
		                      {
		                        //$estilo="background-color: #FF3838;";
		                        $moraactivo2=1;
		                        $TOTALpermora2=$TOTALpermora2+1;
		                      }else{
								if($mora2>1) 
			   					{
			   						$moraactivo2=1;
			   						$TOTALpermora2=$TOTALpermora2+1;
			   					}
		                      }
		                      //SALDO CARTERA
		                      $cuotasfaltantes2=$vgc2['nrocuotas']-$vgc2['cuota'];
		                      $saldocarteraCRED2=$f['montocuota']*$cuotasfaltantes2;
		                      $TOTALsaldocarteraCRED2=$TOTALsaldocarteraCRED2+$saldocarteraCRED2;
						
		                      //SALDO CARTERA MORA
		                      $TOTALmoraCRED2=$TOTALmoraCRED2+$mora2;
		                  
					  	}

	   				$cantidadMora2=$cantidadMora2+$moraactivo2;
	   				
					}
					$estilo2='background-color:#E7FDEC';
					if ($TOTALmoraCRED2>0) 
					{
						$estilo2='background-color:#FFA1A1';
					}
					$html = $html.'
						<tr>
						 <td>'.$contar2.'</td>
						  <td>'.$eje2['nombre'].' '.$eje2['paterno'].'</td>
						  <td style="text-align:center;">'.$contargr2.'</td>
						  <td style="text-align:center;">'.$cantidadMora2.'</td>
						  <td style="text-align:right;">'.number_format($TOTALsaldocarteraCRED2, 2, '.', '').'</td>
						  <td style="text-align:right;">'.number_format($TOTALmoraCRED2, 2, '.', '').'</td>
						  <td style="'.$estilo2.'; text-align:center;">'.$TOTALpermora2.'</td>

						</tr>
					';
				}
				$html = $html.'
			</tbody>
		  <tfoot>
		    <tr>
		    <td></td>
		    <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		     <td></td>
		      
		    </tr>
		  </tfoot>
		</table><br>
	<br>				
		
	';
	//==============================================================
	//==============================================================
	//==============================================================

	//$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="33%"></td>
	        <td width="33%" align="center"></td>
	        <td width="33%" style="text-align: right;">{PAGENO}/{nbpg}</td>
	    </tr>
	</table>');
	$mpdf->SetHeader($header,50);
	$mpdf->WriteHTML($html);
	$mpdf->Output();

?>
