Subversion Repositories DevTools

Rev

Rev 5958 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5958 Rev 5961
Line 83... Line 83...
83 
		'-- No differences compared to Previous BOM, hence exit
 83 
		'-- No differences compared to Previous BOM, hence exit
84 
		Exit Sub
 84 
		Exit Sub
85
85
86 
	End If
 86 
	End If
87
87
88
- 
 
89
- 
 
90 
	'/* Revert Versions */
 88 
	'/* Revert Versions */
91 
	On Error Resume Next
 89 
	On Error Resume Next
92
90
93 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
94 
	OraDatabase.Parameters.Add "COMPARE_BOM_ID", objFormCollector.Item("parent_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
95 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
91 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
96 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
93 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
94 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
99
95
100 
	Set OraParameter = OraDatabase.Parameters
 96 
	Set OraParameter = OraDatabase.Parameters
101
- 
 
102
- 
 
103
- 
 
104 
	objEH.TryORA ( OraSession )
 97 
	objEH.TryORA ( OraSession )
105
- 
 
106 
	numOfRows = UBound( aDiffList, 2 )
 98 
	numOfRows = UBound( aDiffList, 2 )
107 
 
 - 
 
108
99
109 
	For rowNum = 0 To numOfRows
 100 
	For rowNum = 0 To numOfRows
110
101
111 
		If Request("revert_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
 102 
		If Request("revert_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
112 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
 103 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
Line 126... Line 117...
126 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
 117 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
127 
	'SCRIPT_NAME, _
 118 
	'SCRIPT_NAME, _
128 
	'"Updated Products with new versions.", _
 119 
	'"Updated Products with new versions.", _
129 
	'OraDatabase
 120 
	'OraDatabase
130
121
131
- 
 
132 
	objEH.CatchORA ( OraSession )
- 
 
133
- 
 
134 
	OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
135 
	OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
 - 
 
136 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 122 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
137 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
 123 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
138 
	OraDatabase.Parameters.Remove "OS_ID"
 124 
	OraDatabase.Parameters.Remove "OS_ID"
139 
	OraDatabase.Parameters.Remove "USER_ID"
 125 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 126 
 
- 
 
 127 
	objEH.CatchORA ( OraSession )
- 
 
 128
140 
End Sub
 129 
End Sub
141 
'----------------------------------------------------------------------------------------------------------------------------------
 130 
'----------------------------------------------------------------------------------------------------------------------------------
142 
Function Get_Bom_Name( nBomId )
 131 
Function Get_Bom_Name( nBomId )
143 
 
 132 
 
144 
	OraDatabase.Parameters.Add "BOM_ID", 	nBomId, 	ORAPARM_INPUT, ORATYPE_NUMBER
133 
	OraDatabase.Parameters.Add "BOM_ID", 	nBomId, 	ORAPARM_INPUT, ORATYPE_NUMBER
Line 297... Line 286...
297 
            </tr>
286 
            </tr>
298 
            <%rsQry.MoveNext
 287 
            <%rsQry.MoveNext
299 
			Wend
 288 
			Wend
300 
			%>
 289 
			%>
301
290
302 
 
 - 
 
303
- 
 
304 
			<tr>
 291 
			<tr>
305 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
 292 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
306 
            </tr>
 293 
            </tr>
307 
          </table>
 294 
          </table>
308
295
309
- 
 
310 
		  <%
 296 
		  <%
311 
		  OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
 297 
		  OraDatabase.Parameters.Remove "COMPARE_BOM_ID"
312 
		  OraDatabase.Parameters.Remove "BOM_ID"
 298 
		  OraDatabase.Parameters.Remove "BOM_ID"
313 
		  rsQry.Close
 299 
		  rsQry.Close
314 
		  Set rsQry = Nothing
 300 
		  Set rsQry = Nothing