Business Objekt Event "nach dem Duplizieren"
Business Object Event "nach dem Duplizieren"
Dieser Event wird aufgerufen, wenn ein Business Objekt "dupliziert" wird.
TBeMemoBO
Für ein Memo Business-Objekt wird dieser Event bei "(allen) antworten", "weiterleiten" oder "Folge Memo erstellen", aufgerufen. In diesem Event können über das als Parameter verfügbare DuplicatedInfo-Objekt (TBeCbMemoDuplicatedInfo) weitere Aktionen gesteuert sowie auf das Quell-Business Objekt zugegriffen werden.
Beispiel
CODE
|nEvtNo:P1, oMemoBO:P2, oDuplicatedInfo:P3,
aAdditionalHeader, aHeaderArray, oTargetDab065|
// Aufruf erfolgt nach dem Duplizieren eines Memo Business-Objekts (TBeMemoBO)
// Mittels des oDuplicatedInfo-Objekts (TBeCbMemoDuplicatedInfo, wenn das Business-Objekt
// ein TBeMemoBo ist) kann der Duplizierungs-Vorgang beeinflusst werden, außerdem kann darüber
// auf das Quell Memo Business-Objekt zugegriffen werden.
if oDuplicatedInfo.MemoDuplicateMode = mdmSequence then
// Quell-Memo gelesen markieren
oDuplicatedInfo.MarkSourceMemoAsRead := True,
// Quell-Memo Inhalt übernehmen
oDuplicatedInfo.TakeOverOldContent := True,
// Betreff-Präfix
oDuplicatedInfo.SubjectPrefix := 'Folge: ',
// Eigenen Wert zu Header Array hinzufügen
aAdditionalHeader := Dim(3),
aAdditionalHeader[1] := pchiCustom,
aAdditionalHeader[2] := 'Original erstellt am:',
aAdditionalHeader[3] := DtoC(oDuplicatedInfo.SourceBo.CreatedValue),
aHeaderArray := oDuplicatedInfo.PrevContentHeaderArray,
AAdd(aHeaderArray, aAdditionalHeader),
oDuplicatedInfo.PrevContentHeaderArray := aHeaderArray,
// Beispiel für Indi-Feld
// oMemoBO.CbTable:X_INDIFIELD := 'Neuer Wert'
endif,