<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wProductNote | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector Dim parReject_seq '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parProd_id = Request("prod_id") parReject_seq = Request("reject_seq") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nProd_id, nReject_seq, ByRef outobjDetails ) Dim rsQry, query query = _ " SELECT * FROM PRODUCT_NOTES WHERE PROD_ID="&nProd_id Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) outobjDetails.Item ("notes") = NULL If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("notes") = rsQry("notes") End If rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub ProdAddNote () On Error Resume Next OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NOTES", Request("reject_note"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Product.Add_Product_Note ( :PROD_ID, :NOTES, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "NOTES" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub ProdEditNote () On Error Resume Next OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NOTES", Request("reject_note"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Product.Edit_Product_Note ( :PROD_ID, :NOTES, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "NOTES" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( parProd_id, parReject_seq, objFormCollector ) ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("reject_note"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- 'Call BomCheck() If request("type") = "add" Then Call ProdAddNote() Else Call ProdEditNote() End If If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%> ">

Note Enter note details and click submit.

<%=ProgressBar%>

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Note <%=objForm.GetValue( "reject_note", objFormCollector.Item("notes")) %> <%=objForm.Validate ("reject_note")%>