TBeCbTextModInfo
TBeCbTextModInfo
Dieses Objekt ist nur im Autovervollständigungs-Codeblock der Textbaustein-Verwaltung verfügbar. Dieses Objekt dient zur Information über die Ziel-Tabelle und das Ziel-Feld in das ein Textbaustein später eingefügt werden soll. z. B. kann mit Hilfe dieser Daten anhand des Memo-Typs in der übergebenen DAB065 entschieden werden ob eine Signatur mit oder ohne Firmenlogo in ein Memo eingefügt werden soll.
Eigenschaften
Tabelle und Feld | Beschreibung |
---|---|
CbTargetDataSet:O | Tabelle die an der Aufrufenden Stelle des Textbausteinfensters/Autovervollständigung an den Textbaustein übergeben wurde. |
CbTargetFieldName:C | Name des Ziel-Feldes in das der Textbaustein eingefügt werden soll. |
Beispiel
//##############################################################################
//##############################################################################
// Beispiel für eine Signatur in Email-Memos
//##############################################################################
//##############################################################################
//******************************************************************************
// Textbaustein-Text (Signatur ggf. mit Bild etc.):
//******************************************************************************
Mit freundlichen Grüßen
@<at:var at:name="PLATZHALTER_FUER_NAME" />@
//******************************************************************************
// Autovervollständigungs-Codeblock des Textbausteins:
//******************************************************************************
| cResultText, oDAB065 |
cResultText := '',
// ZielTabelle übergeben?
if not empty(TEXTMODINFO.CbTargetDataSet) then
oDAB065 := TEXTMODINFO.CbTargetDataSet,
// Ziel-Feld ist 'MEMO'?
if TEXTMODINFO.CbTargetFieldName = 'MEMO' then
// Memo-Typ = Email? (50) Dann Textbaustein auswerten. Ansonsten bleibt das Ergebnis leer.
if oDAB065:TYP = 50 then
// Platzhalter für den Namen im Textbaustein durch den Namen des Benutzers ersetzen
cResultText := StrTran(DAB350:MEMO, '@<at:var at:name="PLATZHALTER_FUER_NAME" />@', BeUserName(c_usr)),
endif,
endif,
endif,
cResultText