1 TCHUI.TCheckBox,TCHUI.TProxyControl right AValue:%Boolean %Status gewone TCheckBox.CheckedSet uitvoering (1) // YES -> reeds bezig met het updaten van eigen + andere binded TpcCheckBox controls? // YES -> gewone TCheckBox.CheckedSet uitvoering (2) // NO -> Update van eigen + andere binded TpcCheckBoxes starten (via FSetFieldData) (3) // PS: // ChangingControls property vermijdt recursie If (..IsProxyBinded()) && ('..pxDataSource.ChangingControls) Do . Do ..pxDataSource.FSetFieldData(%this,..DataField,AValue) //(3) . Set Result=$$$OK Else Do . If ..DoNotSetMyValue Do .. Set Result=$$$OK . Else Do .. Set Result=##class(TCHUI.TCheckBox)%this.CheckedSet(AValue) //(1) & (2) Quit Result ]]> AValue:%String