$lb_valido=$lo_liq_dao->getCabeceraLiquidacion($ls_codper,$ls_codnom,$ls_numliq,$la_array);
if ($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
print(" alert('No existen datos a Reportar.');");
print(" close();");
print("</script>");
}
else
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
$ls_cedper = $la_array["cedper"][0];
$ls_fecliq = $lo_function->uf_dtoc($la_array["fecliq"][0]);
$ls_fecing = $lo_function->uf_dtoc($la_array["fecing"][0]);
$ls_fecegr = $lo_function->uf_dtoc($la_array["fecegr"][0]);
$ls_cargo = $la_array["descargo"][0];
$li_anoser = $la_array["anoser"][0];
$li_messer = $la_array["messer"][0];
$li_diaser = $la_array["diaser"][0];
$ls_dencauret = $la_array["dencauret"][0];
$ld_salint = $lo_function->uf_ntoc($la_array["salint"][0], 2);
$ld_sueproper = $lo_function->uf_ntoc($la_array["sueproper"][0], 2);
$ld_suediaper = $la_array["salint"][0]/30;
$ld_suediaper = $lo_function->uf_ntoc($ld_suediaper, 2);
$ls_desuniadm = $la_array["desuniadm"][0];
$la_data[0]=array('numliq'=>$ls_numliq,'fecliq'=>$ls_fecliq);
uf_print_cabecera_1($la_data,$io_pdf);
$li_totrow=count($la_array["cedper"]);
for($li_i=0;$li_i<$li_totrow;$li_i++)
{
// Obtenemos el detalle del reporte
$lb_hay = $lo_antig_dao->getDetalleDeuda("ORDER BY fecant ",$la_array['codper'][$li_i],$la_detalle);
if($lb_hay)
{
$li_diaant =0;
$ld_monant =0;
$ld_monantant =0;
$ld_monint = 0;
$li_totrow_det=count($la_detalle["fecant"]);
for($li_d=0;$li_d<$li_totrow_det;$li_d++)
{
if ($li_d==0) $ld_fecdesde=$lo_function->uf_dtoc($la_detalle["fecant"][$li_d]);
$li_diaant = ($li_diaant + $la_detalle["diaacu"][$li_d]);
$ld_monant = ($ld_monant + $la_detalle["monant"][$li_d]);
$ld_monantant = ($ld_monantant + $la_detalle["monantant"][$li_d]);
$ld_monint = ($ld_monint + $la_detalle["monint"][$li_d]);
if ($li_d==$li_totrow_det-1) $ld_fechasta=$lo_function->uf_dtoc($la_detalle["fecant"][$li_d]);
}
$ls_cedper = $la_array["cedper"][$li_i];
$ls_nomper = $la_array["nomper"][$li_i]." ".$la_array["apeper"][$li_i];
$ls_desnom = $la_array["desnom"][$li_i];
$ld_parcial= ($ld_monant-$ld_monantant);
$ld_total = ($ld_parcial+$ld_monint);
$ld_monant = $lo_function->uf_ntoc($ld_parcial, 2);
$ld_monint = $lo_function->uf_ntoc($ld_monint, 2);
$ls_contenido="";
$ls_contenido=uf_leer_archivo($ls_archivo);
$la_matriz=explode("sectd",$ls_contenido);
$ls_cabecera=$la_matriz[0]."sectd";
$li_inicio=strlen($ls_cabecera);
$li_final=strrpos($ls_contenido,"}");
$li_longitud=$li_final-$li_inicio;
$ls_nuevocuerpo=substr($ls_contenido,$li_inicio,$li_longitud);
$ls_punt=fopen($ls_salida,"w");
fputs($ls_punt,$ls_cabecera);
//-----------------------------------------------------------------------------------------------------------------//
$ls_cedper = $la_personal["cedper"][0];
$ls_nomper = $la_personal["nomper"][0];
$ls_apeper = $la_personal["apeper"][0];
$ls_fecingper= $lo_function->uf_dtoc($la_personal["fecingper"][0]);
$ls_descar = $la_personal["descar"][0];
$ls_codnom = $la_personal["codnom"][0];
$ls_desnom = $la_personal["desnom"][0];
$ls_desuniadm = $la_personal["desuniadm"][0];
$ld_monant = $lo_function->uf_ntoc($la_personal["monant"][0], 2);
$ls_fecantper= $lo_function->uf_dtoc($la_personal["fecantper"][0]);
$ls_motant = $la_personal["motant"][0];
$ld_mondeulab = $lo_function->uf_ntoc($la_personal["mondeulab"][0], 2);
$ld_monporant = $lo_function->uf_ntoc($la_personal["monporant"][0], 2);
$ls_cuerpo=$ls_nuevocuerpo;
$ls_cuerpo=str_replace("\$ls_cedper",$ls_cedper,$ls_cuerpo);
$ls_cuerpo=str_replace("\$ls_nomper",$ls_nomper,$ls_cuerpo);
$ls_cuerpo=str_replace("\$ls_apeper",$ls_apeper,$ls_cuerpo);
$ls_cuerpo=str_replace("\$ldt_fecingper",$ls_fecingper,$ls_cuerpo);
$lb_valido=$lo_anticipo_dao->getReporteAnticipo($_GET["codper"],$la_array);
if ($lb_valido)
{
error_reporting(E_ALL);
set_time_limit(1800);
// $lo_pdf = new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
//$io_pdf->selectFont('../../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
// $io_pdf->ezSetCmMargins(4.5,3,3,3); // Configuración de los margenes en centímetros
// $io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=count($la_array["nomper"]);
$ld_monant = $lo_function->uf_ntoc($la_array["monant"][0], 2);
$ls_cedper = $la_array["cedper"][0];
$ls_nomper = $la_array["nomper"][0];
$ls_apeper = $la_array["apeper"][0];
$ls_fecingper= $lo_function->uf_dtoc($la_array["fecingper"][0]);
$ls_descar = $la_array["descar"][0];
$ls_codnom = $la_array["codnom"][0];
$ls_desnom = $la_array["desnom"][0];
$ls_desuniadm = $la_array["desuniadm"][0];
// $lo_pdf->add_texto('justification',30,11,' Por solicitud de la parte interesada, se hace entrega del Anticipo de Prestaciones Sociales ');
// $lo_pdf->add_texto('justification',40,11,'por el monto de Bs. <b>'.$ld_monant.'</b> al <b>Sr.(a) </b> <b>'.$ls_apeper.'</b>, <b>'.$ls_nomper.'</b>');
// $lo_pdf->add_texto('justification',50,11,'portador de la C.I. Nº <b>'.$ls_cedper.'</b> quien ocupa el cargo de <b>'.$ls_descar.'</b> en esta Institución, ');
// $lo_pdf->add_texto('justification',60,11,'desde la fecha <b>'.$ls_fecingper.'</b> en el Departamento de <b>'.$ls_desuniadm.'</b>');
// $lo_pdf->add_texto('justification',70,11,'como <b>'.$ls_desnom.'</b> ');
// $lo_pdf->add_texto('justification',110,11,'<b>Recibi conforme: </b> ');
// $lo_pdf->add_texto('justification',120,11,'<b>C.I.: </b> ');
if ($lb_valido) // Si no ocurrio ningún error
{
error_reporting(E_ALL);
set_time_limit(1800);
$li_totrow=count($la_array["codper"]);
for($li_i=0;$li_i<$li_totrow;$li_i++)
{
$lo_cabecera= $lo_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($la_array["codper"][$li_i],$la_array["nomper"][$li_i],$la_array["apeper"][$li_i],$lo_cabecera,$lo_pdf); // Imprimimos la cabecera del registro
/**/
// Obtenemos el detalle del reporte
$lb_hay = $lo_sueldos_dao->getDetalleSueldos("ORDER BY fecincsue",$la_array['codper'][$li_i],$la_detalle);
if($lb_hay)
{
$li_totrow_det=count($la_detalle["fecincsue"]);
for($li_d=0;$li_d<$li_totrow_det;$li_d++)
{
$ls_fecincsue = $lo_function->uf_dtoc($la_detalle["fecincsue"][$li_d]);
$ld_monsuebas = $lo_function->uf_ntoc($la_detalle["monsuebas"][$li_d], 2);
$ld_monsueint = $lo_function->uf_ntoc($la_detalle["monsueint"][$li_d], 2);
$ld_monsuenordia= $lo_function->uf_ntoc($la_detalle["monsuenordia"][$li_d], 2);
$la_data[$li_d]=array('fecha'=>$ls_fecincsue,'sueldo_base'=>$ld_monsuebas,'sueldo_integral'=>$ld_monsueint,'sueldo_diario'=>$ld_monsuenordia);
}
uf_print_detalle($la_data,$lo_pdf); // Imprimimos el detalle
$lo_pdf->stopObject($lo_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow-1)
{
$lo_pdf->ezNewPage(); // Insertar una nueva página
}
unset($lo_cabecera);
unset($la_data);
}
}
}
else // Imprimimos el reporte
{
error_reporting(E_ALL);
set_time_limit(1800);
$lo_cabecera= $lo_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($la_array["cedper"][0],$la_array["nomper"][0],$la_array["apeper"][0],$lo_cabecera,$lo_pdf); // Imprimimos la cabecera del registro
// Obtenemos el detalle del reporte
$lb_hay = $lo_antiguedad_dao->getDetalleAntiguedad("ORDER BY ".$_GET["orden"],$_GET["codper"],$_GET["fechainicio"],$_GET["fechafin"],$la_detalle);
if($lb_hay)
{
$li_totrow_det=count($la_detalle["fecant"]);
for($li_d=0;$li_d<$li_totrow_det;$li_d++)
{
$ls_fecant = $lo_function->uf_dtoc($la_detalle["fecant"][$li_d]);
$ld_salbas = $lo_function->uf_ntoc($la_detalle["salbas"][$li_d], 2);
$ld_incbonvac = $lo_function->uf_ntoc($la_detalle["incbonvac"][$li_d], 2);
$ld_incbonnav = $lo_function->uf_ntoc($la_detalle["incbonnav"][$li_d], 2);
$ld_salintdia = $lo_function->uf_ntoc($la_detalle["salintdia"][$li_d], 2);
$li_diabas = $la_detalle["diabas"][$li_d];
$li_diacom = $la_detalle["diacom"][$li_d];
$ld_monant = $lo_function->uf_ntoc($la_detalle["monant"][$li_d], 2);
$ld_monacuant = $lo_function->uf_ntoc($la_detalle["monacuant"][$li_d], 2);
$ld_monantant = $lo_function->uf_ntoc($la_detalle["monantant"][$li_d], 2);
$ld_salparant = $lo_function->uf_ntoc($la_detalle["salparant"][$li_d], 2);
$ld_porint = $lo_function->uf_ntoc($la_detalle["porint"][$li_d], 2);
$li_diaint = $la_detalle["diaint"][$li_d];
$ld_monint = $lo_function->uf_ntoc($la_detalle["monint"][$li_d], 2);
$ld_monacuint = $lo_function->uf_ntoc($la_detalle["monacuint"][$li_d], 2);
$ld_saltotant = $lo_function->uf_ntoc($la_detalle["saltotant"][$li_d], 2);
