uf_conectar(); require_once("../../shared/class_folder/class_mensajes.php"); $io_msg=new class_mensajes(); require_once("../../shared/class_folder/class_funciones.php"); $io_function=new class_funciones(); require_once("../../shared/class_folder/class_datastore.php"); $ds=new class_datastore(); require_once("../../shared/class_folder/class_sql.php"); $io_sql=new class_sql($io_connect); $ls_codemp=$la_empresa["codemp"]; $li_estmodest=$_SESSION["la_empresa"]["estmodest"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $ls_codestprog1=$_POST["codestpro1"]; if(array_key_exists("denestpro1",$_POST)) { $ls_denestprog1=$_POST["denestpro1"]; } else { $ls_denestprog1=""; } $ls_codestprog2=$_POST["codestpro2"]; if(array_key_exists("denestpro2",$_POST)) { $ls_denestpro2=$_POST["denestpro2"]; } else { $ls_denestpro2=""; } $ls_codestprog3=$_POST["codestpro3"]; if(array_key_exists("denestpro3",$_POST)) { $ls_denestpro3=$_POST["denestpro3"]; } else { $ls_denestpro3=""; } $ls_codestprog4=$_POST["codestpro4"]; if(array_key_exists("denestpro4",$_POST)) { $ls_denestpro4=$_POST["denestpro4"]; } else { $ls_denestpro4=""; } $ls_codigo="%".$_POST["codestpro5"]."%"; $ls_denominacion="%".$_POST["denominacion"]."%"; if(array_key_exists("tipo",$_GET)) { $ls_tipo=$_GET["tipo"]; } else { $ls_tipo=""; } if(array_key_exists("estcla",$_GET)) { $ls_estcla=$_GET["estcla"]; } else { $ls_estcla=""; } } else { $ls_operacion="BUSCAR"; $ls_codigo="%%"; $ls_denominacion="%%"; $ls_codestprog1=$_GET["codestpro1"]; if(array_key_exists("denestpro1",$_GET)) { $ls_denestprog1=$_GET["denestpro1"]; } else { $ls_denestprog1=""; } $ls_codestprog2=$_GET["codestpro2"]; if(array_key_exists("denestpro2",$_GET)) { $ls_denestprog2=$_GET["denestpro2"]; } else { $ls_denestprog2=""; } $ls_codestprog3=$_GET["codestpro3"]; if(array_key_exists("denestpro3",$_GET)) { $ls_denestprog3=$_GET["denestpro3"]; } else { $ls_denestprog3=""; } $ls_codestprog4=$_GET["codestpro4"]; if(array_key_exists("denestpro4",$_GET)) { $ls_denestprog4=$_GET["denestpro4"]; } else { $ls_denestprog4=""; } if(array_key_exists("tipo",$_GET)) { $ls_tipo=$_GET["tipo"]; } else { $ls_tipo=""; } if(array_key_exists("estcla",$_GET)) { $ls_estcla=$_GET["estcla"]; } else { $ls_estcla=""; } } $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"]; if(array_key_exists("unidad",$_GET)) { $ls_unidad=$_GET["unidad"]; } else { $ls_unidad=""; } ?> Catalogo de Programatica Nivel 5 <?php print $la_empresa["nomestpro5"] ?>

Catálogo

Codigo
Denominacion
 

