1 TCHUI.TForm 0 ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TLabel TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TButton TCHUI.TButton TCHUI.Ctrl.TInternePersoonPopup TCHUI.Ctrl.TInternePersoonPopup %String ========================================================================================================================== METHODs . ========================================================================================================================== CN:%String niet disabled ... Set ..pmExceptions.Selected=..pmExceptions.Selected_$LB(LoopID) . Else Do .. Set ..rbRefuseAccessFor.Checked=1 .. Set ..ActiveControl=..rbRefuseAccessFor .. Set LoopID="" .. For Set LoopID=$O(^TCHUI.DisabledForms($ZU(5),CN,LoopID)) Quit:(LoopID="") Do ... Quit:((LoopID=$$$dfkAllUsers) || (LoopID=$$$dfkMessage)) ... Set ..pmRefuseFor.Selected=..pmRefuseFor.Selected_$LB(LoopID) Else Do . Set ..rbAccessForAll.Checked=1 . Set ..ActiveControl=..rbAccessForAll Do ..UpdateInterface() Set ..LoadedClassName=CN ]]> ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis