$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=""; $lb_valido=$io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_denestpro5,$ls_estcla); $ls_denestpro5=$ls_denestpro5; } $ls_denestpro=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3." , ".$ls_denestpro4." , ".$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=$ls_denestpro1." , ".$ls_denestpro2." , ".$ls_denestpro3;
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!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,&$as_denestpro,$ls_estclades); $as_nombre["D"]["4"]=$as_denestpro; } if($ls_codestpro4h!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro4($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h,&$as_denestpro,$ls_estclahas); $as_nombre["H"]["4"]=$as_denestpro; } if($ls_codestpro5!="") { $as_denestpro=""; $io_function_report->uf_spg_reporte_select_denestpro5($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,&$as_denestpro,$ls_estclades); $as_nombre["D"]["5"]=$as_denestpro; } if($ls_codestpro5h!="")