Subversion Repositories DevTools

Rev

Rev 5957 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 5975
Line 71... Line 71...
71 
Sub NotifySBOMManagement ( parPv_id, parRtag_id, prodState )
 71 
Sub NotifySBOMManagement ( parPv_id, parRtag_id, prodState )
72 
 
 72 
 
73 
   On Error Resume Next
 73 
   On Error Resume Next
74 
   Dim Query_String, rsQry, rsTemp, emailRecipients, stateComments
 74 
   Dim Query_String, rsQry, rsTemp, emailRecipients, stateComments
75 
 
 75 
 
76 
   Query_String = _
 - 
 
77 
   "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='SBOM MANAGEMENT'"
 - 
 
78 
 
 - 
 
79 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
80 
   emailRecipients = rsTemp("config")
 76 
   emailRecipients = ServiceConfig("SBOM MANAGEMENT")
81 
   rsTemp.Close()
 - 
 
82 
   Set rsTemp = Nothing
 - 
 
83 
 
 77 
 
84 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select * from product_states where state_id="&prodState , cint(0) )
 78 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select * from product_states where state_id="&prodState , cint(0) )
85 
   stateComments = rsTemp("state")
 79 
   stateComments = rsTemp("state")
86 
   rsTemp.Close()
 80 
   rsTemp.Close()
87 
   Set rsTemp = Nothing
 81 
   Set rsTemp = Nothing