Exemplo n.º 1
0
 function query($SQLCmd)
 {
     if (!$this->isConnect) {
         return null;
     }
     $cursor = ora_open($this->connection);
     ora_parse($cursor, $SQLCmd);
     ora_exec($cursor);
     $results = array();
     $resultName = array();
     for ($i = 0; $i < ora_numcols($cursor); $i++) {
         $resultName[$i] = ora_columnname($cursor, $i);
     }
     $cnt = 0;
     while (ora_fetch($cursor)) {
         for ($i = 0; $i < ora_numcols($cursor); $i++) {
             $results[$resultName[$i]][$cnt] = ora_getcolumn($cursor, $i);
         }
         $cnt++;
     }
     $rs = new ResultSet();
     $rs->setHolder($results);
     ora_close($cursor);
     return $rs;
 }
Exemplo n.º 2
0
 function BD($consulta, $no_campo, $ruta_raiz)
 {
     if ($consulta) {
         $isql = $consulta;
         if (!$ruta_raiz) {
             $ruta_raiz = ".";
         }
         include "{$ruta_raiz}/config.php";
         error_reporting(0);
         $cursor1 = ora_open($handle);
         ora_parse($cursor1, $isql);
         ora_exec($cursor1);
         ora_fetch($cursor1);
         $dato = trim(ora_getcolumn($cursor1, $no_campo));
         $this->campo = $dato;
     } else {
         $this->campo = "";
     }
 }
function devolver_rad($chkd, $krd)
{
    include "../config.php";
    ora_commiton($handle);
    $cursor = ora_open($handle);
    $isql_hl = "select a.RADI_USU_ANTE,b.USUA_CODI,b.USUA_NOMB,b.DEPE_CODI from radicado a,usuario b\n\t\t\t\twhere b.USUA_LOGIN=a.RADI_USU_ANTE and a.RADI_NUME_RADI={$chkd}";
    ora_parse($cursor, $isql_hl);
    ora_exec($cursor);
    $result3 = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
    $us_anterior = $row["USUA_CODI"];
    $us_anterior_nombre = $row["USUA_NOMB"];
    $dep_anterior = $row["DEPE_CODI"];
    $isql_hl = "update radicado set radi_usua_actu={$us_anterior}\n\t\t\t,radi_depe_actu={$dep_anterior}\n\t\t\t\t\t,carp_codi=12\n\t\t\t\t\t,carp_per=0\n\t\t\t\t\t,radi_usu_ante='{$krd}'\n\twhere RADI_NUME_RADI={$chkd}";
    ora_parse($cursor, $isql_hl);
    ora_exec($cursor);
    $observa = "Dev." . $observa;
    $proccarp = "Devolución";
    $mensaje_dev = " (Recuperado el rad {$chkd} a  {$us_anterior_nombre})";
    return "{$mensaje_dev}";
}
Exemplo n.º 4
0
    function mostrar_select($val_tabla, $val_select, $cursor, $campo_valor, $campo_descript, $camp_valor_selected = 0)
    {
        $isql = "select {$campo_valor},{$campo_descript} from  {$val_tabla} ";
        $resultado = ora_parse($cursor, $isql) or die("<center><b>No se han encontrado registros con numero de radicado <font color=blue>{$nurad}</font> <br>  Revise el radicado escrito, solo pueden ser numeros de 14 digitos <br><p><hr><a href='edtradicado.php?fechaf={$fechaf}&krd={$krd}&drde={$drde}'><font color=red>Intente de Nuevo</a><p><hr></font><p><p><p><p><p><p><p> Dato enviado por Oracle  <br><font color=blue>" . ora_error($cursor) . " -- ");
        $resultado = ora_exec($cursor) or die("<center><b>No se han encontrado registros con numero de radicado <font color=blue>{$nurad} </font> <p><br>  Revise el radicado escrito, solo pueden ser numeros de 14 digitos <br><hr><a href='edtradicado.php?fechaf={$fechaf}&krd={$krd}&drde={$drde}'><font color=red>Intente de Nuevo</a><p><hr></font><p><p><p><p><p><p><p> Dato enviado por Oracle<br><font color=blue> " . ora_error($cursor) . " -- ");
        //ora_fetch_into($cursor,$this->row, ORA_FETCHINTO_NULLS|ORA_FETCHINTO_ASSOC);
        ?>
	   <select name='<?php 
        echo $val_tabla;
        ?>
'>
	   <?php 
        while (ora_fetch_into($cursor, $this->row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC)) {
            if ($campo_val_selected == $this->row[$campo_valor]) {
                $datoss = " Selected ";
            } else {
                $datoss = " ";
            }
            echo "\n\t\t <option value=" . $this->row[$campo_valor] . "  '{$datoss}'>" . $this->row[$campo_descript] . "</option>";
        }
        ?>
	   </select>
	   <?php 
    }
