BL.Sys.Toegang 1 %RegisteredObject Openen van een toegang via het ToegangsID ToegangID Derde.EC.Toegang AssocID:%String,AssocIDType:%String Derde.EC.Toegang ======================================================= LOGIN . ======================================================= Derde.Sys.Toegang ======================================================= METHODs . ======================================================= 1 BL.Sys.Proxy.pxStatus 1 pxToegang:BL.Sys.pxToegang BL.Sys.Proxy.pxStatus 1 ToegangID:%String BL.Sys.Proxy.pxStatus ======================================================= QUERIES . ======================================================= %SQLQuery paToegangGroep:%String %ID,Toegang->DomeinEnGebruikersNaam FROM Sys.Toegang_MemberOf WHERE MemberOf=:paToegangGroep]]> %SQLQuery paName:%String SELECT %ID,AssocID,AssocIDType,Enabled,GebruikersNaam,DomeinEnGebruikersNaam,LastLogInTijdStip FROM Sys.Toegang WHERE (:paName IS NULL) OR (%SQLUPPER(DomeinEnGebruikersNaam) LIKE %SQLUPPER('%' || :paName || '%')) ORDER BY DomeinEnGebruikersNaam ======================================================= POPULATE METHOD . ======================================================= Do ##class(BL.Sys.Toegang).CreateInternePersonen() 1 Overwrite:%Boolean=0,DeleteAll:%Boolean=0