<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| BOM_AcceptReject | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim parIs_rejected Dim parBom_id_list '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parIs_rejected = Request("is_rejected") parBom_id_list = Request("bom_id_list") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub AcceptRejectBOM () On Error Resume Next OraDatabase.Parameters.Add "BOM_ID", Request("bom_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "IS_REJECTED", Request("is_rejected"), ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_ID", Request("state_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMMENTS", Request("reject_note"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Bom.Accept_Reject ( :BOM_ID, :IS_REJECTED, :COMMENTS, :STATE_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "COMMENTS" OraDatabase.Parameters.Remove "IS_REJECTED" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("reject_note"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("action") <> "" Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call AcceptRejectBOM() If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") ) End If End If End If '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> <%If parIs_rejected = enumDB_NO Then%>  Accept BOM <%Else%>  Reject BOM <%End If%> Enter optional comments and click Submit. <%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Comments <%=Request("reject_note")%> <%=objForm.Validate ("reject_note")%>     ';">