Exemplo n.º 5
0
     $error = "si";
 }
 if (!$destino) {
     $mensaje .= "Municipio,";
     $error = "si";
 }
 if (!$departamento) {
     $mensaje .= "Departamento,";
     $error = "si";
 }
 $verrad_sal = substr($verrad_sal, 0, $no_digitos);
 if ($error == "no") {
     $isql = "update ANEXOS set ANEX_ESTADO=3\n\t\t           ,SGD_FECH_IMPRES=SYSDATE\n\t\t\t   ,ANEX_FECH_ENVIO=SYSDATE\n\t\t\t   , SGD_DEVE_FECH = NULL\n\t\t\t   , SGD_DEVE_CODIGO=NULL\n\t\t           where \n\t\t\t     RADI_NUME_SALIDA ={$verrad_sal} \n\t\t\t     and sgd_dir_tipo !=7 \n\t\t\t     and anex_estado=2";
     ora_commiton($handle);
     $cursor = ora_open($handle);
     ora_parse($cursor, $isql);
     ora_exec($cursor);
     if ($cursor) {
         $estado = "Ok";
     } else {
         $estado = "Mal";
     }
 } else {
     $estado = "Error ";
     if ($no_registros < 1) {
         $mensaje = "Verifique si ya esta marcado como impreso...";
     } else {
         $mensaje = "Faltan Datos ({$mensaje})";
     }
     echo "<script>alert('No se puede Marcar el Documento {$verrad_sal} Como Impreso. {$mensaje}  ')</script>";
 }
