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