persistent BL.Sys.Toegang 1 %Persistent ======================================================= METHODs . ======================================================= 1 BL.Sys.Proxy.pxStatus 1 pxToegangGroep:BL.Sys.pxToegangGroep BL.Sys.Proxy.pxStatus 1 Name:%String,ClearMembers:%Boolean=1 BL.Sys.Proxy.pxStatus 1 Derde.Sys.ToegangGroep Array For Loop=1:1:$LL(lbMembers) Do . Set MemberName=$LI(lbMembers,Loop) . Do TG.Members(MemberName) Set Status=TG.%Save() If $$$ISERR(Status) Do Quit $$$NULLOREF . Set varErrStr=$$ParseStatus^vhLib(Status) Quit TG ]]> 1 ToegangGroep:%String Name=:ToegangGroep) &sql(DELETE FROM Sys.Toegang_MemberOf WHERE MemberOf->Name=:ToegangGroep) ]]> ======================================================= QUERIES . ======================================================= %SQLQuery paToegangGroep:%String Name FROM Sys.ToegangGroep_MemberOf WHERE MemberOf=:paToegangGroep]]> %SQLQuery paName:%String SELECT Name FROM Sys.ToegangGroep WHERE (:paName IS NULL) OR (%SQLUPPER(Name) LIKE %SQLUPPER('%' || :paName || '%')) ORDER BY Name %Query paToegangGroep:%String ======================================================= 1 0 %Status 1 QGetMembersExecute 0 %Status 1 QGetMembersExecute 0 %Status ======================================================= POPULATE . ======================================================= d ##class(BL.Sys.ToegangGroep).CreateDefaults() 1 ========================================================================== d ##class(BL.Sys.ToegangGroep).CreateVH() 1 %String %Library.CacheStorage ^BL.Sys.ToegangGroepD ToegangGroepDefaultData ^BL.Sys.ToegangGroepD ^BL.Sys.ToegangGroepI ^BL.Sys.ToegangGroepS listnode %%CLASSNAME MemberOf Folder Omschrijving BuiltInCode BuiltinCode Name