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 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}";
}
if (!$direccion_us) {
$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})";
}
function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
{
if ($argHostname) {
putenv("ORACLE_HOME={$argHostname}");
}
if ($argDatabasename) {
$argUsername .= "@{$argDatabasename}";
}
//if ($argHostname) print "<p>PConnect: 1st argument should be left blank for $this->databaseType</p>";
$this->_connectionID = ora_plogon($argUsername, $argPassword);
if ($this->_connectionID === false) {
return false;
}
if ($this->autoCommit) {
ora_commiton($this->_connectionID);
}
if ($this->autoRollback) {
ora_rollback($this->_connectionID);
}
if ($this->_initdate) {
$rs = $this->_query("ALTER SESSION SET NLS_DATE_FORMAT='YYYY-MM-DD'");
if ($rs) {
ora_close($rs);
}
}
return true;
}
function _connect($argHostname, $argUsername, $argPassword, $argDatabasename, $mode = 0)
{
if (!function_exists('ora_plogon')) {
return null;
}
// <G. Giunta 2003/03/03/> Reset error messages before connecting
$this->_errorMsg = false;
$this->_errorCode = false;
// G. Giunta 2003/08/13 - This looks danegrously suspicious: why should we want to set
// the oracle home to the host name of remote DB?
// if ($argHostname) putenv("ORACLE_HOME=$argHostname");
if ($argHostname) {
// code copied from version submitted for oci8 by Jorma Tuomainen <*****@*****.**>
if (empty($argDatabasename)) {
$argDatabasename = $argHostname;
} else {
if (strpos($argHostname, ":")) {
$argHostinfo = explode(":", $argHostname);
$argHostname = $argHostinfo[0];
$argHostport = $argHostinfo[1];
} else {
$argHostport = "1521";
}
if ($this->connectSID) {
$argDatabasename = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" . $argHostname . ")(PORT={$argHostport}))(CONNECT_DATA=(SID={$argDatabasename})))";
} else {
$argDatabasename = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" . $argHostname . ")(PORT={$argHostport}))(CONNECT_DATA=(SERVICE_NAME={$argDatabasename})))";
}
}
}
if ($argDatabasename) {
$argUsername .= "@{$argDatabasename}";
}
//if ($argHostname) print "<p>Connect: 1st argument should be left blank for $this->databaseType</p>";
if ($mode = 1) {
$this->_connectionID = ora_plogon($argUsername, $argPassword);
} else {
$this->_connectionID = ora_logon($argUsername, $argPassword);
}
if ($this->_connectionID === false) {
return false;
}
if ($this->autoCommit) {
ora_commiton($this->_connectionID);
}
if ($this->_initdate) {
$rs = $this->_query("ALTER SESSION SET NLS_DATE_FORMAT='YYYY-MM-DD'");
if ($rs) {
ora_close($rs);
}
}
return true;
}
ora_parse($cursor, $isql);
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>";
function autoCommit()
{
if (!$this->isConnect) {
return false;
}
return ora_commiton($this->connection);
}