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;
 }

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 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}";
}

     $mensaje .= "Direccion,";
     $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>";

 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;
 }

 ora_exec($cursor);
 $numerot = ora_numrows($cursor);
 $row = array();
 while ($result1 = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC)) {
     $row1 = array();
     //$data = trim(ora_getcolumn($cursor, 1));
     $data = trim($row["CARP_DESC"]);
     $numdata = trim($row["CARP_CODI"]);
     if ($data == "") {
         $data = "NULL";
     }
     putenv("ORACLE_SID=DBPRUEBA");
     putenv("ORACLE_HOME=/oracle/product/817");
     $handle1 = ora_logon("fldoc@bdprueba", "Fldoc");
     ora_commiton($handle1);
     $cursor1 = ora_open($handle1);
     $isql = "select count(*) from radicado where carp_codi={$numdata} and  radi_depe_actu={$dependencia} and radi_usua_actu={$codusuario} ";
     //echo $isql;
     ora_parse($cursor1, $isql);
     ora_exec($cursor1);
     //$numerot = ora_numrows($cursor1);
     //echo $numerot;
     $numerot = ora_getcolumn($cursor1, 0);
     echo "-- {$numdata} - {$carpeta}";
     if ($carpeta == $numdata) {
         $imagen = "folder_open.gif";
     } else {
         $imagen = "carpeta.gif";
     }
     echo "<a href='cuerpo.php?carpeta={$numdata}&contra=" . md5($drd) . "&usua=" . md5($krd) . "&drd={$drd}&krd={$krd}' target='mainFrame' alt='Seleccione una Carpeta'><img src='iconos/{$imagen}' border=0 alt='{$data}' align='absmiddle'> <font size=1><b>{$data} ({$numerot})</font></a> <p>";
 }