"; print ""; print "".$la_empresa["nomestpro1"].""; print "".$la_empresa["nomestpro2"].""; print "".$la_empresa["nomestpro3"].""; print "".$la_empresa["nomestpro4"].""; print "Código "; print "Denominación"; print "Tipo"; print ""; if($ls_operacion=="BUSCAR") { $ls_codestpro1=$io_function->uf_cerosizquierda($ls_codestprog1,25); $ls_codestpro2=$io_function->uf_cerosizquierda($ls_codestprog2,25); $ls_codestpro3=$io_function->uf_cerosizquierda($ls_codestprog3,25); $ls_codestpro4=$io_function->uf_cerosizquierda($ls_codestprog4,25); if ($ls_unidad!="") { $ls_unidad=str_pad($ls_unidad,10,"0",0); $ls_tabla=", spg_dt_unidadadministrativa d "; $ls_criterio=" AND d.codemp=codemp ". " AND d.codestpro1= codestpro1 ". " AND d.codestpro2= codestpro2 ". " AND d.codestpro3= codestpro3 ". " AND d.codestpro4= codestpro4 ". " AND d.codestpro5= codestpro5 ". " AND d.estcla= estcla ". " AND d.coduniadm='".$ls_unidad."' "; } else { $ls_tabla=" "; $ls_criterio=" "; } $ls_logusr = $_SESSION["la_logusr"]; $ls_gestor = $_SESSION["ls_gestor"]; $ls_sql_seguridad = ""; if (strtoupper($ls_gestor) == "MYSQLT") { $ls_sql_seguridad = " AND CONCAT('".$ls_codemp."','SPG','".$ls_logusr."',codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla) IN (SELECT distinct CONCAT(codemp,codsis,codusu,codintper) FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled = 1)"; } else { $ls_sql_seguridad = " AND '".$ls_codemp."'||'SPG'||'".$ls_logusr."'||codestpro1||codestpro2||codestpro3||codestpro4||codestpro5||estcla IN (SELECT distinct codemp||codsis||codusu||codintper FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled = 1)"; } $ls_sql=" SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,denestpro5,estcla ". " FROM spg_ep5 ".$ls_tabla. " WHERE codemp='".$ls_codemp."' AND codestpro1 ='".$ls_codestpro1."' AND ". " codestpro2 ='".$ls_codestpro2."' AND codestpro3 ='".$ls_codestpro3."' AND ". " codestpro4 ='".$ls_codestpro4."' AND codestpro5 like '".$ls_codigo."' AND ". " UPPER(denestpro5) like '".strtoupper($ls_denominacion)."' AND estcla='".$ls_estcla."' ".$ls_criterio.$ls_sql_seguridad." ". " ORDER BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5"; $rs_data=$io_sql->select($ls_sql); $li_numrows=$io_sql->num_rows($rs_data); if($li_numrows>0) { while($row=$io_sql->fetch_row($rs_data)) { print ""; $ls_codestpro1=$row["codestpro1"]; $ls_codestpro2=$row["codestpro2"]; $ls_codestpro3=$row["codestpro3"]; $ls_codestpro4=$row["codestpro4"]; $ls_codestpro5=$row["codestpro5"]; $ls_denominacion=$row["denestpro5"]; $ls_estclaprog=$row["estcla"]; if($ls_estclaprog=="A") { $ls_estcla="ACCION"; } elseif($ls_estclaprog=="P") { $ls_estcla="PROYECTO"; } $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=25-$ls_loncodestpro1; $ls_codestpro1=substr($ls_codestpro1,$ls_incio1,$ls_loncodestpro1); $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=25-$ls_loncodestpro2; $ls_codestpro2=substr($ls_codestpro2,$ls_incio2,$ls_loncodestpro2); $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=25-$ls_loncodestpro3; $ls_codestpro3=substr($ls_codestpro3,$ls_incio3,$ls_loncodestpro3); $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=25-$ls_loncodestpro4; $ls_codestpro4=substr($ls_codestpro4,$ls_incio4,$ls_loncodestpro4); $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=25-$ls_loncodestpro5; $ls_codestpro5=substr($ls_codestpro5,$ls_incio5,$ls_loncodestpro5); /*$codestprog1=substr($codestprog1,18,2); $codestprog2=substr($codestprog2,4,2); $codestprog3=substr($codestprog3,1,2); $codestprog4=substr($codestprog4,0,2); $codigo=substr($codigo,0,2);*/ if($ls_tipo=="") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "". trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; print "".$ls_estcla.""; print ""; } if($ls_tipo=="apertura") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "". trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; print "".$ls_estcla.""; print ""; } if($ls_tipo=="progrep") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "". trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; print "".$ls_estcla.""; print ""; } if($ls_tipo=="reporte") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "". trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; print "".$ls_estcla.""; print ""; } if($ls_tipo=="rephas") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "". trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; print "".$ls_estcla.""; print ""; } } if(($ls_tipo!="")&&($li_estmodest==2)) { print ""; if($ls_tipo=="reporte") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "**"; print "Todas"; print ""; } if($ls_tipo=="rephas") { print "". trim($ls_codestpro1).""; print "". trim($ls_codestpro2).""; print "". trim($ls_codestpro3).""; print "". trim($ls_codestpro4).""; print "**"; print "Todas"; print ""; } } } } print ""; ?>