Production Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Bom_Comparison | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, rsTemp Dim aProductList Dim parProd_id_select Dim parShowall Dim numOfRows Dim rowNum Dim objFormCollector Dim objFormComponent Dim sMessage Dim ProdId Dim ChangeType Dim PkgVersion, CurrentPkgVersion, IsDisplay, Comments Dim PkgId, OldProdId, OsId '------------ CONSTANTS DECLARATION ----------- Const LIMG_UPDATED = "

" Const LIMG_ADDED = "

" Const LIMG_REMOVED = "

" Const LIMG_NOTE_NEW = "

" Const LIMG_NOTE_EDIT = "

" '------------ VARIABLE INIT ------------------- parProd_id_select = Request("prod_id_select") parShowall = Request("showall") Set objFormCollector = CreateObject("Scripting.Dictionary") Set objFormComponent = New FormComponent '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function AddTrailingZeros(byval n, byval count) if len(n) >= count then AddTrailingZeros = n exit function end if dim c, s, i c = count - len(n) for i = 1 to c s = s & "0" next s = cstr(n) & s AddTrailingZeros = s End function '-------------------------------------------------------------------------------------------------------------- Sub GetProductList ( nBom_id, nComparedBomId, outProductList, Flag ) Dim rsQry, query, showAll '' Use SHOWALL parameter is BOM has old bom 'showAll = "Y" 'If nBom_id <> nComparedBomId Then ' showAll = parShowall 'End If OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", nComparedBomId, ORAPARM_INPUT, ORATYPE_NUMBER If Flag = "Less" Then Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("OrigBomCompare.sql"), ORADYN_DEFAULT ) Else Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("SameProducts.sql"), ORADYN_DEFAULT ) End If If rsQry.RecordCount > 0 Then outProductList = rsQry.GetRows() Else outProductList = NULL End If OraDatabase.Parameters.Remove "COMPARE_BOM_ID" OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBom_id, ByRef outobjDetails ) Call GetBomDetails ( nBom_id, outobjDetails ) outobjDetails.Item("root_version") = GetRootVersion ( outobjDetails.Item("bom_version") ) '-- Set compare_bom_id If Request("compare_bom_id") <> "" Then outobjDetails.Item("compare_bom_id") = Request("compare_bom_id") Else Dim rsQry, query, GetBomTree OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionTreeCombo_Selected.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then 'While (NOT rsQry.BOF) AND (NOT rsQry.EOF) 'If IsEmpty(GetBomTreeListMax) Then GetBomTree = rsQry("bom_id") 'rsQry.MoveNext 'Wend Else GetBomTree = NULL End If OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" rsQry.Close Set rsQry = Nothing outobjDetails.Item("compare_bom_id") = GetBomTree End If End Sub '-------------------------------------------------------------------------------------------------------------- Sub GetBomTreeListMax Dim rsQry, query, GetBomTree OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionTreeCombo_Selected.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then 'While (NOT rsQry.BOF) AND (NOT rsQry.EOF) 'If IsEmpty(GetBomTreeListMax) Then GetBomTree = rsQry("bom_id") 'rsQry.MoveNext 'Wend Else GetBomTree = NULL End If OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------- Function GetBomTreeList () Dim rsQry, query OraDatabase.Parameters.Add "BRANCH_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", Request("compare_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductionTreeCombo_Selected.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetBomTreeList = rsQry.GetRows() Else GetBomTreeList = NULL End If OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------- Function GetCompareBomDetails ( nBomId ) Dim rsQry, query OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetCompareBomDetails = rsQry("proj_name") &" / "& rsQry("branch_name") &" / "& rsQry("bom_name") &" "& rsQry("bom_version") &"."& rsQry("bom_lifecycle") Else GetCompareBomDetails = NULL End If OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( Array("compare_bom_id") ) Call GetFormDetails ( dbPARbom_id, objFormCollector ) '---------------------------------------------- %> Production Manager

	<%Call RenderTitleWithoutVersion( objBomCollector )%>
	<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrBomTabDef ) objTabControl.SelectByName("BOM Comparison") objTabControl.Render () %>

		<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%>

<%If objBomCollector.Item ("is_rejected") = enumDB_YES Then%>

<% OraDatabase.Parameters.Add "ENTITY_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_BOM", ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT ) sMessage = "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) sMessage = sMessage & "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" rsQry.MoveNext WEnd rsQry.Close sMessage = sMessage &"

BOM is REJECTED!	Create Note"& LIMG_NOTE_NEW &"

" If rsQry("is_rejected") = enumDB_YES Then sMessage = sMessage &"BOM is REJECTED! " Else sMessage = sMessage &"BOM is Accepted! " End If sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &" "& rsQry("creator") &"	Edit Note"& LIMG_NOTE_EDIT &"

" Call Messenger ( sMessage, "bi_rejected.gif", "100%" ) Response.write "
" OraDatabase.Parameters.Remove "ENTITY_ID" OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE" %>

