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="";
$lb_valido=$io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_denestpro4,$ls_estcla);
$ls_denestpro4=$ls_denestpro4;
}
$ls_codestpro5=substr($ls_programatica,100,25);
if($lb_valido)
{
$ls_denestpro5="";
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!="")
{
$as_denestpro="";
$io_function_report->uf_spg_reporte_select_denestpro3($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,&$as_denestpro,$ls_estclahas);
$as_nombre["H"]["3"]=$as_denestpro;
}
if($li_estmodest==2)
{
$as_nombre["D"]["4"]="";
$as_nombre["D"]["5"]="";
$as_nombre["H"]["4"]="";
$as_nombre["H"]["5"]="";
if($ls_codestpro4!="")
