<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| _SetBomOfficial | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------- Sub SetBomOfficial () On Error Resume Next OraDatabase.Parameters.Add "BOM_ID_LIST", Request("bom_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "IS_OFFICIAL", Request("is_official"), ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "STATE_ID", Request("state_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Bom.Set_Bom_Official ( :BOM_ID_LIST, :IS_OFFICIAL, :STATE_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID_LIST" OraDatabase.Parameters.Remove "IS_OFFICIAL" OraDatabase.Parameters.Remove "STATE_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** ' --- Form is Valid --- Call SetBomOfficial() If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") ) End If '********************************************************************** %> <% '------------ RUN AFTER CODE RUN -------------- '---------------------------------------------- %>