Exemplo n.º 6
0
function devolver_rad($chkd, $krd, $cnivel)
{
    include "config.php";
    ora_commiton($handle);
    $cursor = ora_open($handle);
    $isql_hl = "select a.RADI_USU_ANTE,b.USUA_CODI,b.USUA_NOMB,b.DEPE_CODI,a.RADI_DEPE_ACTU,a.RADI_USUA_ACTU,b.CODI_NIVEL\n\t\t\t\t\t\t\t\t \t\t\t\t from radicado a,usuario b\n\t\t\t\t\t\t\t\t\t\t\t   where b.USUA_LOGIN (+) =a.RADI_USU_ANTE and a.RADI_NUME_RADI={$chkd}";
    ora_parse($cursor, $isql_hl);
    ora_exec($cursor);
    $result3 = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
    $us_anterior = $row["USUA_CODI"];
    $us_anterior_nombre = $row["USUA_NOMB"];
    $dep_anterior = $row["DEPE_CODI"];
    $codi_nivel = $row["CODI_NIVEL"];
    if ($cnivel == 1) {
        $cadenanivel = ",codi_nivle={$codi_nivel};";
    } else {
        $cadenanivel = "";
    }
    if (!trim($us_anterior)) {
        $us_anterior = $row["RADI_USUA_ACTU"];
        $dep_anterior = $row["RADI_DEPE_ACTU"];
    }
    $isql_hl = "update radicado \n                 set radi_usua_actu={$us_anterior}\n                      ,radi_depe_actu={$dep_anterior}\n                      ,carp_codi=12\n                      ,carp_per=0\n                      ,radi_usu_ante='{$krd}'\n                      ,radi_fech_agend=null\n                      ,radi_agend=null \n                        where RADI_NUME_RADI={$chkd}";
    echo $isql_hl;
    ora_parse($cursor, $isql_hl);
    ora_exec($cursor);
    $observa = "Dev." . $observa;
    $proccarp = "Devolución";
    $mensaje_dev = "<font color=blue> {$us_anterior_nombre} (Devuelto)</font></b><BR>";
    return "{$us_anterior_nombre}";
}
 function _query($sql, $inputarr = false)
 {
     $curs = ora_open($this->_connectionID);
     if ($curs === false) {
         return false;
     }
     $this->_curs = $curs;
     if (!ora_parse($curs, $sql)) {
         return false;
     }
     if (ora_exec($curs)) {
         return $curs;
     }
     @ora_close($curs);
     return false;
 }
 function _query($sql, $inputarr = false)
 {
     // <G. Giunta 2003/03/03/> Reset error messages before executing
     $this->_errorMsg = false;
     $this->_errorCode = false;
     $curs = ora_open($this->_connectionID);
     if ($curs === false) {
         return false;
     }
     $this->_curs = $curs;
     if (!ora_parse($curs, $sql)) {
         return false;
     }
     if (ora_exec($curs)) {
         return $curs;
     }
     // <G. Giunta 2004/03/03> before we close the cursor, we have to store the error message
     // that we can obtain ONLY from the cursor (and not from the connection)
     $this->_errorCode = @ora_errorcode($curs);
     $this->_errorMsg = @ora_error($curs);
     // </G. Giunta 2004/03/03>
     @ora_close($curs);
     return false;
 }
