$ls_denestpro2=$ls_denestpro2;
					}
					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_codestpro1    = trim(substr($ls_codestpro1,-$li_loncodestpro1));
					$ls_codestpro2    = trim(substr($ls_codestpro2,-$li_loncodestpro2));
					$ls_codestpro3    = trim(substr($ls_codestpro3,-$li_loncodestpro3));