"; print "location.href='../../sigesp_inicio_sesion.php'"; print ""; } $ls_loncodestpro1=$_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2=$_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3=$_SESSION["la_empresa"]["loncodestpro3"]; $ls_loncodestpro4=$_SESSION["la_empresa"]["loncodestpro4"]; $ls_loncodestpro5=$_SESSION["la_empresa"]["loncodestpro5"]; ?> Definición de Unidad Ejecutora
Sistema de Configuración
 
 
NuevoGrabarBuscarImprimirEliminarSalirAyuda
uf_sss_load_permisossigesp(); } else { $ls_permisos = $_POST["permisos"]; $la_accesos["leer"] = $_POST["leer"]; $la_accesos["incluir"] = $_POST["incluir"]; $la_accesos["cambiar"] = $_POST["cambiar"]; $la_accesos["eliminar"] = $_POST["eliminar"]; $la_accesos["imprimir"] = $_POST["imprimir"]; $la_accesos["anular"] = $_POST["anular"]; $la_accesos["ejecutar"] = $_POST["ejecutar"]; } } else { $la_accesos["leer"] = ""; $la_accesos["incluir"] = ""; $la_accesos["cambiar"] = ""; $la_accesos["eliminar"] = ""; $la_accesos["imprimir"] = ""; $la_accesos["anular"] = ""; $la_accesos["ejecutar"] = ""; $ls_permisos=$io_seguridad->uf_sss_load_permisos($ls_codemp,$ls_logusr,$ls_sistema,$ls_ventanas,$la_accesos); } //Inclusión de la clase de seguridad. $nvo_estprog=new sigesp_spg_c_unidad($arr_seguridad); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// function uf_cargar_dt($li_fila) { global $ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_central; if(array_key_exists("txtcodestpro1".$li_fila,$_POST)) { $ls_codestpro1=$_POST["txtcodestpro1".$li_fila]; } if(array_key_exists("txtcodestpro2".$li_fila,$_POST)) { $ls_codestpro2=$_POST["txtcodestpro2".$li_fila]; } if(array_key_exists("txtcodestpro3".$li_fila,$_POST)) { $ls_codestpro3=$_POST["txtcodestpro3".$li_fila]; } if(array_key_exists("txtcodestpro4".$li_fila,$_POST)) { $ls_codestpro4=$_POST["txtcodestpro4".$li_fila]; } else { $ls_codestpro4=""; } if(array_key_exists("txtcodestpro5".$li_fila,$_POST)) { $ls_codestpro5=$_POST["txtcodestpro5".$li_fila]; } else { $ls_codestpro5=""; } $ls_estcla=$_POST["txtestcla".$li_fila]; $ls_central=$_POST["txtcentral".$li_fila]; } require_once("../../shared/class_folder/class_mensajes.php"); $msg=new class_mensajes(); $siginc=new sigesp_include(); $con=$siginc->uf_conectar(); $ds=null; if( array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; $ls_codunieje = $_POST["txtcodunieje"]; $ls_denunieje = $_POST["txtdenunieje"]; $ls_status = $_POST["status"]; if(array_key_exists("estreq",$_POST)) { $ls_estreq=$_POST["estreq"]; } else { $ls_estreq=0; } $ls_coduniadm = $_POST["txtcoduniadm"]; $ls_denuniadm = ""; } else { $ls_operacion = "NUEVO"; $ls_codestpro1 = ""; $ls_codestpro2 = ""; $ls_codestpro3 = ""; $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_denestpro1 = ""; $ls_denestpro2 = ""; $ls_denestpro3 = ""; $ls_denestpro4 = ""; $ls_denestpro5 = ""; $ls_codunieje = ""; $ls_denunieje = ""; $ls_estreq = ""; $ls_status = "N"; $ls_coduniadm = ""; $disabled = ""; $ls_denuniadm = ""; $ls_estcla1 = ""; $ls_estcla2 = ""; $ls_estcla3 = ""; $ls_estcla4 = ""; $ls_estcla5 = ""; } if($ls_operacion=="GUARDAR") { if(($ls_codunieje!="")&&($ls_denunieje!="")) { $lb_valido = $nvo_estprog->uf_guardar_unidad_adm($ls_codemp,$ls_codunieje,$ls_denunieje,$ls_estreq,$ls_coduniadm,$ls_status); if ($lb_valido) { $nvo_estprog->uf_delete_dt_unidad_adm($ls_codemp,$ls_codunieje); for ($i=1;$i<$li_totrowestpro;$i++) { uf_cargar_dt($i); $ls_codestp1 = str_pad(trim($ls_codestpro1),25,0,0); $ls_codestp2 = str_pad(trim($ls_codestpro2),25,0,0); $ls_codestp3 = str_pad(trim($ls_codestpro3),25,0,0); if ($li_estmodest==1) { $ls_codestp4 = str_pad(0,25,0,0); $ls_codestp5 = str_pad(0,25,0,0); } else { $ls_codestp4 = str_pad($ls_codestpro4,25,0,0); $ls_codestp5 = str_pad($ls_codestpro5,25,0,0); } $lb_valido= $nvo_estprog->uf_guardar_dt_unidad_adm($ls_codemp,$ls_codunieje,$ls_codestp1,$ls_codestp2,$ls_codestp3,$ls_codestp4,$ls_codestp5,$ls_estcla,$ls_status,$ls_central); } $msg->message($nvo_estprog->is_msg_error); $ls_operacion="NUEVO"; $disabled="readonly"; } else { $msg->message($nvo_estprog->is_msg_error); $disabled=""; } } else { $msg->message("Debe completar todos los campos"); $disabled=""; } } elseif($ls_operacion=="BUSCAR") { $ls_codestpro1 = $_POST["txtcodestpro1"]; $ls_codestpro2 = $_POST["hicodest2"]; $ls_codestpro3 = $_POST["hicodest3"]; $ls_codestpro4 = $_POST["hicodest4"]; $ls_codestpro5 = $_POST["hicodest5"]; $disabled = "readonly"; } elseif($ls_operacion=="ELIMINAR") { if(($ls_codunieje!="")&&($ls_denunieje!="")) { $lb_valido=$nvo_estprog->uf_delete_unidad_adm($ls_codunieje,$ls_denunieje,$ls_estreq,$ls_status); if($lb_valido) { $msg->message($nvo_estprog->is_msg_error); $ls_codestpro1 = ""; $ls_codestpro2 = ""; $ls_codestpro3 = ""; $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_codunieje = ""; $ls_denunieje = ""; $ls_estreq = ""; $disabled = ""; $ls_operacion = "NUEVO"; } else { $msg->message($nvo_estprog->is_msg_error); $disabled=""; } } else { $msg->message("Debe completar todos los campos"); } } if($ls_operacion=="NUEVO") { $disabled=""; require_once("../../shared/class_folder/class_funciones_db.php"); $fundb = new class_funciones_db($con); $ls_codunieje = $fundb->uf_generar_codigo(true,$ls_codemp,"spg_unidadadministrativa","coduniadm"); if($ls_codunieje=="") { $msg->message($fundb->is_msg_error); } $ls_coduniadm = ""; $ls_denuniadm = ""; $ls_denunieje = ""; $ls_estreq = 0; $ls_status = "N"; $ls_codestpro1 = "";$ls_denestpro1 = ""; $ls_codestpro2 = "";$ls_denestpro2 = ""; $ls_codestpro3 = "";$ls_denestpro3 = ""; $ls_codestpro4 = "";$ls_denestpro4 = ""; $ls_codestpro5 = "";$ls_denestpro5 = ""; $ls_estcla1 = "";$ls_estcla2 = ""; $ls_estcla3 = "";$ls_estcla4 = ""; $ls_estcla5 = ""; } else { $disabled=""; } ?>

 

"); print(""); print(""); print(""); print(""); print(""); print(""); print(""); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

 

Unidad Ejecutora
 

Codigo
onKeyPress="return keyRestrict(event,'1234567890');" >
Denominación
Emite Requisición
Unidad Administradora
Buscar...