Subversion Repositories DevTools

Rev

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

Rev 5512 Rev 5960
Line 55... Line 55...
55 
	aControlObjects = rsQry.GetRows()
 55 
	aControlObjects = rsQry.GetRows()
56 
	rsQry.Close
 56 
	rsQry.Close
57 
	Set rsQry = Nothing
 57 
	Set rsQry = Nothing
58
58
59 
	'--- Set Role Permissions ---
 59 
	'--- Set Role Permissions ---
- 
 
 60 
	On Error Resume Next
60 
	objEH.TryORA ( OraSession )
 61 
	objEH.TryORA ( OraSession )
61
62
62 
		For Each ObjId In aControlObjects
 63 
		For Each ObjId In aControlObjects
63 
 
 64 
 
64 
			OraParameter("OBJ_ID").Value = CInt(ObjId)
 65 
			OraParameter("OBJ_ID").Value = CInt(ObjId)