function ErrorMsg()
{
$this->_errorMsg = @ora_error($this->_curs);
if (!$this->_errorMsg) {
$this->_errorMsg = @ora_error($this->_connectionID);
}
return $this->_errorMsg;
}
function db_oracle($host, $user, $passwd, $db = null)
{
$this->db_name = $db;
$this->db_user = $user;
$this->db_passwd = $passwd;
$this->db_host = $host;
$this->db_link_ptr = ora_logon("{$user}@{$host}", $passwd) or $this->error("", ora_error(), ora_errcode());
$this->dbhandler = @ora_select_db($db);
}
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
}
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;
}
if ($reg_envio) {
error_reporting(7);
$radicado_grupo = "";
$no_digitos = 14;
$radi_nume_grupo = substr($radicados_sel[0], 0, $no_digitos);
if ($i != 0) {
$valor_unit = 0;
}
$verrad_sal = $radicados_sel[$i];
$verrad_sal = substr($verrad_sal, 0, $no_digitos);
include_once "{$ruta_raiz}/config.php";
$isql = "select RADI_NUME_RADI FROM RADICADO WHERE RADI_NUME_RADI like '{$verrad_sal}'";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or $error_db = ora_error();
ora_exec($cursor) or $error_db = ora_error();
$encontrados = ora_numrows($cursor);
$resultado = ora_fetch_into($cursor, $row2, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
$encontrado_radi = $row2["RADI_NUME_RADI"];
$dep_radicado = substr($verrad_sal, 4, 3);
$carp_codi = substr($dep_radicado, 0, 2);
$dir_tipo = 1;
$nombre_us = substr(trim($nombre_us), 0, 29);
$verrad_sal = substr($verrad_sal, 0, $no_digitos);
if ($renv_codigo) {
$isql = "UPDATE SGD_RENV_REGENVIO\n\t\t\t\t\t SET\n\t\t\t\t\t\tUSUA_DOC='{$usua_doc}',\n\t\t\t\t\t\tSGD_FENV_CODIGO='{$empresa_envio}',\n\t\t\t\t\t\tSGD_RENV_DESTINO= '{$destino}',\n\t\t\t\t\t\tSGD_RENV_TELEFONO='{$telefono}',\n\t\t\t\t\t\tSGD_RENV_MAIL='{$mail}',\n\t\t\t\t\t\tSGD_RENV_PESO='{$envio_peso}',\n\t\t\t\t\t\tSGD_RENV_VALOR='{$valor_unit}',\n\t\t\t\t\t\tSGD_RENV_CERTIFICADO='0',\n\t\t\t\t\t\tSGD_RENV_ESTADO='1',\n\t\t\t\t\t\tSGD_RENV_NOMBRE='{$nombre_us}',\n\t\t\t\t\t\tDEPE_CODI='{$dependencia}',\n\t\t\t\t\t\tSGD_DIR_TIPO='{$dir_tipo}',\n\t\t\t\t\t\tRADI_NUME_GRUPO='{$radi_nume_grupo}',\n\t\t\t\t\t\tSGD_RENV_PLANILLA='{$planilla}',\n\t\t\t\t\t\tSGD_RENV_DIR='{$direccion_us}',\n\t\t\t\t\t\tSGD_RENV_DEPTO='{$departamento_us}',\n \t\t\tSGD_RENV_OBSERVA='{$observaciones}',\n\t\t\t\t\t\tSGD_RENV_MPIO='{$destino}' \n\t\t\t\t\twhere \n\t\t\t\t\tRADI_NUME_SAL={$radicados} and sgd_renv_codigo='{$renv_codigo}'\n\t\t\t";
Ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
echo "<span class=etexto>Se actualizo el radicado {$verrad_sal} en la planilla {$planilla} </span>";
$tip_rem = $row["TRTE_CODI"] + 1;
$tdoc = $row["TDOC_CODI"];
$med = $row["MREC_CODI"];
$cod = $row["MUNI_CODI"];
$coddepe = $row["RADI_DEPE_ACTU"];
$espcodi = $row["EESP_CODI"];
$coddepe = $row["RADI_DEPE_ACTU"];
$fechproc12 = $row["DOCDIA"];
$fechproc22 = $row["DOCMES"];
$fechproc32 = $row["DOCANO"];
$ruta_raiz = "..";
$no_tipo = "true";
include "busca_direcciones.php";
} else {
echo "<center><font color=red><b>No se ha podido Modificar el registro Revise los datos <br> </center> {$error} <br></font>";
echo ora_error($cursor) . "<br>";
}
}
// Fin de Busqueda del Radicado paara editar
if ($radicadopadre and !$radicadopadreseg and (!$Submit3 and !$Submit4)) {
$cursor = ora_open($handle);
$isql = "select a.*, TO_CHAR(a.RADI_FECH_OFIC,'DD') AS DOCDIA,TO_CHAR(a.RADI_FECH_OFIC,'MM') AS DOCMES,TO_CHAR(a.RADI_FECH_OFIC,'YYYY') AS DOCANO,a.EESP_CODI from radicado a where a.radi_nume_radi='{$radicadopadre}'";
$resultado = ora_parse($cursor, $isql);
$resultado = ora_exec($cursor);
$row = array();
ora_fetch_into($cursor, $row, ORA_FETCHINTO_NULLS | ORA_FETCHINTO_ASSOC);
if (!$Buscar and !$Submit4) {
$cuentaii = $row["RADI_CUENTAI"];
if ($cuentaii) {
$cuentai = $cuentaii;
}
