Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 17... Line 17...
17
'=====================================================
17
'=====================================================
18
'        Name: 	GetNodesSpecFiles
18
'        Name: 	GetNodesSpecFiles
19
' Description:	Gets the nodes specification files for 
19
' Description:	Gets the nodes specification files for 
20
' 				nodes that have an existing node spec 	
20
' 				nodes that have an existing node spec 	
21
' 				filename.
21
' 				filename.
22
'				
22
'	   Author:	Rupesh Solanki	
23
' 				
23
' 				
24
' 				
24
' 				
25
' 		INPUT:  bom_id
25
' 		INPUT:  bom_id
26
 
26
 
27
'=====================================================
27
'=====================================================
Line 101... Line 101...
101
		"	ProjectName	=> '"& aNetworkNodes( 9, row ) &"',"& vbNewLine &_
101
		"	ProjectName	=> '"& aNetworkNodes( 9, row ) &"',"& vbNewLine &_
102
		"	_ForceVersion	=> {},"& vbNewLine &_
102
		"	_ForceVersion	=> {},"& vbNewLine &_
103
		"	_NoAdd		=> {}"& vbNewLine &_
103
		"	_NoAdd		=> {}"& vbNewLine &_
104
		");"& vbNewLine &_
104
		");"& vbNewLine &_
105
		""& vbNewLine &_
105
		""& vbNewLine &_
106
		"$pkgmnt::G_NodeSBOMVersion = '"& aNetworkNodes( 5, row) &"';"& vbNewLine &_
106
		"$pkgmnt::G_NodeSBOMVersion = '"& aNetworkNodes( 11, row) &"';"& vbNewLine &_
107
		""& vbNewLine &_
107
		""& vbNewLine &_
108
		"$pkgmnt::G_NodeName = '"& aNetworkNodes( 1, row) &"';"& vbNewLine &_
108
		"$pkgmnt::G_NodeName = '"& aNetworkNodes( 1, row) &"';"& vbNewLine &_
109
		""& vbNewLine 	
109
		""& vbNewLine 	
110
 
110
 
111
 
111
 
Line 122... Line 122...
122
		
122
		
123
		'WScript.Echo XMLNode
123
		'WScript.Echo XMLNode
124
		
124
		
125
		
125
		
126
		' Save to a file
126
		' Save to a file
-
 
127
		Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), "\\auperaunx26\releases\nodespecfiles",  ( aNetworkNodes( 6, row ) ) , NodeSpec )
127
		Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"nodespecfiles",  ( aNetworkNodes( 6, row ) ) , NodeSpec )
128
		Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"nodespecfiles",  ( aNetworkNodes( 6, row ) ) , NodeSpec )
128
		
129
		
129
		
130
		
130
	Next
131
	Next
131
	
132
	
Line 158... Line 159...
158
	OraDatabase.Parameters.Remove "OS_ID"
159
	OraDatabase.Parameters.Remove "OS_ID"
159
	
160
	
160
	NodeProcessString = NULL
161
	NodeProcessString = NULL
161
	RecNum = 0
162
	RecNum = 0
162
 
163
 
-
 
164
 
-
 
165
	If rsQry.RecordCount <> 0 Then
163
	NodeProcessString = NodeProcessString &_
166
		NodeProcessString = NodeProcessString &_
164
	"%pkgmnt::G_NodeProcessHash = ("& vbNewLine
167
		"%pkgmnt::G_NodeProcessHash = ("& vbNewLine
-
 
168
	Else
-
 
169
		NodeProcessString = NodeProcessString &_
-
 
170
		"%pkgmnt::G_NodeProcessHash = ("
-
 
171
	End If
165
 
172
 
166
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
173
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
167
		
174
		
168
		RecNum = RecNum + 1
175
		RecNum = RecNum + 1
169
 
176