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 = "";
}
}
' clas=e_texto size=70>
</TD>
</TR><tr>
</tr><tr><td height="26" colspan="2" valign="top" class='grisCCCCCC'> <center>
<input type=SUBMIT name='devolver_rad' value = 'CONFIRMAR DEVOLUCION' class=ebuttons2></center></td>
</tr>
</TABLE>
<?php
} else {
error_reporting(7);
$isql = "select SGD_DEVE_DESC\n\t\tfrom SGD_DEVE_DEV_ENVIO\n\t\tWHERE SGD_DEVE_CODIGO = {$motivo_devol}\n\t\t";
$sim = 0;
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
ora_fetch($cursor);
$motivo = ora_getcolumn($cursor, 0);
}
error_reporting(7);
/* Procediminiento que recorre el array de valores de radicdos a devolver.....
*/
if (!$radicados_dev and !$check_value) {
die("<hr><span class=etexto>Debe seleccionar un Radicado para realizar la devolucion de documentos</span><hr>\n <script>alert('Debe seleccionar un Radicado para realizar la devolucion de documentos');</script>");
}
if (!$radicados_dev or !$motivo_devol) {
$num = count($check_value);
$i = 0;
while ($i < $num) {
$record_id = key($check_value);
if ($check_value[$record_id] == "devolver") {
$radicados_dev .= $record_id . ",";
$auxsololect = "N";
}
$isql = "select max(anex_numero) from anexos " . "where anex_radi_nume={$radi}";
$cursor = ora_open($handle);
ora_parse($cursor, $isql) or die("No se encontró el radicado Buscado");
ora_exec($cursor);
$bien = ora_fetch($cursor);
$auxnumero = ora_getColumn($cursor, 0);
$auxnumero += 1;
$codigo = $radi . str_pad($auxnumero, 5, "0", STR_PAD_LEFT);
if ($bien) {
$isql = "select anex_tipo_ext from anexos_tipo " . "where anex_tipo_codi={$tipo}";
$cursor = ora_open($handle);
ora_parse($cursor, $isql);
ora_exec($cursor);
$bien = ora_fetch($cursor);
$extension = ora_getColumn($cursor, 0);
$archivo = trim($radi . "_" . $auxnumero . "." . $extension);
$archivoconversion = trim("1") . trim($radi . "_" . $auxnumero . "." . $extension);
}
if ($bien) {
$isql = "insert into anexos " . "(anex_radi_nume,anex_codigo,anex_tipo,anex_tamano,anex_solo_lect,anex_creador,anex_desc,anex_numero,anex_nomb_archivo,anex_borrado) " . "values ({$radi},{$codigo},{$tipo},null,'{$auxsololect}','{$usua}','{$descr}',{$auxnumero},'{$archivoconversion}','N') ";
$bien = ora_do($handle, $isql);
}
if ($bien) {
$directorio = "./bodega/" . substr(trim($archivo), 0, 4) . "/" . substr(trim($archivo), 4, 3) . "/docs/";
$bien = move_uploaded_file($userfile, $directorio . trim(strtolower($archivoconversion)));
}
if ($bien) {
$resp1 = "OK";
} else {
/*$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();
$pdf->FancyTable($header, $data, $w);
$arpdf_tmp = "../rad_salida/tmp_pdf/22l_jhlc.pdf";
$pdf->Output($arpdf_tmp);
//$pdf->Output();
$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};";
}
?>
if (i==0) {
alert(i + " " + "Error!!!");
}
else{
dropdownObjectPath = document.formulario.cod;
eval(document.formulario.cod.length=o.length);
largestwidth=0;
for (i=0; i < o.length; i++)
{
eval(document.formulario.cod.options[i+1]=o[i]);
}
$resultado = ora_parse($cursor, $isql);
$resultado = ora_exec($cursor);
}
// *********************** us2
if ($documento_us2) {
$sgd_ciu_codigo = 0;
$sgd_oem_codigo = 0;
$sgd_esp_codigo = 0;
if ($tipo_emp_us2 == 0) {
$sgd_ciu_codigo = $documento_us2;
}
if ($tipo_emp_us2 == 1) {
$sgd_esp_codigo = $documento_us2;
}
if ($tipo_emp_us2 == 2) {
$sgd_oem_codigo = $documento_us2;
}
$isql = "select * from sgd_dir_drecciones where radi_nume_radi={$nurad} and sgd_dir_tipo=2";
ora_parse($cursor, $isql);
ora_exec($cursor);
$row = ora_fetch($cursor);
if (!$row) {
$isql = "insert into SGD_DIR_DRECCIONES(DPTO_CODI,MUNI_CODI,SGD_OEM_CODIGO ,SGD_CIU_CODIGO ,SGD_ESP_CODI ,RADI_NUME_RADI,SGD_SEC_CODIGO , SGD_DIR_DIRECCION ,SGD_DIR_TELEFONO ,SGD_DIR_MAIL,SGD_DIR_TIPO,SGD_DIR_CODIGO) ";
$isql .= " values({$codep_us2} ,{$muni_us2} ,{$sgd_oem_codigo},{$sgd_ciu_codigo},{$sgd_esp_codigo},{$nurad} ,0 ,'" . trim($direccion_us2) . "','" . trim($telefono_us2) . "','{$mail_us2}',2 ,{$nextval})";
} else {
$isql = "update SGD_DIR_DRECCIONES set MUNI_CODI={$muni_us2},DPTO_CODI={$codep_us2},SGD_OEM_CODIGO={$sgd_oem_codigo},SGD_CIU_CODIGO={$sgd_ciu_codigo},SGD_ESP_CODI={$sgd_esp_codigo},SGD_SEC_CODIGO=0,SGD_DIR_DIRECCION='{$direccion_us1}',SGD_DIR_TELEFONO='{$telefono_us1}',SGD_DIR_MAIL='{$mail_us1}' where radi_nume_radi={$nurad} and SGD_DIR_=2 ";
}
ora_parse($cursor, $isql);
ora_exec($cursor);
}