<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ReleaseTo | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parState_id Dim parBom_id_list '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parState_id = Request("state_id") parBom_id_list = Request("bom_id_list") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nState_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "STATE_ID", nState_id, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT st.STATE_SEQ FROM STATES st WHERE st.STATE_ID = :STATE_ID" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then outobjDetails.Item ("state_seq") = rsQry("state_seq") End If OraDatabase.Parameters.Remove "STATE_ID" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub ReleaseTo () On Error Resume Next OraDatabase.Parameters.Add "BOM_ID", Request("bom_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "TOSTATE_ID", Request("tostate_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMMENTS", Request("release_to_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Bom.Release_To ( :BOM_ID, :USER_ID, :TOSTATE_ID, :COMMENTS ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "TOSTATE_ID" OraDatabase.Parameters.Remove "COMMENTS" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( Request("state_id"), objFormCollector ) ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("release_to_comments"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("action") <> "" Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call ReleaseTo() If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") ) End If End If End If '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%>  Release BOM Select where do you want to release BOM. <%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Release To <% OraDatabase.Parameters.Add "TOSTATE_ID", Request("tostate_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "STATE_SEQ", objFormCollector.Item("state_seq"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseToStateList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> " <%=rsQry("selected")%>><%=rsQry("state_name").Value%> <% rsQry.MoveNext WEnd rsQry.Close OraDatabase.Parameters.Remove "TOSTATE_ID" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "STATE_SEQ" %> Comments <%=Request("release_to_comments")%> <%=objForm.Validate ("release_to_comments")%>     ';">