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

  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 *************/
  //******* SEGURIDAD GET *************/
  extract($_GET);
  $valor=dcUrl($lblcode);
  $credd=$creditointernomov->muestra($valor);
  $cred=$creditointerno->muestra($credd['idcredito']);
  $idcredito=$cred['idcreditointerno'];

  $dcred=$credito->muestra($cred['idcredito']);


  $grc=$grupocredito->muestra($cred['idgrupocredito']);
  $gr=$grupo->muestra($grc['idgrupo']);

  $dus=$usuario->muestra($credd["usuariocreacion"]);

  $per=$persona->mostrarPrimero("idpersona=".$dcred['idpersona']);
  $tba=$tipobanca->muestra($cred['idtipobanca']);
  $eje=$vadmejecutivo->muestra($dcred['idejecutivo']);
  $domC=$dominio->muestra($cred['estadocredito']);

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

  $moneda="";
  $monAb="";
  if ($cred['moneda']=="MN") {
    $moneda="MONEDA NACIONAL";
    $monAb="BOLIVIANOS";
  }


/***************************************************************************************************/

// 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('Comprobante de Otorgación');
$pdf->SetSubject('SWCGB');
$pdf->SetKeywords('Comprobante de Otorgación');


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

// 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=' <br>
  <style>
    .tituloFactura{
      font-size:13px;
      font-weight: bold;
    }
    .tituloCenda{
      color:red;
    }
    .letras{
      font-size:7px;
    }
    .letras1{
      font-size:8px;
    }
    .letras2{
      font-size:14px;
    }
    .letras3{
      font-size:8px;
    }
  </style>
  <table width="100%"  align="center">
    <tr>
      <td width="40%" class="letras">
        <center>
          <img width="120px;" src="'.$rutaImg.'" ><br>
          <b>'.$demp['nombre'].'</b><br>
          ';
          $html=$html.'
          <b>Dirección:</b>'.$demp['direccion'].'<br>
          <b>Telfs.:</b>'.$demp['telefono'].'<br>
          LA PAZ - BOLIVIA
        </center>
      </td>
      <td width="27%"><br>
        <div class="tituloFactura">OTORGACION DE CRÉDITO INTERO</div>
      </td>
      <td width="33%">
        <table>
          <tr>
            <td>
              <table class="letras1" cellpadding="1">
                <tr>
                  <td align="right">
                    #COMPROBANTE :
                  </td>
                  <td align="left">
                    <b>'.$valor.'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    FECHA:
                  </td>
                  <td align="left">
                    <b>'.$credd['fecha'].'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    HORA:
                  </td>
                  <td align="left">
                    <b>'.$credd['horacreacion'].'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    EJECUTIVO:
                  </td>
                  <td align="left">
                    <b>'.$dus['usuario'].'</b>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>';
  $pdf->SetFont('helvetica', '', 8);
  $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-right: solid 1px #fff;
      border-bottom: solid 1px #606060;
      border-left: solid 1px #fff;
    }
    .letras{
      font-size:6px;
      text-align: center;
    }
    .letras3{
      font-size:7px;
    }
    .letras4{
      font-size:8px;
    }
    .letras5{
      font-size:9px;
    }
    .cabeceraCentro{
      padding: 1px;
      border-top: solid 1px white;
      border-bottom: solid 1px white;
    }
    .cabecera2{
      border-top: solid 1px #606060;
      border-bottom: solid 1px #606060;
      font-weight: bold;
    }
    .cabecera3{
    }
    .cabecera4{
    	border-top: solid 1px #606060;
    	border-bottom: solid 1px #606060;
    	border-left: solid 1px #606060;
    	border-right: solid 1px #606060;
    	margin-top: 20px;
    }
    .tabla{
      border-top: solid 1px #606060;
      border-bottom: solid 1px #606060;
      border-left: solid 1px #606060;
      border-right: solid 1px #606060;
    }
  </style>';
  $html=$html.'
  <table class="cabecera3" width="530">
    <tr>
      <td width="30%"><b>N° CREDITO: </b>'.$idcredito.'</td>
      <td width="30%"><b>NOMBRE: </b>'.$per['nombre']." ".$per['paterno']." ".$per['materno'].'</td>
      <td width="40%"><b>CARNET : </b>'.$per['carnet'].' '.$per['expedido'].'</td>
    </tr>
    <tr>
      <td><b>MONTO.: </b>'.$cred['monto'].' Bs.</td>
      <td><b>INTERES RECIBIDO: </b>'.$cred['interescobrado'].' Bs.</td>
      <td><b>INTERES A DEVOLVER : </b>'.$cred['interesCli'].'Bs.</td>
    </tr>
    <tr>
      <td><b>Cuotas: </b>'.$cred['plazo'].' Cuotas</td>
      <td><b>Lapso entre cuotas: </b>'.$cred['lapsoDias'].' Días</td>
      <td><b>Fecha Vencimiento: </b>'.$cred['fechavencimiento'].'</td>
    </tr>
    <tr>
      <td><b>Ejecutivo : </b>'.$eje['nombre']." ".$eje['paterno'].'</td>
      <td><b>Fecha Primer pago: </b>'.$cred['fechaprimer'].'</td>
      <td></td>
    </tr>
  </table>
  <br>
  Son:<b>'.strtoupper(num2letras(number_format($cred['montoOT'], 2, '.', '')))." ".$monAb.'</b>';
  $codeContents = "#COMPROBANTE:[$valor],#CREDITO:[".$credd['cuenta']."],FECHA:[".$credd['fecha']."],#CLIENTE:[".$cred['idpersona']."],PRESTATARIO:[".$per['nombre']." ".$per['paterno']." ".$per['materno']."],MONTO:[".number_format($cred['montoOT'], 2, '.', '')."],EJECUTIVO:[".$eje['nombre']." ".$eje['paterno']."]"; 
  $fileName = 'qr/'.$valor.'.png'; 
  $pngAbsoluteFilePath = $fileName; 
  $urlRelativeFilePath = $fileName; 
  if (!file_exists($pngAbsoluteFilePath)) { 
      QRcode::png($codeContents, $pngAbsoluteFilePath, QR_ECLEVEL_L, 3);
  }
  $html=$html.'
  <br>
  <table>
    <tr>
      <td width="400" align="center">
      <br><br><br><br><br><br>
      _____________________________________ <br>
      '.$per['nombre']." ".$per['paterno']." ".$per['materno'].'<br>
        '.$per['carnet'].' '.$per['expedido'].'
      </td>
      <td><img width="120px" src="'.$urlRelativeFilePath.'" /></td>
    </tr>
  </table><br><br>
  _______________________________________________________________________________________________________';
  $pdf->writeHTMLCell(0, 0, '', '', $html, 0, 1, 0, true, '', true);

  // COPIA DEL COMPROBANTE

  $html=' <br><br>
  <br><br><br><br>
  <style>
    .tituloFactura{
      font-size:13px;
      font-weight: bold;
    }
    .tituloCenda{
      color:red;
    }
    .letras{
      font-size:7px;
    }
    .letras1{
      font-size:8px;
    }
    .letras2{
      font-size:14px;
    }
    .letras3{
      font-size:8px;
    }
  </style>
  <table width="100%"  align="center">
    <tr>
      <td width="40%" class="letras">
        <center>
          <img width="150px;" src="'.$rutaImg.'" ><br>
          <b>'.$demp['nombre'].'</b><br>
          ';
          $html=$html.'
          <b>Dirección:</b>'.$demp['direccion'].'<br>
          <b>Telfs.:</b>'.$demp['telefono'].'<br>
          LA PAZ - BOLIVIA
        </center>
      </td>
      <td width="27%"><br>
        <div class="tituloFactura">OTORGACION DE CRÉDITO INTERNO</div>
      </td>
      <td width="33%">
        <table>
          <tr>
            <td>
              <table class="letras1" cellpadding="1">
                <tr>
                  <td align="right">
                    #COMPROBANTE :
                  </td>
                  <td align="left">
                    <b>'.$valor.'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    FECHA:
                  </td>
                  <td align="left">
                    <b>'.$credd['fecha'].'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    HORA:
                  </td>
                  <td align="left">
                    <b>'.$credd['horacreacion'].'</b>
                  </td>
                </tr>
                <tr>
                  <td align="right">
                    EJECUTIVO:
                  </td>
                  <td align="left">
                    <b>'.$dus['usuario'].'</b>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>';
  $pdf->SetFont('helvetica', '', 9);
  $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-right: solid 1px #fff;
      border-bottom: solid 1px #606060;
      border-left: solid 1px #fff;
    }
    .letras{
      font-size:6px;
      text-align: center;
    }
    .letras3{
      font-size:7px;
    }
    .letras4{
      font-size:8px;
    }
    .letras5{
      font-size:9px;
    }
    .cabeceraCentro{
      padding: 1px;
      border-top: solid 1px white;
      border-bottom: solid 1px white;
    }
    .cabecera2{
      border-top: solid 1px #606060;
      border-bottom: solid 1px #606060;
      font-weight: bold;
    }
    .cabecera3{
    }
    .cabecera4{
      border-top: solid 1px #606060;
      border-bottom: solid 1px #606060;
      border-left: solid 1px #606060;
      border-right: solid 1px #606060;
      margin-top: 20px;
    }
    .tabla{
      border-top: solid 1px #606060;
      border-bottom: solid 1px #606060;
      border-left: solid 1px #606060;
      border-right: solid 1px #606060;
    }
  </style>';
  $html=$html.'
 <table class="cabecera3" width="530">
    <tr>
      <td width="30%"><b>N° CREDITO: </b>'.$idcredito.'</td>
      <td width="30%"><b>NOMBRE: </b>'.$per['nombre']." ".$per['paterno']." ".$per['materno'].'</td>
      <td width="40%"><b>CARNET : </b>'.$per['carnet'].' '.$per['expedido'].'</td>
    </tr>
    <tr>
      <td><b>MONTO.: </b>'.$cred['monto'].' Bs.</td>
      <td><b>INTERES RECIBIDO: </b>'.$cred['interescobrado'].' Bs.</td>
      <td><b>INTERES A DEVOLVER : </b>'.$cred['interesCli'].'Bs.</td>
    </tr>
    <tr>
      <td><b>Cuotas: </b>'.$cred['plazo'].' Cuotas</td>
      <td><b>Lapso entre cuotas: </b>'.$cred['lapsoDias'].' Días</td>
      <td><b>Fecha Vencimiento: </b>'.$cred['fechavencimiento'].'</td>
    </tr>
    <tr>
      <td><b>Ejecutivo : </b>'.$eje['nombre']." ".$eje['paterno'].'</td>
      <td><b>Fecha Primer pago: </b>'.$cred['fechaprimer'].'</td>
      <td></td>
    </tr>
  </table>
  <br>
  Son:<b>'.strtoupper(num2letras(number_format($cred['montoOT'], 2, '.', '')))." ".$monAb.'</b>';
  $html=$html.'
  <br>
  <table>
    <tr>
      <td width="400" align="center">
      <br><br><br><br><br><br>
      _____________________________________ <br>
      '.$per['nombre']." ".$per['paterno']." ".$per['materno'].'<br>
        '.$per['carnet'].' '.$per['expedido'].'
      </td>
      <td><img width="120px" src="'.$urlRelativeFilePath.'" /></td>
    </tr>
  </table>';
  $pdf->writeHTMLCell(0, 0, '', '', $html, 0, 1, 0, true, '', true);

  $pdf->Output('CompOtorgacion'.$valor.'.pdf', 'I');

?>