<%End If%> <%If (objBomCollector.Item("bom_comments") <> "") Then%> <%End If%>

BOM Comments

<%= objFormater.TextToHTML( objBomCollector.Item("bom_comments") )%>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "OldVersion" objFormComponent.Action = SCRIPT_NAME objFormComponent.Method = "get" Call objFormComponent.FormStart() %> <%Call RenderTitle( objBomCollector )%>
compared with <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %>

Show changes since BOM version <%=objFormComponent.Combo ( "compare_bom_id", GetBomTreeList(), False, "class='form_ivalue'" )%> <%=objPMod.ComposeHiddenTagsWithout("compare_bom_id")%> <%=objFormComponent.SubmitButton ( "Compare", "class='form_btn'" )%>

Products/Patches Existing in <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %> but not yet deployed in Production BOM
Display...

<% Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, "Less" ) If NOT IsNull( aProductList ) Then numOfRows = UBound( aProductList, 2 ) For rowNum = 0 To numOfRows ProdId = aProductList( 0, rowNum ) ChangeType = aProductList( 3, rowNum ) PkgVersion = aProductList( 2, rowNum ) PkgId = aProductList( 6, rowNum ) If ChangeType = "A" or ChangeType = "U" Then OraDatabase.Parameters.Add "PRODUCTION_BOM", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", PkgId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset(GetQuery("ProdVersion.sql"), ORADYN_DEFAULT) OldProdId = rsQry("prod_id") CurrentPkgVersion = rsQry("pkg_version") Comments = rsQry("comments") OraDatabase.Parameters.Remove "PRODUCTION_BOM" OraDatabase.Parameters.Remove "PKG_ID" IsDisplay = True Dim MajorA, MajorB, MinorA, MinorB, PatchA, PatchB, pos MajorA = NULL MajorB = NULL MinorA = NULL MinorB = NULL PatchA = NULL PatchB = NULL ' Find the first occurence of the dot in package version A pos = InStr(PkgVersion, ".") If pos <> 0 Then ' Extract the Major Version for A MajorA = Mid(PkgVersion, 1, pos - 1) ' Delete the Major Version Value from the string to get the minor and patch version PkgVersion = Mid(PkgVersion, pos + 1, Len(PkgVersion)) ' Find the second occurence of the dot in package version A pos = InStr(PkgVersion, ".") ' Extract the Minor Version for A If pos <> 0 Then MinorA = Mid(PkgVersion, 1, pos - 1) ' Delete the Minor Version value from the string to get the patch version PkgVersion = Mid(PkgVersion, pos + 1, Len(PkgVersion)) ' Find the last occurence of the dot in package version A pos = InStr(PkgVersion, ".") If pos <> 0 Then ' Extract the Patch Version for A PatchA = Mid(PkgVersion, 1, pos - 1) End If End If End If ' Find the first occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") If pos <> 0 Then ' Extract the Major Version for B MajorB = Mid(CurrentPkgVersion, 1, pos - 1) ' Delete the Major Version Value from the string to get the minor and patch version CurrentPkgVersion = Mid(CurrentPkgVersion, pos + 1, Len(CurrentPkgVersion)) ' Find the second occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") ' Extract the Minor Version for B If pos <> 0 Then MinorB = Mid(CurrentPkgVersion, 1, pos - 1) ' Delete the Minor Version value from the string to get the patch version CurrentPkgVersion = Mid(CurrentPkgVersion, pos + 1, Len(CurrentPkgVersion)) ' Find the last occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") If pos <> 0 Then ' Extract the Patch Version for B PatchB = Mid(CurrentPkgVersion, 1, pos - 1) End If End If End If If NOT isNull(PatchA) AND NOT isNull(PatchB) Then If len(PatchA) < 4 Then PatchA = AddTrailingZeros(PatchA, 4) If len(PatchB) < 4 Then PatchB = AddTrailingZeros(PatchB, 4) End If If MajorA = MajorB Then If MinorA = MinorB Then If IsNumeric(PatchA) AND IsNumeric(PatchB) Then If CDbl(PatchB) > CDbl(PatchA) Then IsDisplay = False Else IsDisplay = True End If End If Else If IsNumeric(MinorA) AND IsNumeric(MinorB) Then If CInt(MinorB) > CInt(MinorA) Then IsDisplay = False Else IsDisplay = True End If End If End If Else If IsNumeric(MajorA) AND IsNumeric(MajorB) Then If CInt(MajorB) > CInt(MajorA) Then IsDisplay = False Else IsDisplay = True End If End If End If If IsDisplay Then %> <% Dim rsForm Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&ProdId&" AND BOM_ID="&Request("bom_id"), ORADYN_DEFAULT) %> <%If rsForm.RecordCount = 0 Then%> <%ElseIf IsNull(rsForm("is_official")) Then%> <%If NOT IsNull(rsForm("tester_id"))Then%> <%End If%> <%Else%> <%End If rsForm.Close() Set rsForm = nothing %> <%If rowNum <> numOfRows Then%> <%End If%> <%End If%> <% rsQry.Close() Set rsQry = Nothing End If Next Else%> <%End If%>

