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