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 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}";
}
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
}
}
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 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;
}
$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>";
}
$imagen = "radicar.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>Radicación</font></a> <p>";
ORA_CLOSE($cursor1);
//$isql = "INSERT INTO USUARIO (USUA_CODI,DEPE_CODI,USUA_LOGIN,USUA_PASW,USUA_ESTA,usua_fech_crea)";
//$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úmero <b>
2<?php
echo $rad_definitivo;
?>
<?php
} else {
}
//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));
}
$pdf->AddPage();
$radicados .= "," . $chk20;
}
$procradi = substr($radicados, 3, 300);
$procard = str_replace(",", "</td></tr><tr class=timpar><td ><font size=2><B>", $procradi);
$radicados .= ",9)";
$isql = "update PL_GENERADO_PLG set PLT_CODI=3\n\t\t ,PLG_IMPRIME_FECH=SYSDATE\t\t \n\t\t where RADI_NUME_SAL IN {$radicados}";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or die("No se ha podido Marcar el Radicado");
ora_exec($cursor) or die("No se ha podido Marcar el Radicado");
$actualizados = ora_numrows($cursor);
$isql = "update ANEXOS set ANEX_ESTADO=3\n\t\t ,ANEX_RADI_FECH=SYSDATE\t\t \n\t\t where RADI_NUME_SALIDA IN {$radicados}";
ora_commiton($handle);
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or die("No se ha podido Marcar el Radicado");
ora_exec($cursor) or die("No se ha podido Marcar el Radicado");
$actualizadosa = ora_numrows($cursor);
$resultado = "Plantillas {$actualizados} -- Anexos {$actualizadosa}";
?>
<tr class="timpar"><td align="center" class="timpar" ><font size=2><B>
<?php
echo $procard;
?>
</td></tr>
</table>
<Font size=1 class="tituloListado"><b>Detalle : </b><?php
echo $resultado;
?>
</Font>
</body>
</html>
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};";
}
