error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LEGAL','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(2,3,3,3); // Configuración de los margenes en centímetros(para el rectangulo)
uf_print_encabezado_pagina($ls_titulo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página
$li_tot=$io_report->dts_cab->getRowCount("programatica");
for($li_i=1;$li_i<=$li_tot;$li_i++)
{
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
$ls_programatica=$io_report->dts_cab->data["programatica"][$li_i];
$ls_codestpro1=substr($ls_programatica,0,20);
$ls_denestpro1="";
$lb_valido=$io_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1);
if($lb_valido)
{
$ls_denestpro1=$ls_denestpro1;
}
$ls_codestpro2=substr($ls_programatica,20,6);
if($lb_valido)
{
$ls_denestpro2="";
$lb_valido=$io_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2);
$ls_denestpro2=$ls_denestpro2;
}
$ls_codestpro3=substr($ls_programatica,26,3);
if($lb_valido)
{
$ls_denestpro3="";
