function PRESTAMO_action($sAction)
{
global $db;
global $krd;
//usuario actual
global $dependencia;
//dependencia del usuario actual
$fldradicado = get_param("radicado");
// Regresa al men� del radicado
if ($sAction == "cancelar") {
echo "..";
// dejar esto para que el navegador deje hacer el submit
echo "<form name=Atras action='../verradicado.php?krd={$krd}&verrad={$fldradicado}' method=post> </form>";
echo "<script>document.Atras.submit();</script>";
} elseif ($sAction == "insert") {
$fldPRES_REQUERIMIENTO = get_param("s_PRES_REQUERIMIENTO");
$fldPRES_FECH_PEDI = $db->conn->OffsetDate(0, $db->conn->sysTimeStamp);
// Obtiene la ubicaci�n f�sica de los documentos
$fldPRES_DEPE_ARCH = substr($fldradicado, 4, 3);
$query = "SELECT UBIC_DEPE_ARCH FROM UBICACION_FISICA WHERE UBIC_DEPE_RADI=" . $fldPRES_DEPE_ARCH;
$db->conn->SetFetchMode(ADODB_FETCH_ASSOC);
$rs = $db->conn->query($query);
if (!$rs->EOF) {
$fldPRES_DEPE_ARCH = $rs->fields['UBIC_DEPE_ARCH'];
}
// Genera PRES_ID
//$db->conn->debug = true;
$sec = $db->conn->nextId('SEC_PRESTAMO');
/*if($driver=="oci8")
{
echo "<hr>ENTRO<HR>";
$sSQL = "SELECT PRES_SEQ.NEXTVAL AS PRES_ID FROM PRESTAMO";
$rs = $db->conn->query($sSQL);
if(!$rs->EOF)
{
$fldPRES_ID =$rs->fields("PRES_ID");
}
}*/
// Create SQL statement
//$db->conn->debug = true;
$sSQL = "insert into PRESTAMO(\n PRES_ID,\n RADI_NUME_RADI,\n\t\t \t USUA_LOGIN_ACTU,\n\t\t\t DEPE_CODI,\n PRES_FECH_PEDI,\t\t\t\t \n PRES_DEPE_ARCH,\n PRES_ESTADO,\n PRES_REQUERIMIENTO)\n values (" . tosql($sec, "Number") . "," . tosql($fldradicado, "Text") . "," . tosql($krd, "Text") . "," . tosql($dependencia, "Number") . "," . $fldPRES_FECH_PEDI . "," . tosql($fldPRES_DEPE_ARCH, "Number") . ", \n 1," . tosql($fldPRES_REQUERIMIENTO, "Number") . ")";
// Execute SQL statement
if ($db->conn->query($sSQL)) {
} else {
echo "<script> alert(\"El registro no pudo ser realizado\"); </script>";
}
} elseif ($sAction == "prestamo" || $sAction == "prestamoIndefinido" || $sAction == "delete" || $sAction == "devolucion") {
// Inicializa par�metros para SQL
$fldPRES_FECH = $db->conn->OffsetDate(0, $db->conn->sysTimeStamp);
$fldPRES_ID = get_param("s_PRES_ID");
$sfldPRES_ID = str_replace("'", "", "" . tosql($fldPRES_ID, "Text"));
// identifiador de los registros
$estadoOld = "=1";
// Pr�stamo
if ($sAction == "prestamoIndefinido" || $sAction == "prestamo") {
$fldDESC = tosql(get_param("observa"), "Text");
$setFecha = "PRES_FECH_PRES=" . $fldPRES_FECH . ", PRES_DESC=" . $fldDESC . ", USUA_LOGIN_PRES='" . $krd . "' ";
$nombTx = "Prestar Documento";
if ($sAction == "prestamoIndefinido") {
$estadoNew = 5;
$titError = "El registro del préstamo indefinido no pudo ser realizado";
} else {
$estadoNew = 2;
$fechaVencimiento = get_param("fechaVencimiento");
$sqlFechaVenc = $db->conn->DBDate($fechaVencimiento);
$setFecha .= ",PRES_FECH_VENC=" . $sqlFechaVenc . " ";
$titError = "El registro del préstamo no pudo ser realizado";
}
} elseif ($sAction == "delete") {
$estadoNew = 4;
$setFecha = "PRES_FECH_CANC=" . $fldPRES_FECH . ", USUA_LOGIN_CANC='" . $krd . "'";
$nombTx = "Cancelar Solicitud de Préstamo";
$titError = "El registro de la cancelaci�n no pudo ser realizado";
} elseif ($sAction == "devolucion") {
$estadoNew = 3;
$fldDESC = tosql(get_param("observa"), "Text");
$setFecha = "PRES_FECH_DEVO=" . $fldPRES_FECH . ", DEV_DESC=" . $fldDESC . ", USUA_LOGIN_RX='" . $krd . "' ";
$nombTx = "Devolver Documento";
$titError = "El registro de la devoluci�n no pudo ser realizado";
$estadoOld = "in (2,5)";
}
$fecha = date("d-m-Y h:i A");
// Create SQL statement
$sSQL = "update PRESTAMO set " . $setFecha . ",PRES_ESTADO=" . $estadoNew . " \n\t\t\t where PRES_ID in (" . $sfldPRES_ID . ") and PRES_ESTADO " . $estadoOld;
// Execute SQL statement
if ($db->conn->query($sSQL)) {
verMensaje($nombTx, $fecha);
} else {
echo "<script> alert(" . $titError . "); </script>";
}
}
}
$regs .= $val[0] . ',';
}
$tblConfirma = verMensaje('PRESTAMO', $regs);
}
break;
case 'Devolver':
$lst = implode(',', array_keys($_POST['checkValue']));
$setFecha = "PRES_FECH_DEVO=" . $db->conn->OffsetDate(0, $db->conn->sysTimeStamp) . ", DEV_DESC='" . $observa . "', USUA_LOGIN_RX='" . $krd . "' ";
$sqlUp = "update PRESTAMO set " . $setFecha . ",PRES_ESTADO=3 \n\t\t\t \t\twhere PRES_ID in (" . $lst . ")";
if ($db->conn->query($sqlUp)) {
$sql = "select distinct sgd_exp_numero from prestamo where pres_id in ({$lst})";
$rsLst = $db->conn->GetArray($sql);
foreach ($rsLst as $i => $val) {
$regs .= $val[0] . ',';
}
$tblConfirma = verMensaje('DEVOLUCIÓN', $regs);
}
break;
case 'contrasena':
include "{$ruta_raiz}/class_control/usuario.php";
$objUsu = new Usuario($db);
$retorno = $objUsu->validaUsuario($txtLogin, $txtContrasena);
die($retorno);
break;
}
}
$verClave = 0;
$query = "select PARAM_VALOR from SGD_PARAMETRO where PARAM_NOMB='PRESTAMO_PASW'";
$rs = $db->conn->query($query);
if ($rs && !$rs->EOF) {
$verClave = $rs->fields("PARAM_VALOR");
$rs->MoveNext();
}
$tblPrestados .= " <tr align='center'><td class='titulos3' colspan='11' align='center'><input type='submit' class='botones' value='Cancelar' name='accion' onClick='return validar();'></td></tr></table><br>";
}
break;
case 'Cancelar':
$lst = implode(',', array_keys($_POST['checkValue']));
$setFecha = "PRES_FECH_CANC=" . $db->conn->OffsetDate(0, $db->conn->sysTimeStamp) . ", USUA_LOGIN_CANC='" . $krd . "'";
$sqlUp = "update PRESTAMO set " . $setFecha . ",PRES_ESTADO=4, canc_desc='Solicitud cancelada por vencimiento en su recolección'\n\t\t\t \twhere PRES_ID in (" . $lst . ")";
if ($db->conn->query($sqlUp)) {
$sql = "select distinct sgd_exp_numero from prestamo where pres_id in ({$lst})";
$rsLst = $db->conn->GetArray($sql);
foreach ($rsLst as $i => $val) {
$regs .= $val[0] . ',';
}
$tblConfirma = verMensaje('CANCELAR SOLICITUD', $regs);
}
break;
case 'combo':
include "{$ruta_raiz}/class_control/usuario.php";
$objUsu = new Usuario($db);
die($objUsu->usuarioDep($dep));
break;
}
}
$sql = "SELECT dep_sigla " . $db->conn->concat_operator . "'-'" . $db->conn->concat_operator . " DEPE_NOMB, DEPE_CODI FROM DEPENDENCIA where depe_estado=1 and depe_codi_territorial=" . $_SESSION["depe_codi_territorial"] . " ORDER BY 1";
$rs = $db->conn->execute($sql);
$selDep = $rs->GetMenu2('dependenciaSel', $dependenciaSel, $blank1stItem, false, 0, " id='dependenciaSel' class=select onChange='combos(this)'");
}
?>
<html>
