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}";
}
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
}
$verrad_sal = substr($radicados_sel[$i], 0, $no_digitos);
$numrad = $verrad_sal;
$dep_radicado = substr($verrad_sal, 4, 3);
$ano_radicado = substr($verrad_sal, 0, 4);
error_reporting(0);
$carp_codi = substr($dep_radicado, 0, 2);
$isql = "SELECT b.RADI_NUME_RADI,a.ANEX_NOMB_ARCHIVO,a.ANEX_DESC,a.SGD_REM_DESTINO,a.SGD_DIR_TIPO\n\t\t,a.ANEX_RADI_NUME\n\t\tFROM ANEXOS a,RADICADO b\n\t\t\tWHERE a.radi_nume_salida=b.radi_nume_radi\n\t\t\tand a.RADI_NUME_SALIDA={$verrad_sal}\n\t\t\tand a.sgd_dir_tipo !=7 and anex_estado=2";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
if (!$cursor) {
$estado = "No se encontró";
$mensaje = "No hay registro";
}
$resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$no_registros = ora_numrows($cursor);
$verrad = $row2["RADI_NUME_RADI"];
$ref_pdf = $row2["ANEX_NOMB_ARCHIVO"];
$asunto = $row2["ANEX_DESC"];
$sgd_dir_tipo = $row2["SGD_DIR_TIPO"];
$rem_destino = $row2["SGD_DIR_TIPO"];
$anex_radi_nume = $row2["ANEX_RADI_NUME"];
$dep_radicado = substr($verrad_sal, 4, 3);
$ano_radicado = substr($verrad_sal, 0, 4);
$carp_codi = substr($dep_radicado, 0, 2);
$radi_path_sal = "/{$ano_radicado}/{$dep_radicado}/docs/{$ref_pdf}";
//$verrad_sal = $radicados_sel[$i];
$ruta_raiz = "..";
if (substr($rem_destino, 0, 1) == "7") {
$anex_radi_nume = $verrad_sal;
function _fetch($ignore_fields = false)
{
// should remove call by reference, but ora_fetch_into requires it in 4.0.3pl1
if ($this->fetchMode & ADODB_FETCH_ASSOC) {
return @ora_fetch_into($this->_queryID, &$this->fields, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
} else {
return @ora_fetch_into($this->_queryID, &$this->fields, ORA_FETCHINTO_NULLS);
}
}
//echo $row["usuario"].$krd;
echo "<font size=1>Usuario " . $row["USUA_LOGIN"] . "<br>";
if (trim($row["USUA_LOGIN"]) == trim($krd)) {
$contraxx = $row["USUA_PASW"];
if (trim($contraxx) == SUBSTR(md5(trim($drd)), 1, 26)) {
$iusuario = " and us_usuario='{$krd}'";
$isql = "select * from radicado where carp_codi={$carpeta}";
echo $isql;
//$isql ="select * from radicado_rd where rd_estado=5 $iusuario ";
// $result1 = ora_do($handle,$isql);
ora_parse($cursor, $isql);
ora_exec($cursor);
$numerot = ora_numrows($cursor);
$row = array();
echo "<table border=1>";
while ($result1 = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC)) {
$row1 = array();
//$data = trim(ora_getcolumn($cursor, 1));
$data = trim($row["RADI_NUME_RADI"]);
$numdata = trim($row["CARP_CODI"]);
if ($data == "") {
$data = "NULL";
}
//$numerot = ora_numrows($cursor2);
$numerot = $row1["num"];
if ($carpeta == $numdata) {
$imagen = "usuarios.gif";
} else {
$imagen = "usuarios.gif";
}
echo "<tr>";
/**
* FUNCTION: setDbLoop [** EXPERIMENTAL **]
*
* Function to create a loop from a Db result resource link.
*
* @param string $loopname to commit loop. If not set, will use last loopname set using newLoop()
* @param string $result link to a Db result resource
* @param string $db_type, type of db that the result resource belongs to.
* @return boolean true/false
* @access public
*/
function setDbLoop($loopname, $result, $db_type = 'MYSQL')
{
$db_type = strtoupper($db_type);
if (!in_array($db_type, $this->allowed_loop_dbs)) {
vlibTemplateError::raiseError('VT_WARNING_INVALID_LOOP_DB', WARNING, $db_type);
return false;
}
$loop_arr = array();
switch ($db_type) {
case 'MYSQL':
if (get_resource_type($result) != 'mysql result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = mysql_fetch_assoc($result)) {
$loop_arr[] = $r;
}
break;
case 'POSTGRESQL':
if (get_resource_type($result) != 'pgsql result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
$nr = function_exists('pg_num_rows') ? pg_num_rows($result) : pg_numrows($result);
for ($i = 0; $i < $nr; $i++) {
$loop_arr[] = pg_fetch_array($result, $i, PGSQL_ASSOC);
}
break;
case 'INFORMIX':
if (!$result) {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = ifx_fetch_row($result, 'NEXT')) {
$loop_arr[] = $r;
}
break;
case 'INTERBASE':
if (get_resource_type($result) != 'interbase result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = ibase_fetch_row($result)) {
$loop_arr[] = $r;
}
break;
case 'INGRES':
if (!$result) {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = ingres_fetch_array(INGRES_ASSOC, $result)) {
$loop_arr[] = $r;
}
break;
case 'MSSQL':
if (get_resource_type($result) != 'mssql result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = mssql_fetch_array($result)) {
$loop_arr[] = $r;
}
break;
case 'MSQL':
if (get_resource_type($result) != 'msql result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = msql_fetch_array($result, MSQL_ASSOC)) {
$loop_arr[] = $r;
}
break;
case 'OCI8':
if (get_resource_type($result) != 'oci8 statement') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while (OCIFetchInto($result, $r, OCI_ASSOC + OCI_RETURN_LOBS)) {
$loop_arr[] = $r;
}
break;
case 'ORACLE':
if (get_resource_type($result) != 'oracle Cursor') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while (ora_fetch_into($result, $r, ORA_FETCHINTO_ASSOC)) {
$loop_arr[] = $r;
}
break;
case 'OVRIMOS':
if (!$result) {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while (ovrimos_fetch_into($result, $r, 'NEXT')) {
$loop_arr[] = $r;
}
break;
case 'SYBASE':
if (get_resource_type($result) != 'sybase-db result') {
vlibTemplateError::raiseError('VT_WARNING_INVALID_RESOURCE', WARNING, $db_type);
return false;
}
while ($r = sybase_fetch_array($result)) {
$loop_arr[] = $r;
}
break;
}
$this->setLoop($loopname, $loop_arr);
return true;
}
function _fetch($ignore_fields = false)
{
// should remove call by reference, but ora_fetch_into requires it in 4.0.3pl1
return @ora_fetch_into($this->_queryID, &$this->fields, ORA_FETCHINTO_NULLS);
}
if ($alltext and $enviar) {
$fp = fopen($archivotmp, "w");
fputs($fp, $alltext);
fclose($fp);
}
// **************** FIN TX COMBINACION DE CAMPOS
if ($radicar_documento) {
// Generar el Numero de Radicación
//ECHO "eNTRO A generar la secuencia";
if ($gen_rad != "false") {
$isql_hl = "select sec_{$dependencia}.nextval as SEC from dual";
//echo "$isql_hl";
ora_parse($cursor, $isql_hl);
ora_exec($cursor);
$row = array();
ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$sec = $row["SEC"];
}
} else {
$sec = 0;
if ($radicado_sal) {
$radsal = substr($radicado_sal, 1, 13);
}
}
$archivo = "{$artxt}";
$pdf = new PDF();
$pdf->Open();
if (!$radicado_sal) {
$sec = str_pad($sec, 5, "0", STR_PAD_LEFT);
$anosal = date("Y");
$messal = str_pad(date("m"), 2, "0", STR_PAD_LEFT);
$isql = "select * FROM PAR_SERV_SERVICIOS";
$cursor = ora_open($handle);
$resultado = ora_parse($cursor, $isql) or die("No se pudo grabar <br> revise la instruccion sql <br> {$isql}");
$resultado = ora_exec($cursor) or die("Por favor revise . . . . .");
$hh = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
?>
<select name="sector_us<?php
echo $i;
?>
" class="ecajasfecha">
<?php
do {
$codigo_sect = $row["PAR_SERV_CODIGO"];
$nombre_sect = $row["PAR_SERV_NOMBRE"];
echo "<option value={$codigo_sect}>{$nombre_sect}</option>";
} while ($hh = ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC));
?>
</select>
<?php
} else {
?>
<INPUT type=text name='prim_apel_us<?php
echo $i;
?>
' value='<?php
echo $papel;
?>
' class="ecajasfecha" readonly="true" >
<?php
}
function _fetch($ignore_fields = false)
{
if ($this->fetchMode & ADODB_FETCH_ASSOC) {
return @ora_fetch_into($this->_queryID, $this->fields, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
} else {
return @ora_fetch_into($this->_queryID, $this->fields, ORA_FETCHINTO_NULLS);
}
}
