Subversion Repositories DevTools

Rev

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

Rev 2 Rev 5299
Line 14... Line 14...
14 
Dim objObjCollector
 14 
Dim objObjCollector
15 
Dim objBtnControl
 15 
Dim objBtnControl
16 
Dim aTabBtnsDef
 16 
Dim aTabBtnsDef
17 
'------------ CONSTANTS DECLARATION -----------
 17 
'------------ CONSTANTS DECLARATION -----------
18 
Const PARENT_TITLE = "Action"
 18 
Const PARENT_TITLE = "Action"
19 
Const LIMG_CONTROL_LRG = "<img src='images/i_control_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
 - 
 
20 
Const LIMG_CONTROL = "<img src='images/i_control.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
21 
Const LIMG_DATA_TABLE = "<img src='images/i_data_table.gif' hspace='2' border='0' align='absmiddle'>"
 - 
 
22 
Const LIMG_DATA_TABLE_OFF = "<img src='images/i_data_table_off.gif' hspace='2' border='0' align='absmiddle'>"
 - 
 
23 
Const LIMG_EDIT = "<img src='images/i_edit.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
24 
Const LIMG_REMOVE = "<img src='images/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
25 
'------------ VARIABLE INIT -------------------
 19 
'------------ VARIABLE INIT -------------------
26 
parDt_id = Request("dt_id")
 20 
parDt_id = Request("dt_id")
27 
parObj_id = Request("obj_id")
 21 
parObj_id = Request("obj_id")
28 
parApp_id = Request("app_id")
 22 
parApp_id = Request("app_id")
29 
Set objBtnControl = New ActionButtonControl
 23 
Set objBtnControl = New ActionButtonControl
Line 47... Line 41...
47 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 41 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
48
42
49 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 43 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
50 
		outobjDetails.Item ("obj_id")   = rsQry("obj_id")
 44 
		outobjDetails.Item ("obj_id")   = rsQry("obj_id")
51 
		outobjDetails.Item ("obj_name") = rsQry("obj_name")
 45 
		outobjDetails.Item ("obj_name") = rsQry("obj_name")
- 
 
 46 
		outobjDetails.Item ("obj_description") = rsQry("obj_description")
52
47
53 
	Else
 48 
	Else
54 
		Err.Raise 8, "Sub GetControlDetails", "Empty record set returned. nObj_id="& nObj_id &", nApp_id="& nApp_id
 49 
		Err.Raise 8, "Sub GetControlDetails", "Empty record set returned. nObj_id="& nObj_id &", nApp_id="& nApp_id
55
50
56 
	End If
 51 
	End If