$ld_total_aumento=0;
$ld_total_disminucion=0;
$ld_total_monto_actualizado=0;
$ld_total_compromiso=0;
$ld_total_precompromiso=0;
$ld_total_compromiso=0;
$ld_total_saldo_comprometer=0;
$ld_total_causado=0;
$ld_total_pagado=0;
$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="";
$ls_codestpro4 = $io_funciones->uf_cerosizquierda($ls_codestpro4_min,25);
$ls_codestpro5 = $io_funciones->uf_cerosizquierda($ls_codestpro5_min,25);
$ls_codestpro1h = $io_funciones->uf_cerosizquierda($ls_codestpro1h_max,25);
$ls_codestpro2h = $io_funciones->uf_cerosizquierda($ls_codestpro2h_max,25);
$ls_codestpro3h = $io_funciones->uf_cerosizquierda($ls_codestpro3h_max,25);
$ls_codestpro4h = $io_funciones->uf_cerosizquierda($ls_codestpro4h_max,25);
$ls_codestpro4h = $io_funciones->uf_cerosizquierda($ls_codestpro5h_max,25);
$as_nombre["D"]["1"]="";
$as_nombre["D"]["2"]="";
$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="";