Exemplo n.º 9
0
 echo "<center><B>USUARIO NUEVO </CENTER>";
 echo "<P><P><center>Por favor introduzca la nueva contrase�a<p></p>";
 echo "<CENTER><input type=hidden name='usuarionew' value={$krd}><B>USUARIO {$krd}<br></p>";
 echo "<table border=0>";
 echo "<tr>";
 echo "<td><center>CONTRASE�A </td><td><input type=password name=contradrd vale=''><br></td>";
 echo "</tr>";
 echo "<tr><td><center>RE-ESCRIBA LA CONTRASE�A </td><td><input type=password name=contraver vale=''></td>";
 echo "</tr>";
 echo "</table></p></p>";
 echo "";
 echo "";
 echo "<center>Seleccione la dependencia a la cual pertenece \n";
 ora_commiton($handle);
 $cursor = ora_open($handle);
 ora_parse($cursor, "select depe_codi,depe_nomb from DEPENDENCIA ORDER BY DEPE_NOMB");
 ora_exec($cursor);
 $numerot = ora_numrows($cursor);
 $row1 = array();
 $result1 = ora_fetch_into($cursor, $row1, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
 echo "<br><b><center>Dependencia <select name='depsel' class='e_buttons'>\n";
 $dependencianomb = substr($dependencianomb, 0, 35);
 echo "<option value={$dependencia}>{$dependencianomb}</option>\n";
 do {
     $depcod = $row1["DEPE_CODI"];
     $depdes = substr($row1["DEPE_NOMB"], 0, 35);
     echo "<option value={$depcod}>{$depdes}</option>\n";
 } while ($result1 = ora_fetch_into($cursor, $row1, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC));
 echo "</select>";
 echo "<br><input type=submit value=Aceptar>";
 ?>
Exemplo n.º 10
0
//$title = "SUPERINTENDENCIA DE SERVICIOS PUBLICOS ";
//$pdf->SetTitle($title);
$title = "";
if ($radicar_documento) {
    $arpdf = "rad_salida/{$fano}/{$dependencia}/{$fmes}/2{$archivo_sal}.pdf";
    $pdf->Output($arpdf);
    echo "<B><CENTER><a href={$arpdf}?fecha_h={$fechah}> Ver Archivo Pdf </a><br>";
    if ($sec) {
        $plg_codi = str_pad($numero_pla, 4, "0", STR_PAD_left);
        $plg_comentarios = "";
        $plt_codi = $plt_codi;
        $rad_salida = "2" . $rad_salida;
        $isql = "update PL_GENERADO_PLG set PLT_CODI=2,RADI_NUME_SAL={$rad_salida},\n\t\t           PLG_ARCHIVO_FINAL='{$arpdf}',PLG_CREA_FECH=SYSDATE\t\t   \n\t\t           where PLG_CODI={$plantillaper1} and RADI_NUME_RADI={$numrad}";
        ora_commiton($handle);
        $cursor = ora_open($handle);
        ora_parse($cursor, $isql) or die("No se ha podido Grabar el Radicado");
        ora_exec($cursor) or die("No se ha podido Grabar el Radicado");
        $actualizados = ora_numrows($cursor);
        ora_commit($handle);
        ?>
<p>
  <center>
    <?php 
        if ($actualizados > 0) {
            ?>
	
    Ha sido Radicado el Documento con el N&uacute;mero <b>
    2<?php 
            echo $rad_definitivo;
            ?>
	<?php 
Exemplo n.º 11
0
    //w[$i] = strlen($header[$i]);
}
//Data loading
//$data=$pdf->LoadData('countries.txt');
$pdf->SetFont('Arial', '', 8);
/*$pdf->AddPage();
$pdf->BasicTable($header,$data);
$pdf->AddPage();
$pdf->ImprovedTable($header,$data);*/
/*  *************************
 ***************************
 */
$isql = "select SGD_RENV_CODIGO, \n\t\t  SGD_FENV_CODIGO, \n\t\t  SGD_RENV_FECH,\n\t\t  SGD_RENV_FECH, \n\t\t  RADI_NUME_SAL, \n\t\t  SGD_RENV_DESTINO, \n\t\t  SGD_RENV_TELEFONO, \n\t\t  SGD_RENV_MAIL, \n\t\t  SGD_RENV_PESO, \n\t\t  SGD_RENV_VALOR, \n\t\t  SGD_RENV_CERTIFICADO, \n\t\t  SGD_RENV_ESTADO, \n\t\t  USUA_DOC from SGD_RENV_REGENVIO ";
include "../config.php";
$cursor = ora_open($handle);
$resultado = ora_parse($cursor, $isql);
$resultado = ora_exec($cursor);
$line = 0;
$data = array();
$numCols = ora_numcols($cursor);
while (ora_fetch($cursor)) {
    $line = "";
    for ($i = 0; $i < $numCols; $i++) {
        if ($i >= 1) {
            $line .= ";";
        }
        $line .= ora_getcolumn($cursor, $i);
    }
    //  echo $line . "<br>";
    $data[] = explode(';', chop($line));
}
Exemplo n.º 12
0
	{
	o[i++]=new Option("NADA", "0");  
	}
	
<?php 
$isql = "select * from departamento";
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
$numerot = ora_numrows($cursor);
$row = array();
while (ora_fetch($cursor)) {
    $deptocodi = trim(ora_getcolumn($cursor, 0));
    $deptonomb = trim(ora_getcolumn($cursor, 1));
    $cursor2 = ora_open($handle);
    ora_parse($cursor2, "select MUNI_CODI,DPTO_CODI,MUNI_NOMB from municipio where dpto_codi='{$deptocodi}' ORDER BY MUNI_NOMB") or die("No se ha podido abrir la tabla");
    ora_exec($cursor2);
    echo "if (withWhat == '{$deptocodi}')";
    echo "\t{";
    //echo "document.formulario.dep.value='$deptocodi';";
    $ii = 0;
    ora_fetch($cursor2);
    do {
        $municodi = trim(ora_getcolumn($cursor2, 0));
        $municodi = trim(ora_getcolumn($cursor2, 0));
        $muninomb = trim(ora_getcolumn($cursor2, 2));
        echo "   o[{$ii}]=new Option('{$muninomb}','{$municodi}');\n";
        $ii = $ii + 1;
    } while (ora_fetch($cursor2));
    echo "o[{$ii}]=new Option('{$muninomb}','{$munidepcodi}');\n";
    echo "\t}; i={$ii};";
Exemplo n.º 13
0
    ?>
</select>
				</td>
			</tr>
				</table>
				<table border=0  width=100%>
				<tr>
				<td></td><td class="grisCCCCCC"><b>SE HA INFORMADO A:<b></td><td><font color="" face="Arial, Helvetica, sans-serif" class="etextomenu">Seleccione un doc. de Informado para borrar</font></td></tr>
				</table>
				<table border=0 class='' width=100%> 
				<?php 
    $cursor = ora_open($handle);
    ora_commiton($handle);
    $query2 = "select b.depe_nomb,a.info_desc,a.depe_codi,a.depe_codi,TO_CHAR (a.info_fech) as info_fech,info_desc from informados a,dependencia b where a.depe_codi=b.depe_codi and a.radi_nume_radi='{$nurad}'  order by info_fech desc ";
    $cursor2 = ora_open($handle);
    ora_parse($cursor, $query2) or die("Fallo la busqeda");
    ora_exec($cursor);
    $k = 1;
    while (ora_fetch($cursor)) {
        $numcols = ora_numcols($cursor);
        $data = trim(ora_getcolumn($cursor, 0));
        $data2 = trim(ora_getcolumn($cursor, 1));
        $data3 = trim(ora_getcolumn($cursor, 3));
        $data4 = DATE(trim(ora_getcolumn($cursor, 4)) . "dMy");
        $data5 = trim(ora_getcolumn($cursor, 4));
        $data6 = trim(ora_getcolumn($cursor, 5));
        ?>
				   <tr  class='tituloListado'>
				   <td><input type='radio' name='borrarradicado' value='<?php 
        echo $data3 . $data6;
        ?>
Exemplo n.º 14
0
        $isql = "select  a.radi_nume_salida, a.anex_radi_nume\n\t\t\tfrom ANEXOS a, usuario b\n\t\t\twhere\n\t\t\t\ta.anex_creador=b.usua_login\n\t\t\t\tand a.sgd_fech_impres <= TO_DATE('{$fecha_busqt}','yyyy-mm-dd HH24:MI:ss')\n\t\t\t\tand a.ANEX_ESTADO=3";
        if ($dependencia != 0) {
            $isql .= " and b.depe_codi={$dependencia_sel}";
        }
        ora_commiton($handle);
        $cursor = ora_open($handle);
        ora_parse($cursor, $isql);
        ora_exec($cursor);
        while ($result1 = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC)) {
            $radicado_dev = $row["RADI_NUME_SALIDA"];
            $anex_radi_nume = $row["ANEX_RADI_NUME"];
            $isql = "update ANEXOS\n\t\t\t\t\tset anex_estado=2\n\t\t\t\t\twhere ANEX_ESTADO=3 AND anex_radi_nume={$anex_radi_nume}";
            ora_commiton($handle);
            $cursor1 = ora_open($handle);
            ora_parse($cursor1, $isql);
            ora_exec($cursor1);
            $anexos_act = ora_numrows($cursor1);
            $observa = "Devolucion de radicado No {$radicado_dev} Se devolvio por sobrepasar tiempo de espera para envio";
            $isql_hl = "insert into hist_eventos(DEPE_CODI   ,HIST_FECH,USUA_CODI  ,RADI_NUME_RADI  ,HIST_OBSE,USUA_CODI_DEST,USUA_DOC)\n\t\t\t\t\t\t\t\t\t\t\t\tvalues ({$dependencia},sysdate  ,{$codusuario},{$anex_radi_nume} ,'{$observa}','','{$usua_doc}')";
            ora_commiton($handle);
            $cursor1 = ora_open($handle);
            ora_parse($cursor1, $isql_hl);
            ora_exec($cursor1);
            $anexos_act = ora_numrows($cursor1);
        }
    }
}
?>
</form>
</html>