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 47... Line 47...
47 
Sub ToggleDisplay()
 47 
Sub ToggleDisplay()
48 
Dim aDiffList, numOfRows, rowNum, OraParameter
 48 
Dim aDiffList, numOfRows, rowNum, OraParameter
49 
 
 49 
 
50 
	Const bom_id_column = 0
 50 
	Const bom_id_column = 0
51 
 
 51 
 
- 
 
 52 
    On Error Resume Next
52 
	OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
54 
	OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
54 
 
 55 
 
55 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
 56 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
56 
 
 57