1 TCHUI.TPopup,TCHUI.TDBControlBasis 0 AValue:%String %Status gewone TPopup.SelectedSet uitvoering (1) // YES -> reeds bezig met het updaten van eigen + andere binded TDBPopup controls? // YES -> gewone TPopup.SelectedSet uitvoering (2) // NO -> Update van eigen + andere binded TDBPopups 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.TPopup)%this.SelectedSet(AValue) //(1) & (2) Quit Result ]]> AValue:%String