uf_conectar(); $io_msg = new class_mensajes(); $io_sql = new class_sql($ls_conect); $ls_codemp = $arr["codemp"]; $li_estmodest = $arr["estmodest"]; if (array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; if ($li_estmodest==2) { $ls_codestpro1 = $_POST["txtcodestpro1"]; $ls_codestpro2 = $_POST["txtcodestpro2"]; $ls_codestpro3 = $_POST["txtcodestpro3"]; $ls_codestpro4 = $_POST["txtcodestpro4"]; $ls_codestpro5 = $_POST["txtcodestpro5"]; } else{ $ls_codestpro1 = $_POST["txtcodestpro1"]; $ls_codestpro2 = $_POST["txtcodestpro2"]; $ls_codestpro3 = $_POST["txtcodestpro3"]; } $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("submit",$_GET)) { $ls_submit=$_GET["submit"]; } else { $ls_submit=""; } ?> 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
   
Denominacion
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) { if ($ls_tipo=="grid") { $ls_sql="SELECT SUBSTR(spg_ep3.codestpro1,".$li_longestpro1.",25) as codestpro1, SUBSTR(spg_ep3.codestpro2,".$li_longestpro2.",25) as codestpro2, SUBSTR(spg_ep3.codestpro3,".$li_longestpro3.",25) as codestpro3, spg_ep3.denestpro3, spg_ep3.estcla, spg_ep1.sc_cuenta, (SELECT denestpro1 FROM spg_ep1 WHERE spg_ep1.codestpro1=spg_ep3.codestpro1 AND spg_ep1.estcla=spg_ep3.estcla) as denestpro1, (SELECT denestpro2 FROM spg_ep2 WHERE spg_ep2.codestpro1=spg_ep3.codestpro1 AND spg_ep2.codestpro2=spg_ep3.codestpro2 AND spg_ep2.estcla=spg_ep3.estcla) as denestpro2 FROM spg_ep3, spg_ep1 WHERE spg_ep3.codestpro1 like '%$ls_codestpro1%' AND spg_ep3.codestpro2 like '%$ls_codestpro2%' AND spg_ep3.codestpro3 like '%$ls_codestpro3%' AND spg_ep3.denestpro3 like '%$ls_denestpro%' AND spg_ep1.codestpro1<>'-------------------------' AND spg_ep3.codemp=spg_ep1.codemp AND spg_ep3.codestpro1=spg_ep1.codestpro1 AND spg_ep3.estcla=spg_ep1.estcla ORDER BY codestpro1,codestpro2,codestpro3,spg_ep3.estcla"; }else { $ls_sql = "SELECT SUBSTR(spg_ep3.codestpro1,".$li_longestpro1.",25) as codestpro1, SUBSTR(spg_ep3.codestpro2,".$li_longestpro2.",25) as codestpro2, SUBSTR(spg_ep3.codestpro3,".$li_longestpro3.",25) as codestpro3, spg_ep3.denestpro3, spg_ep3.estcla, spg_ep1.sc_cuenta, (SELECT denestpro1 FROM spg_ep1 WHERE spg_ep1.codestpro1=spg_ep3.codestpro1 AND spg_ep1.estcla=spg_ep3.estcla) as denestpro1, (SELECT denestpro2 FROM spg_ep2 WHERE spg_ep2.codestpro1=spg_ep3.codestpro1 AND spg_ep2.codestpro2=spg_ep3.codestpro2 AND spg_ep2.estcla=spg_ep3.estcla) as denestpro2 FROM spg_ep3, spg_ep1 WHERE spg_ep3.codestpro1 like '%$ls_codestpro1%' AND spg_ep3.codestpro2 like '%$ls_codestpro2%' AND spg_ep3.codestpro3 like '%$ls_codestpro3%' AND spg_ep3.denestpro3 like '%$ls_denestpro%' AND spg_ep1.codestpro1<>'-------------------------' AND spg_ep3.codemp=spg_ep1.codemp AND spg_ep3.codestpro1=spg_ep1.codestpro1 AND spg_ep3.estcla=spg_ep1.estcla ORDER BY codestpro1,codestpro2,codestpro3,spg_ep3.estcla"; } } else { $ls_sql="SELECT SUBSTR(a.codestpro1,".$li_longestpro1.",25) AS codestpro1, SUBSTR(b.codestpro2,".$li_longestpro2.",25) AS codestpro2, SUBSTR(c.codestpro3,".$li_longestpro3.",25) AS codestpro3, SUBSTR(d.codestpro4,".$li_longestpro4.",25) AS codestpro4, SUBSTR(e.codestpro5,".$li_longestpro5.",25) AS codestpro5, a.denestpro1 as denestpro1,b.denestpro2 as denestpro2,c.denestpro3 as denestpro3,d.denestpro4 as denestpro4,e.denestpro5 as denestpro5, a.estcla, a.sc_cuenta FROM spg_ep1 a,spg_ep2 b,spg_ep3 c, spg_ep4 d, spg_ep5 e WHERE e.codestpro1 like '%".$ls_codestpro1."%' AND e.codestpro2 like '%".$ls_codestpro2."%' AND e.codestpro3 like '%".$ls_codestpro3."%' AND e.codestpro4 like '%".$ls_codestpro4."%' AND e.codestpro5 like '%".$ls_codestpro5."%' AND e.denestpro5 like '%".$ls_denestpro."%' AND a.codemp='".$ls_codemp."' AND a.codestpro1<>'-------------------------' AND a.codemp=b.codemp AND a.codemp=c.codemp AND a.codemp=d.codemp AND a.codemp=e.codemp AND a.codestpro1=b.codestpro1 AND a.codestpro1=c.codestpro1 AND b.codestpro2=c.codestpro2 AND a.codestpro1=d.codestpro1 AND a.codestpro1=e.codestpro1 AND b.codestpro2=d.codestpro2 AND b.codestpro2=e.codestpro2 AND c.codestpro3=d.codestpro3 AND c.codestpro3=e.codestpro3 AND d.codestpro4=e.codestpro4 AND a.estcla=c.estcla"; } $rs_data = $io_sql->select($ls_sql); $num_row=$io_sql->num_rows($rs_data); if ($num_row==0) { ?> fetch_row($rs_data)) { print ""; $ls_estcla = trim($row["estcla"]); $ls_codestpro1 = trim($row["codestpro1"]); $ls_codestpro2 = trim($row["codestpro2"]); $ls_codestpro3 = trim($row["codestpro3"]); $ls_denestpro1 = ltrim($row["denestpro1"]); $ls_denestpro2 = ltrim($row["denestpro2"]); $ls_denestpro3 = ltrim($row["denestpro3"]); $ls_scgctaint = trim($row["sc_cuenta"]); if ($li_estmodest=='2') { $ls_codestpro4 = trim($row["codestpro4"]); $ls_codestpro5 = trim($row["codestpro5"]); $ls_denestpro4 = $row["denestpro4"]; $ls_denestpro5 = $row["denestpro5"]; $ls_denominacion = $ls_denestpro5; } else { $ls_codestpro4 = str_pad('',25,0); $ls_codestpro5 = str_pad('',25,0); $ls_denestpro4 = ""; $ls_denestpro5 = ""; $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 "".ltrim($ls_denominacion).""; } else { print "".ltrim($ls_denominacion).""; if ($ls_estcla=='P') { print "PROYECTO"; } else { print " ACCION"; } } print ""; } if ($ls_tipo=="apertura") { print "".trim($ls_codestpro1).""; print "".trim($ls_codestpro2).""; print "".trim($ls_codestpro3).""; if ($li_estmodest=='1') { print "".trim($ls_codestpro4).""; print "".trim($ls_codestpro5).""; } print "".trim($ls_denominacion).""; print ""; } if ($ls_tipo=="progrep") { 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 "".ltrim($ls_denominacion).""; print ""; } if ($ls_tipo=="reporte") { 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).""; if ($ls_estcla=='P') { print "PROYECTO"; } else { print " ACCION"; } print ""; } if ($ls_tipo=="rephas") { 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).""; if ($ls_estcla=='P') { print "PROYECTO"; } else { print " ACCION"; } print ""; } if ($ls_tipo=="grid") { 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"; } else { print " ACCION"; } } print ""; } } } } print ""; ?>