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(2.5,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$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");
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$li_numpag=$io_pdf->ezPageCount; // Número de página
$ls_codper=$io_report->DS->data["codper"][$li_i];
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
uf_print_cabecera($ls_cedper,$ls_nomper,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_ipasme_beneficiario_bene($ls_codper,$ls_tiptra); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codben");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codben=$io_report->DS_detalle->data["codben"][$li_s];
$ls_cedben=$io_report->DS_detalle->data["cedben"][$li_s];
$ls_nomben=$io_report->DS_detalle->data["priapeben"][$li_s].", ". $io_report->DS_detalle->data["prinomben"][$li_s];
$ls_tiptraben=$io_report->DS_detalle->data["tiptraben"][$li_s];
$ls_codpare=$io_report->DS_detalle->data["codpare"][$li_s];
switch($ls_tiptraben)
{
case "I":
$ls_tiptraben="Ingreso";
break;
