<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wEditBom | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id ) parBom_id = Request("bom_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBomId, ByRef outobjDetails ) Call GetBomDetails ( nBomId, outobjDetails ) outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle") End Sub '-------------------------------------------------------------------------------------------------------------------------- Function GetDMReleaseList ( nRtagId, nProjId ) Dim rsQry, query Set rsQry = OraDatabase.DbCreateDynaset( "select * from dm_projects where proj_id="&nProjId, ORADYN_DEFAULT ) OraDatabase.Parameters.Add "BRANCH_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_ID", rsQry("rm_projects_fk"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("DMReleasesCombo.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetDMReleaseList = rsQry.GetRows() Else GetDMReleaseList = NULL End If OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "PROJ_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------------------- Sub UpdateBom () On Error Resume Next OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_COMMENTS", Request("bom_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Bom.Update_ProdBom ( :BOM_ID, :RTAG_ID, :BOM_COMMENTS, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "BOM_COMMENTS" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- Call GetFormDetails ( parBom_id, objFormCollector ) ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("bom_comments"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call UpdateBom() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = SCRIPT_NAME objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

BOM Enter optional comments.

<%=ProgressBar%>

Bom Version <%=objFormComponent.TextBox ( "bom_full_version", objFormCollector.Item("bom_full_version"), "size='60' class='form_ivalue' disabled" )%> Deployment Manager Reference <%=objFormComponent.Combo ( "rtag_id_fk", GetDMReleaseList( objForm.GetValue( "rtag_id_fk", objFormCollector.Item("rtag_id_fk") ), dbPARproj_id ), TRUE, "class='form_ivalue'" )%> Bom Comments <%=objFormComponent.TextArea ( "bom_comments", objForm.GetValue( "bom_comments", objFormCollector.Item("bom_comments") ), 10, 60, "class='form_ivalue'" )%> <%=objForm.Validate ("bom_comments")%>