set_time_limit(1800);
$io_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(3.6,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_titulo2,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$io_report->DS->getRowCount("codper");
$lb_cabecera=false;
$lb_print=false;
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codper=$io_report->DS->data["codper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$ls_nacper=$io_report->DS->data["nacper"][$li_i];
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$lb_valido=$io_report->uf_retencionarc_meses($ls_codper,$la_nominas,$li_total,$ls_ano); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
$li_arcacum=0;
$li_islracum=0;
$lb_arc=false;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codisr=$io_report->DS_detalle->data["codisr"][$li_s];
$li_porisr=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["porisr"][$li_s]);
$li_arcacum=$li_arcacum+abs($io_report->DS_detalle->data["arc"][$li_s]);
$li_islracum=$li_islracum+abs($io_report->DS_detalle->data["islr"][$li_s]);
$li_arc=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["arc"][$li_s]));
$li_islr=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["islr"][$li_s]));
$li_arc_acumulado=$io_fun_nomina->uf_formatonumerico($li_arcacum);