Product

Version

Comments

Approval

<% Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT ) %> <%=GetProductIcon( rsTemp ) & aProductList( 1, rowNum )%> <% rsTemp.Close() Set rsTemp = nothing %>

<%=aProductList( 2, rowNum )%>

<%=Comments%>

Awaiting Approval

Tester Approved

Approved

No Changes Found.

Products/Patches Existing in <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %> And Production BOM
Display...

Products/Patches Existing in <%= GetCompareBomDetails( objFormCollector.Item("compare_bom_id") ) %> but Superceeded in Production BOM
Display...

<% Call GetProductList ( dbPARbom_id, objFormCollector.Item("compare_bom_id"), aProductList, "Less" ) If NOT IsNull( aProductList ) Then numOfRows = UBound( aProductList, 2 ) For rowNum = 0 To numOfRows ProdId = aProductList( 0, rowNum ) ChangeType = aProductList( 3, rowNum ) PkgVersion = aProductList( 2, rowNum ) PkgId = aProductList( 6, rowNum ) If ChangeType = "A" or ChangeType = "U" Then OraDatabase.Parameters.Add "PRODUCTION_BOM", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", PkgId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset(GetQuery("ProdVersion.sql"), ORADYN_DEFAULT) OldProdId = rsQry("prod_id") CurrentPkgVersion = rsQry("pkg_version") Comments = rsQry("comments") OraDatabase.Parameters.Remove "PRODUCTION_BOM" OraDatabase.Parameters.Remove "PKG_ID" IsDisplay = True MajorA = NULL MajorB = NULL MinorA = NULL MinorB = NULL PatchA = NULL PatchB = NULL ' Find the first occurence of the dot in package version A pos = InStr(PkgVersion, ".") If pos <> 0 Then ' Extract the Major Version for A MajorA = Mid(PkgVersion, 1, pos - 1) ' Delete the Major Version Value from the string to get the minor and patch version PkgVersion = Mid(PkgVersion, pos + 1, Len(PkgVersion)) ' Find the second occurence of the dot in package version A pos = InStr(PkgVersion, ".") ' Extract the Minor Version for A If pos <> 0 Then MinorA = Mid(PkgVersion, 1, pos - 1) ' Delete the Minor Version value from the string to get the patch version PkgVersion = Mid(PkgVersion, pos + 1, Len(PkgVersion)) ' Find the last occurence of the dot in package version A pos = InStr(PkgVersion, ".") If pos <> 0 Then ' Extract the Patch Version for A PatchA = Mid(PkgVersion, 1, pos - 1) End If End If End If ' Find the first occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") If pos <> 0 Then ' Extract the Major Version for B MajorB = Mid(CurrentPkgVersion, 1, pos - 1) ' Delete the Major Version Value from the string to get the minor and patch version CurrentPkgVersion = Mid(CurrentPkgVersion, pos + 1, Len(CurrentPkgVersion)) ' Find the second occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") ' Extract the Minor Version for B If pos <> 0 Then MinorB = Mid(CurrentPkgVersion, 1, pos - 1) ' Delete the Minor Version value from the string to get the patch version CurrentPkgVersion = Mid(CurrentPkgVersion, pos + 1, Len(CurrentPkgVersion)) ' Find the last occurence of the dot in package version B pos = InStr(CurrentPkgVersion, ".") If pos <> 0 Then ' Extract the Patch Version for B PatchB = Mid(CurrentPkgVersion, 1, pos - 1) End If End If End If If NOT isNull(PatchA) AND NOT isNull(PatchB) Then If len(PatchA) < 4 Then PatchA = AddTrailingZeros(PatchA, 4) If len(PatchB) < 4 Then PatchB = AddTrailingZeros(PatchB, 4) End If If MajorA = MajorB Then If MinorA = MinorB Then If IsNumeric(PatchA) AND IsNumeric(PatchB) Then If CDbl(PatchB) > CDbl(PatchA) Then IsDisplay = False Else IsDisplay = True End If End If Else If IsNumeric(MinorA) AND IsNumeric(MinorB) Then If CInt(MinorB) > CInt(MinorA) Then IsDisplay = False Else IsDisplay = True End If End If End If Else If IsNumeric(MajorA) AND IsNumeric(MajorB) Then If CInt(MajorB) > CInt(MajorA) Then IsDisplay = False Else IsDisplay = True End If End If End If If NOT IsDisplay Then %> <%If rowNum <> numOfRows Then%> <%End If%> <%End If%> <% rsQry.Close() Set rsQry = Nothing End If Next Else%> <%End If%>

Product

Version

<%=aProductList( 2, rowNum )%>

<%=Comments%>

No Changes Found.

<% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing '---------------------------------------------- %>