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); } }