Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                        RequestProductNotes                            |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim IsProductInNewBom
Dim bgColor
Dim QueryName
Dim parBomId
Dim objWSH
Dim rsPkg, pkgName, pkgVersion, pkgId
Dim rsProj, projName, branchName
Dim rsOS, OSName
Dim     newProdId, ProdId
Dim     errormsg
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parBomId = Request("bom_id")
newProdId       =       Request("new_prod_id")
ProdId  =       Request("prod_id")
 bgColor = NULL
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
Sub PreviousVersions(newProdId, ProdId)
        
        If CLng(newProdId) >= CLng(ProdId) Then
                While CLng(newProdId) >= CLng(ProdId)
                        ProdId = LastPvId(ProdId)
                        If CLng(newProdId) >= CLng(ProdId) Then
                                Call Notes(ProdId)
                        End If
                Wend
        End If  

        If CLng(ProdId) >= CLng(newProdId) Then
                While CLng(ProdId) >= CLng(newProdId)
                        newProdId = LastPvId(newProdId)
                        If CLng(ProdId) >= CLng(newProdId) Then
                                Call Notes(newProdId)
                        End If
                Wend    
        End If
                 
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Function LastPvId(pvId)
        Dim qryA
        Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
        
        LastPvId = pvId
        
        If pvId <> qryA("last_pv_id") Then      
                LastPvId = qryA("last_pv_id")
        'Else 
        '       errormsg = true
        End If
        
        qryA.Close()
        Set qryA = Nothing

End Function
'--------------------------------------------------------------------------------------------------------------------------
Sub Notes(Pv_Id)
        Dim notes
        Set notes = OraDatabase.DbCreateDynaset("SELECT PN.NOTES, PV.PKG_VERSION FROM PACKAGE_VERSIONS PV, PRODUCT_NOTES PN WHERE PN.PROD_ID = PV.PV_ID AND PN.PROD_ID="&Pv_id , cint(0))
        If notes.RecordCount > 0 Then
%>
<tr>
        <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2"><%=notes("pkg_version")%> - <%=notes("notes")%></td>
</tr>   
<%
        End If
        notes.Close()
        Set notes = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------

%>

                
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <%
                  'If newProdId > ProdId Then
                '         Call PreviousVersions(newProdId, ProdId)
                '  End If
                  
                 ' OraDatabase.Parameters.Add "BOM_ID",                         Request("bom_id"),                      ORAPARM_INPUT, ORATYPE_NUMBER 
                 ' OraDatabase.Parameters.Add "COMPARE_BOM_ID",         Request("compare_bom_id"),      ORAPARM_INPUT, ORATYPE_NUMBER 
                 ' OraDatabase.Parameters.Add "PROD_ID",                Request("prod_id"),             ORAPARM_INPUT, ORATYPE_NUMBER 
                 ' OraDatabase.Parameters.Add "PKG_ID",                 Request("pkg_id"),              ORAPARM_INPUT, ORATYPE_NUMBER 
                  
                 ' Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT )
                  
                 ' bgColor = NULL
                 ' End If
                 %> 
                </table>        
                 
        
        
<%
'------------ RUN AFTER PAGE RENDER -----------
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->