}
$ls_denestpro=$ls_denestpro1;//." , ".$ls_denestpro2." , ".$ls_denestpro3;
if($li_estmodest==2)
{
$ls_codestpro4=substr($ls_programatica,75,25);
if($lb_valido)
{
$ls_denestpro4="";
$lb_valido=$io_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_denestpro4,$ls_estcla);
$ls_denestpro4=trim($ls_denestpro4);
}
$ls_codestpro5=substr($ls_programatica,100,25);
if($lb_valido)
{
$ls_denestpro5="";
$lb_valido=$io_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denestpro5,$ls_estcla);
$ls_denestpro5=trim($ls_denestpro5);
}
//$ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3)." , ".trim($ls_denestpro4)." , ".trim($ls_denestpro5);
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3)."-".substr($ls_codestpro4,-$ls_loncodestpro4)."-".substr($ls_codestpro5,-$ls_loncodestpro5);
}
else
{
//$ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3);
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
}
$ld_pres_anual=$ld_monto_programado+$ld_aumdismes; //programado de los meses
$ld_programada_acumulado=$ld_monto_acumulado+$ld_aumdisacum; //acumulado programado de los meses
$ld_monto_ejecutado=$ld_monto_ejecutado; // monto ejecutado de los meses
$ld_ejecutado_acumulado=$ld_ejecutado_acumulado; // monto ejecutado acumulado de los meses
