* @link http://www.orfeolibre.org * @version SVN: $Id$ * @since */ /*---------------------------------------------------------+ | INCLUDES | +---------------------------------------------------------*/ /*---------------------------------------------------------+ | DEFINICIONES | +---------------------------------------------------------*/ /*---------------------------------------------------------+ | MAIN | +---------------------------------------------------------*/ /********************************************************************************* * Filename: prestar.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 //------------------------------- //$db->conn->debug=true; //=============================== // Save Page and File Name available into variables //------------------------------- $sFileName = "prestar.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": PRESTAMO_action($sAction); break; } //=============================== //=============================== // Display page //=============================== // HTML Page layout //------------------------------- ?>
"; if(!strlen($fldPRES_FECH_PRES)) $sPRESTAMOErr .= "El valor en el campo Fecha de Préstamo se requiere.
"; if(!is_number($fldPRES_ESTADO)) $sPRESTAMOErr .= "El valor en el campo Estado es incorrecto.
"; if(!strlen($fldcontrasena) && $fldPRES_ESTADO==2) $sPRESTAMOErr .= "El valor en el campo Contraseńa de Usuario se requiere para prestar.
"; //------------------------------- // 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 " . "USUA_LOGIN_PRES=" . tosql($fldUSUA_LOGIN_PRES, "Text") . ",PRES_FECH_PRES=" . $fldPRES_FECH_PRES . ",PRES_FECH_VENC=" . $fldPRES_FECH_VENC . ",PRES_DESC=" . tosql($fldPRES_DESC, "Text") . ",PRES_ESTADO=" . tosql($fldPRES_ESTADO, "Number"); $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 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 = ""; /* if (!$sAction){ $sAction = "insert"; $sForm = "PRESTAMO"; } */ //------------------------------- // PRESTAMO Show begin //------------------------------- $sFormTitle = "Prestar / Cancelar"; $sWhere = ""; $bPK = true; ?> conn->numToString("RADI_NUME_RADI "); $sSQL = "select PRES_ID, $radiATexto as RADI_NUME_RADI, USUA_LOGIN_ACTU, DEPE_CODI, USUA_LOGIN_PRES, PRES_DESC, PRES_FECH_PRES, PRES_FECH_DEVO, PRES_FECH_PEDI, PRES_ESTADO, PRES_REQUERIMIENTO, PRES_DEPE_ARCH, PRES_FECH_VENC from PRESTAMO where " . $sWhere; // Execute SQL statement $db->conn->SetFetchMode(ADODB_FETCH_ASSOC); $rs=$db->query($sSQL); $bIsUpdateMode = ($bPK && !($sAction == "insert" && $sForm == "PRESTAMO") && ($rs && !$rs->EOF) ); //------------------------------- //------------------------------- // Load lists of values //------------------------------- $aPRES_REQUERIMIENTO = split(";", "1;Documento;2;Anexo"); //------------------------------- //------------------------------- // 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"]; //------------------------------- // 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');; } //------------------------------- // 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"); $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 Show Event end //------------------------------- } //------------------------------- // Show form field //------------------------------- ?>
Radicado  
Login Usuario  
Contraseńa Usuario
Dependencia Usuario  
Fecha de Pedido  
Requerimiento  
Usuario que Presta
Fecha de Préstamo
Fecha de Vencimiento
Descripcion
Estado