{
error_reporting(E_ALL);
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.3,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_periodo,$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("codconc");
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codconc=$io_report->DS->data["codconc"][$li_i];
$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_codconc,$ls_nomcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_ipasme_cobranza_personal($ls_codconc,$ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
$li_total=0;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["valsal"][$li_s]));
$li_total=$li_total+abs($io_report->DS_detalle->data["valsal"][$li_s]);
$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'total'=>$li_valsal);
}
$io_report->DS_detalle->resetds("cedper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total=$io_fun_nomina->uf_formatonumerico(abs($li_total));
