uf_conectar(); $io_msg = new class_mensajes(); $io_sql = new class_sql($con); $io_funcion = new class_funciones(); $ls_codemp = $arr["codemp"]; $li_estmodest = $arr["estmodest"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; $ls_codestpro = $_POST["txtcodestpro"]; $ls_denestpro = $_POST["txtdenestpro"]; if (array_key_exists("tipo",$_GET)) { $ls_tipo = $_GET["tipo"]; } else { $ls_tipo = ""; } } else { $ls_operacion="BUSCAR"; if(array_key_exists("tipo",$_GET)) { $ls_tipo=$_GET["tipo"]; } else { $ls_tipo=""; } $ls_codestpro = ""; $ls_denestpro = ""; } if (array_key_exists("coduniadmin",$_GET)) { $ls_coduniadmin=$_GET["coduniadmin"]; } else { $ls_coduniadmin=""; } ?> Catálogo de Programatica Nivel 5 <?php print $arr["nomestpro5"] ?> Catálogo de Programatica Nivel 3 <?php print $arr["nomestpro3"] ?>

 


Catálogo de Programatica Nivel 5 Catálogo de Programatica Nivel 3
   
Codigo
Denominacion
 

"; print ""; print "".$arr["nomestpro1"].""; print "".$arr["nomestpro2"].""; if ($li_estmodest=='1') { print "Código "; print "Denominación"; print "Tipo"; } else { print "".$arr["nomestpro3"].""; print "".$arr["nomestpro4"].""; print "Código "; print "Denominación"; } print ""; if ($ls_operacion=="BUSCAR") { if (!empty($ls_codestpro1) && !empty($ls_codestpro2) && !empty($ls_codestpro3)) { $ls_codestpro1 = str_pad($ls_codestpro1,25,0,0); $ls_codestpro2 = str_pad($ls_codestpro2,25,0,0); $ls_codestpro3 = str_pad($ls_codestpro3,25,0,0); } if ($li_estmodest==1) { $ls_sql="SELECT SUBSTR(spg_dt_unidadadministrativa.codestpro1,".$li_longestpro1.",25) AS codestpro1, SUBSTR(spg_dt_unidadadministrativa.codestpro2,".$li_longestpro2.",25) AS codestpro2, SUBSTR(spg_dt_unidadadministrativa.codestpro3,".$li_longestpro3.",25) AS codestpro3, SUBSTR(spg_dt_unidadadministrativa.codestpro4,".$li_longestpro4.",25) AS codestpro4, SUBSTR(spg_dt_unidadadministrativa.codestpro5,".$li_longestpro5.",25) AS codestpro5, (SELECT denestpro1 FROM spg_ep1 WHERE spg_ep1.codestpro1=spg_dt_unidadadministrativa.codestpro1 AND spg_dt_unidadadministrativa.estcla=spg_ep1.estcla) AS denestpro1, (SELECT denestpro2 FROM spg_ep2 WHERE spg_ep2.codestpro1=spg_dt_unidadadministrativa.codestpro1 AND spg_ep2.codestpro2=spg_dt_unidadadministrativa.codestpro2 AND spg_dt_unidadadministrativa.estcla=spg_ep2.estcla) AS denestpro2, spg_ep3.denestpro3 as denestpro3, spg_dt_unidadadministrativa.estcla AS estcla FROM spg_unidadadministrativa, spg_dt_unidadadministrativa, spg_ep3 WHERE spg_unidadadministrativa.coduniadm='".$ls_coduniadmin."' AND spg_dt_unidadadministrativa.central='0' AND spg_unidadadministrativa.coduniadm=spg_dt_unidadadministrativa.coduniadm AND spg_ep3.codestpro1=spg_dt_unidadadministrativa.codestpro1 AND spg_ep3.codestpro2=spg_dt_unidadadministrativa.codestpro2 AND spg_ep3.codestpro3=spg_dt_unidadadministrativa.codestpro3 AND spg_ep3.estcla=spg_dt_unidadadministrativa.estcla"; } else { $ls_sql=" SELECT SUBSTR(spg_dt.codestpro1,".$li_longestpro1.",25) AS codestpro1, SUBSTR(spg_dt.codestpro2,".$li_longestpro2.",25) AS codestpro2, SUBSTR(spg_dt.codestpro3,".$li_longestpro3.",25) AS codestpro3, SUBSTR(spg_dt.codestpro4,".$li_longestpro4.",25) AS codestpro4, SUBSTR(spg_dt.codestpro5,".$li_longestpro5.",25) AS codestpro5, (SELECT denestpro1 FROM spg_ep1 WHERE spg_ep1.codestpro1=spg_dt.codestpro1 AND spg_dt.estcla=spg_ep1.estcla) AS denestpro1, (SELECT denestpro2 FROM spg_ep2 WHERE spg_ep2.codestpro1=spg_dt.codestpro1 AND spg_ep2.codestpro2=spg_dt.codestpro2 AND spg_dt.estcla=spg_ep2.estcla) AS denestpro2, (SELECT denestpro3 FROM spg_ep3 WHERE spg_ep3.codestpro1=spg_dt.codestpro1 AND spg_ep3.codestpro2=spg_dt.codestpro2 AND spg_ep3.codestpro3=spg_dt.codestpro3 AND spg_dt.estcla=spg_ep3.estcla) AS denestpro3, (SELECT denestpro4 FROM spg_ep4 WHERE spg_ep4.codestpro1=spg_dt.codestpro1 AND spg_ep4.codestpro2=spg_dt.codestpro2 AND spg_ep4.codestpro3=spg_dt.codestpro3 AND spg_ep4.codestpro4=spg_dt.codestpro4 AND spg_dt.estcla=spg_ep4.estcla) AS denestpro4, spg_ep5.denestpro5 as denestpro5,spg_dt.estcla AS estcla FROM spg_unidadadministrativa AS spg, spg_dt_unidadadministrativa AS spg_dt,spg_ep5 WHERE spg.coduniadm=spg_dt.coduniadm AND spg_ep5.codestpro5=spg_dt.codestpro5 AND spg_dt_unidadadministrativa.central='0' AND spg_ep5.codestpro1=spg_dt.codestpro1 AND spg_ep5.codestpro2=spg_dt.codestpro2 AND spg_ep5.codestpro3=spg_dt.codestpro3 AND spg_ep5.codestpro4=spg_dt.codestpro4 AND spg_dt.estcla=spg_ep5.estcla AND spg.coduniadm='".$ls_coduniadmin."'"; } $rs_data = $io_sql->select($ls_sql); while ($row=$io_sql->fetch_row($rs_data)) { print ""; $ls_codestpro1 = $row["codestpro1"]; $ls_denestpro1 = $row["denestpro1"]; $ls_codestpro2 = $row["codestpro2"]; $ls_denestpro2 = $row["denestpro2"]; $ls_codestpro3 = $row["codestpro3"]; $ls_denestpro3 = $row["denestpro3"]; $ls_estcla = $row["estcla"]; if ($li_estmodest=='2') { $ls_codestpro4 = $row["codestpro4"]; $ls_denestpro4 = $row["denestpro4"]; $ls_codestpro5 = $row["codestpro5"]; $ls_denestpro5 = $row["denestpro5"]; $ls_denominacion = $ls_denestpro5; } else { $ls_codestpro4 = str_pad('',25,0); $ls_codestpro5 = str_pad('',25,0); $ls_denominacion = $ls_denestpro3; } if ($ls_tipo=="") { print "".trim($ls_codestpro1).""; print "".trim($ls_codestpro2).""; print "".trim($ls_codestpro3).""; if ($li_estmodest=='2') { print "".trim($ls_codestpro4).""; print "".trim($ls_codestpro5).""; print "".trim($ls_denominacion).""; } else { print "".trim($ls_denominacion).""; if ($ls_estcla=='P') { print "PROYECTO"; } elseif($ls_estcla=='A') { print " ACCION"; } } print ""; } } } print ""; ?>