* @link http://www.orfeolibre.org * @version SVN: $Id$ * @since */ /*---------------------------------------------------------+ | INCLUDES | +---------------------------------------------------------*/ /*---------------------------------------------------------+ | DEFINICIONES | +---------------------------------------------------------*/ /*---------------------------------------------------------+ | MAIN | +---------------------------------------------------------*/ /********************************************************************************* * Filename: renovar.php * Generated with CodeCharge 2.0.5 * PHP 4.0 build 11/30/2001 *********************************************************************************/ //------------------------------- // prestar CustomIncludes begin session_start(); include_once ("./common.php"); include_once ("./encabezado.php"); // prestar CustomIncludes end //------------------------------- //=============================== // Save Page and File Name available into variables //------------------------------- $sFileName = "renovar.php"; //=============================== //=============================== // prestar PageSecurity begin check_security(); // prestar PageSecurity end //=============================== //=============================== // prestar Open Event begin // prestar Open Event end //=============================== //=============================== // prestar OpenAnyPage Event start // prestar OpenAnyPage Event end //=============================== //=============================== //Save the name of the form and type of action into the variables //------------------------------- $sAction = get_param("FormAction"); $sForm = get_param("FormName"); //=============================== // prestar Show begin //=============================== // Perform the form's action //------------------------------- // Initialize error variables //------------------------------- $sPRESTAMOErr = ""; $login_err=""; //------------------------------- // Select the FormAction //------------------------------- switch ($sForm) { case "PRESTAMO": R_PRESTAMO_action($sAction); break; } //=============================== //=============================== // Display page //=============================== // HTML Page layout //------------------------------- ?> "; /* if(!strlen($fldcontrasena)) $sPRESTAMOErr .= "El valor en el campo Contraseńa de Usuario se requiere para renovar.
"; */ //------------------------------- // PRESTAMO Check Event begin // PRESTAMO Check Event end //------------------------------- if(strlen($sPRESTAMOErr)) return; } //------------------------------- //------------------------------- // Create SQL statement //------------------------------- switch(strtolower($sAction)) { case "update": //------------------------------- // PRESTAMO Update Event begin $fldPRES_FECH_PRES = "to_date('" .$fldPRES_FECH_PRES . "','dd/mm/yyyy HH:MI')"; if ($fldPRES_ESTADO!=5){ //Es un prestamo indefinido $fldPRES_FECH_VENC = "to_date('" .$fldPRES_FECH_VENC . "','dd/mm/yyyy HH:MI')"; } else{ $fldPRES_FECH_VENC = "to_date('01/01/2020','dd/mm/yyyy HH:MI')"; } if($fldPRES_ESTADO ==2){ $fldcontrasena = substr(md5($fldcontrasena),1,26); $rs=$db->query("SELECT USUA_LOGIN FROM USUARIO WHERE USUA_LOGIN =" . tosql($fldusuario, "Text") . " AND USUA_PASW=" . tosql($fldcontrasena, "Text")); if(!$rs || $rs->EOF){ $login_err = "LA PALABRA CLAVE DEL USUARIO ES INCORRECTA"; } } // PRESTAMO Update Event end //------------------------------- if($sSQL == "") { $sSQL = "update PRESTAMO set " . "PRES_FECH_VENC=" . $fldPRES_FECH_VENC; $sSQL .= " where " . $sWhere; } break; } //------------------------------- //------------------------------- // PRESTAMO BeforeExecute Event begin // PRESTAMO BeforeExecute Event end //------------------------------- //------------------------------- // Execute SQL statement //------------------------------- if(strlen($sPRESTAMOErr)) return; if(strlen($login_err)) return; if($bExecSQL) $db->query($sSQL); //include_once($sActionFileName); //------------------------------- // PRESTAMO Action end //------------------------------- } //=============================== // Display Record Form //------------------------------- function R_PRESTAMO_show() { global $db; global $sAction; global $sForm; global $sFileName; global $sPRESTAMOErr; global $styles; global $login_err; $fldPRES_ID = ""; $fldRADI_NUME_RADI = ""; $fldUSUA_LOGIN_ACTU = ""; $fldDEPE_CODI = ""; $fldPRES_FECH_PEDI = ""; $fldPRES_REQUERIMIENTO = ""; $fldUSUA_LOGIN_PRES = ""; $fldPRES_FECH_PRES = ""; $fldPRES_DESC = ""; $fldPRES_ESTADO = ""; //------------------------------- // PRESTAMO Show begin //------------------------------- $sFormTitle = "Renovar"; $sWhere = ""; $bPK = true; ?> conn->SetFetchMode(ADODB_FETCH_ASSOC); $rs=$db->query($sSQL); $db->conn->SetFetchMode(ADODB_FETCH_NUM); $bIsUpdateMode = ($bPK && !($sAction == "insert" && $sForm == "PRESTAMO") && ($rs && !$rs->EOF)); //------------------------------- //------------------------------- // Load lists of values //------------------------------- $aPRES_REQUERIMIENTO = split(";", "1;Documento;2;Anexo"); $aPRES_ESTADO = split(";", "2;Prestado;4;Cancelado;5;Prestamo indefinido"); //------------------------------- //------------------------------- // Load all fields into variables from recordset or input parameters //------------------------------- if($bIsUpdateMode) { $fldDEPE_CODI =$rs->fields["DEPE_CODI"]; $fldPRES_FECH_PEDI =$rs->fields["PRES_FECH_PEDI"]; $fldPRES_ID =$rs->fields["PRES_ID"]; $fldPRES_REQUERIMIENTO =$rs->fields["PRES_REQUERIMIENTO"]; $fldRADI_NUME_RADI =$rs->fields["RADI_NUME_RADI"]; $fldUSUA_LOGIN_ACTU =$rs->fields["USUA_LOGIN_ACTU"]; $fldPRES_FECH_VENC =$rs->fields["PRES_FECH_VENC"]; $timestamp = strtotime($fldPRES_FECH_VENC); $fldPRES_FECH_RENO = Date('d/m/Y h:i', mktime(Date('h',$timestamp),Date('i',$timestamp),0,Date('m',$timestamp),Date('d',$timestamp)+8,Date('Y',$timestamp))); //------------------------------- // Load data from recordset when form displayed first time //------------------------------- if($sPRESTAMOErr == "") { $fldUSUA_LOGIN_PRES =$rs->fields["USUA_LOGIN_PRES"]; $fldPRES_FECH_PRES =$rs->fields["PRES_FECH_PRES"]; $fldPRES_DESC =$rs->fields["PRES_DESC"]; $fldPRES_ESTADO =$rs->fields["PRES_ESTADO"]; } //------------------------------- // PRESTAMO ShowEdit Event begin // PRESTAMO ShowEdit Event end //------------------------------- } else { if($sPRESTAMOErr == "") { $fldPRES_ID = tohtml(get_param("PRES_ID")); $fldUSUA_LOGIN_PRES = tohtml(get_session("UserID")); $fldPRES_FECH_PRES=Date('d/m/Y h:i');; $fldPRES_FECH_VENC = Date('d/m/Y h:i', mktime(Date(h),Date(i),0,Date(m),Date(d)+8,Date(Y))); } //------------------------------- // PRESTAMO ShowInsert Event begin // PRESTAMO ShowInsert Event end //------------------------------- } //------------------------------- // Set lookup fields //------------------------------- $fldDEPE_CODI = get_db_value("SELECT DEPE_NOMB FROM DEPENDENCIA WHERE DEPE_CODI=" . tosql($fldDEPE_CODI, "Number")); if($sPRESTAMOErr == "") { //------------------------------- // PRESTAMO Show Event begin $fldUSUA_LOGIN_PRES = get_session("UserID"); // PRESTAMO Show Event end //------------------------------- } //------------------------------- // Show form field //------------------------------- ?>

Radicado
Login Usuario
Dependencia Usuario
Fecha de Pedido
Requerimiento
Usuario que Presta
Fecha de Préstamo
Fecha de Vencimiento Actual
Nueva Fecha de Vencimiento
Descripcion
Estado