Business Object Event "Berechnung der Info-Caption"
Business Object Event "Berechnung der Info-Caption"
Dieser Event wird aufgerufen, wenn ein Zugriff auf die Caption oder die Zuordnungs-Caption eines Business-Objekts stattfindet.
In diesem Event können über das Business-Objekt Unterobjekt "CaptionInfo" (TBeBoInfoCaption) die Captions angepasst werden.
Beispiel
CODE
|nEvtNo:P1, oMemoBO:P2, oCaptionInfo:P3|
// Aufruf erfolgt bei Berechnung der Info-Caption eines Memo Business-Objekts (TBeMemoBO)
// Mittels des oCaptionInfo-Objekts (TBeBoInfoCaption) können
// - die Caption des Memo Business-Objekts sowie
// - die Caption für die Zuordnung des Memo Business-Objekts geändert werden
// Zeitpunkt der letzten Änderung an die Caption des Single-Tabs anhängen
// -> erscheint dann in Tabkarten-Caption
oCaptionInfo.Caption.Caption := oCaptionInfo.Caption.Caption +
' [letzte Änderung: ' +
dtoc(oMemoBO.ChangedValue) +
']',
// Wurde das Memo Business-Objekt durch jemand anderen geändert, dann den
// Usernamen an die Memo-Zuordnung anhängen
// -> erscheint dann in InfoPanel
if oMemoBO.ChangedByValue <> c_usr then
oCaptionInfo.Link.Suffix := oCaptionInfo.Link.Suffix +
' [Änderung durch: ' +
BeUserName(Val(oMemoBO.ChangedByValue)) +
']',
endif,