Subversion Repositories DevTools

Rev

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

Rev 5328 Rev 5338
Line 85... Line 85...
85 
 
 85 
 
86 
      IsApplicationRunning = mbIsApplicationRunning
 86 
      IsApplicationRunning = mbIsApplicationRunning
87 
   End Property
 87 
   End Property
88 
 
 88 
 
89 
   Public Property Get isDevSystem()
 89 
   Public Property Get isDevSystem()
90 
      isDevSystem = InStr(OraDatabase.DatabaseName,"RELMANU1") > 0
 90 
      isDevSystem = IsEmpty(Application("LiveSystem"))
91 
   End Property
 91 
   End Property
92 
 
 92 
 
93 
   '-----------------------------------------------------------------------------------------------------------------
 93 
   '-----------------------------------------------------------------------------------------------------------------
94 
   Public Function UserApplication ( nAppId )
 94 
   Public Function UserApplication ( nAppId )
95 
      UserApplication = FALSE
 95 
      UserApplication = FALSE