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