<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wProdRejectNote | '| | '===================================================== %> <% 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 OraDatabase.Parameters.Add "ENTITY_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "REJECT_SEQ", nReject_seq,ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_PRODUCT", ORAPARM_INPUT, ORATYPE_VARCHAR2 query = _ " SELECT rt.COMMENTS"&_ " FROM REJECTION_TRAIL rt "&_ " WHERE rt.ENUM_ENTITY_TYPE = GET_SYSTEM_VALUE( :ENUM_ENTITY_TYPE ) "&_ " AND rt.ENTITY_ID = :ENTITY_ID "&_ " AND rt.REJECT_SEQ = :REJECT_SEQ " Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) outobjDetails.Item ("comments") = NULL If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("comments") = rsQry("comments") End If OraDatabase.Parameters.Remove "ENTITY_ID" OraDatabase.Parameters.Remove "REJECT_SEQ" OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub ProdRejectNote () On Error Resume Next OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "REJECT_SEQ", Request("reject_seq"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMMENTS", 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.Accept_Reject_Comments ( :PROD_ID, :REJECT_SEQ, :COMMENTS, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "REJECT_SEQ" OraDatabase.Parameters.Remove "COMMENTS" 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 ProdRejectNote() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) 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("comments")) %> <%=objForm.Validate ("reject_note")%>