Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Note: This parameter is obsolete in OpenInsight versions 4 and above. Pass a null value to this parameter. The 64k limit has been removed.

See also

Repository()

Example

Code Block
* Count the number of OpenInsight windows in the current application.
Declare Function Get_Repos_Entities
AppID = @APPID<1>  ;* current application
TypeID = "OIWIN"  ;* OpenInsight Windows
ClassID = ""  ;* Not Applicable
MoreInfo = ""
SubList = Get_Repos_Entities(AppID, TypeID, ClassID, "", "", "", "")
numEntities = dCount(SubList, @fm)
* Count the number of OpenInsight windows in the current application,
* as well as the applications it has been inherited from.
AppID = ""
TypeID = "OIWIN"  ;* OpenInsight Windows
ClassID = ""  ;* Not Applicable
MoreInfo = ""
SubList = Get_Repos_Entities(AppID, TypeID, ClassID, "", "", "", "")
numEntities = dCount(SubList, @fm)
 
 
* For use with 16-bit systems
Declare Function Get_Repos_Entities
AppID = @APPID<1>  ;* current application
TypeID = "OIWIN"  ;* OpenInsight Windows
ClassID = ""  ;* Not Applicable
MoreInfo = 1
CNT = 0
Loop
  SubList = Get_Repos_Entities(AppID, TypeID, ClassID,|
                                "", "", "", MoreInfo)
  If Len(SubList) Then
    CNT = (SubList, @FM) +1
  End
While Len(MoreInfo)
Repeat