$ld_total_por_paga=0; $thisPageNum=$io_pdf->ezPageCount; $ls_programatica=$row["programatica"]; $ls_estcla=substr($ls_programatica,-1); $ls_codestpro1=substr($ls_programatica,0,25); $ls_denestpro1=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,$ls_denestpro1,$ls_estcla); if($lb_valido) { $ls_denestpro1=$ls_denestpro1; } $ls_codestpro2=substr($ls_programatica,25,25); if($lb_valido) { $ls_denestpro2=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,$ls_denestpro2,$ls_estcla); $ls_denestpro2=$ls_denestpro2; } $ls_codestpro3=substr($ls_programatica,50,25); if($lb_valido) { $ls_denestpro3=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_denestpro3,$ls_estcla); $ls_denestpro3=$ls_denestpro3; } if($li_estmodest==2) { $ls_codestpro4=substr($ls_programatica,75,25); if($lb_valido) { $ls_denestpro4="";
$as_nombre["D"]["3"]=""; $as_nombre["H"]["1"]=""; $as_nombre["H"]["2"]=""; $as_nombre["H"]["3"]=""; $as_denestpro1=""; $io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1,&$as_denestpro1,$ls_estclades); $as_nombre["D"]["1"]=$as_denestpro1; if($ls_codestpro1h!="") { $io_function_report->uf_spg_reporte_select_denestpro1($ls_codestpro1h,&$as_denestpro1,$ls_estclahas); $as_nombre["H"]["1"]=$as_denestpro1; } if($ls_codestpro2!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1,$ls_codestpro2,&$as_denestpro,$ls_estclades); $as_nombre["D"]["2"]=$as_denestpro; } if($ls_codestpro2h!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro2($ls_codestpro1h,$ls_codestpro2h,&$as_denestpro,$ls_estclahas); $as_nombre["H"]["2"]=$as_denestpro; } if($ls_codestpro3!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,&$as_denestpro,$ls_estclades); $as_nombre["D"]["3"]=$as_denestpro; } if($ls_codestpro3h!="")