|
|
 |
|
<%Call RenderTitle( objProdCollector )%> |
|
|
<%
Set objTabControl = New TabControl
objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
objTabControl.TabStyle = "StyleWinXP"
objTabControl.AddTabDefnition ( arrProdTabDef )
objTabControl.Render ()
%>
|
|
|
|
 |
| |
|
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%> <%End If%> |
<%
OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
<%
If objProdCollector.Item ("is_rejected") = enumDB_YES Then
OraDatabase.Parameters.Add "ENTITY_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_PRODUCT", ORAPARM_INPUT, ORATYPE_VARCHAR2
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT )
sMessage = ""
sMessage = sMessage &""
sMessage = sMessage &"Product is REJECTED!
| "
sMessage = sMessage &"Create Note"& LIMG_NOTE_NEW &" | "
sMessage = sMessage &" "
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
sMessage = sMessage & " | "
sMessage = sMessage &""
sMessage = sMessage &""
If rsQry("is_rejected") = enumDB_YES Then
sMessage = sMessage &"Product is REJECTED!
"
Else
sMessage = sMessage &"Product is Accepted!
"
End If
sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &"
"& rsQry("creator") &" | "
sMessage = sMessage &"Edit Note"& LIMG_NOTE_EDIT &" | "
sMessage = sMessage &" "
rsQry.MoveNext
WEnd
rsQry.Close
sMessage = sMessage &" "
Call Messenger ( sMessage, "i_product_rejected.gif", "100%" )
Response.write "
"
OraDatabase.Parameters.Remove "ENTITY_ID"
OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE"
End If
%>
Module Changes
|
|
Current Version |
Previous Version |
|
Owner |
<%
Dim style, icon
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsDiff.sql"), ORADYN_DEFAULT )
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Call RowStyle ( rsQry("status"), icon, style )
%>
| <%=icon%> |
<%=rsQry("pkg_name").Value%> |
<%=rsQry("pkg_version").Value%> |
<%=rsQry("previous_version").Value%> |
|
" class="body_link" title="Send Email to <%=rsQry("user_email")%>"><%=LIMG_EMAIL & rsQry("full_name").Value%> |
<%rsQry.MoveNext%>
<%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
|
<%End If%>
<%
WEnd
%>
|
|
NOTE: <%=LIMG_UPDATED%> Updated, <%=LIMG_ADDED%> Added, <%=LIMG_REMOVED%> Removed, [Blank] No change
Reasons For This Version
|
|
<%
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReasonsForVersionList.sql"), ORADYN_DEFAULT )
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
%>
<%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%>
<%
If IsNull(rsQry("comments")) OR rsQry("comments") = "" Then
Response.write "Not specified. Check Issues list."
Else
Response.write objFormater.TextToHtml( rsQry("comments") )
End If
%>
|
<%rsQry.MoveNext%>
<%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
|
<%End If%>
<%
WEnd
%>
|
|
<%
OraDatabase.Parameters.Remove "PROD_ID"
OraDatabase.Parameters.Remove "OLD_PROD_ID"
OraDatabase.Parameters.Remove "PKG_ID"
OraDatabase.Parameters.Remove "V_EXT"
%>
Release Authorisation
<%
Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT )
If rsQry.RecordCount > 0 Then
%>
| Date |
Regional Tester |
Tester Comments |
| <%=rsQry("tester_datestamp")%> |
<%=UserName(rsQry("tester_id"))%> |
<%=rsQry("tester_comments")%> |
<%'objRepeater.RenderDataGrid ()%>
| Date |
Regional Manager |
Manager Comments |
| <%=rsQry("manager_datestamp")%> |
<%=UserName(rsQry("manager_id"))%> |
<%=rsQry("manager_comments")%> |
<%'objRepeater.RenderDataGrid ()%>
|
<%
Else
%>
No Information
<%
End If
rsQry.Close()
Set rsQry = Nothing
%>
|
|
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
| <%=GetNodeImage ( dbPARnode_id )%> |
|
<%End If%>
|
"
Const LIMG_NOTE_EDIT = "
"
'------------ VARIABLE INIT -------------------
'Set objOldProdCollector = CreateObject("Scripting.Dictionary")
Set objFormCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER
'/* Get Project Details */
query = _
" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
" FROM BOMS bo,"&_
" BRANCHES br,"&_
" DM_PROJECTS proj"&_
" WHERE br.PROJ_ID = proj.PROJ_ID"&_
" AND bo.BRANCH_ID = br.BRANCH_ID"&_
" AND bo.BOM_ID = :BOM_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
Else
Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
End If
OraDatabase.Parameters.Remove "PROD_ID"
OraDatabase.Parameters.Remove "OS_ID"
OraDatabase.Parameters.Remove "BASE_ENV_ID"
OraDatabase.Parameters.Remove "BOM_ID"
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub GetOldProdDetails ( nProd_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "PROD_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER
query = _
" SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id AS old_prod_id"&_
" FROM PACKAGE_VERSIONS cpv,"&_
" PACKAGE_VERSIONS ppv,"&_
" PACKAGES pkg"&_
" WHERE cpv.LAST_PV_ID = ppv.pv_id"&_
" AND cpv.pkg_id = pkg.pkg_id"&_
" AND cpv.pv_id = :PROD_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("old_prod_id") = rsQry("old_prod_id")
outobjDetails.Item ("pkg_name") = rsQry("pkg_name").Value
outobjDetails.Item ("pkg_version") = rsQry("pkg_version").Value
outobjDetails.Item ("previous_version") = rsQry("previous_version").Value
End If
OraDatabase.Parameters.Remove "PROD_ID"
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RowStyle ( nStatus, ByRef outIcon, ByRef outStyle )
Select Case CInt( nStatus )
Case enumDB_DIFF_NO_CHANGE
outStyle = "body_rowg"
outIcon = NULL
Case enumDB_DIFF_UPDATED
outStyle = "body_rowbold"
outIcon = LIMG_UPDATED
Case enumDB_DIFF_NEW
outStyle = "body_rowbold"
outIcon = LIMG_ADDED
Case enumDB_DIFF_REMOVED
outStyle = "body_rowthru"
outIcon = LIMG_REMOVED
End Select
End Sub
'-----------------------------------------------------------------------------------------------------------------
Function UserName (nUserId)
If nUserId <> NULL Then
Dim rsTemp, user_name
Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT )
user_name = rsTemp("full_name")
rsTemp.Close()
Set rsTemp = Nothing
UserName = user_name
Else
UserName = NULL
End If
End Function
'-----------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB ---
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, Request("bom_id"), objFormCollector )
'----------------------------------------------
%>
