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. z.B. beim Aufruf der Textbaustein-Verwaltung aus einem Memo in der Groupware würde die Property die DAB065 der Groupware enthalten.
CbTargetFieldName:C	Name des Ziel-Feldes in das der Textbaustein eingefügt werden soll. z.B. beim Aufruf der Textbaustein-Verwaltung aus einem Memo in der Groupware würde die Property den Text 'MEMO' enthalten.

Beispiel

CODE

//##############################################################################
//##############################################################################
// Beispiel für eine Signatur in Email-Memos
//##############################################################################
//##############################################################################

//******************************************************************************
// Textbaustein-Text (Signatur ggf. mit Bild etc.):
//******************************************************************************

Mit freundlichen Grü&szlig;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

Weitere Verknüpfungen

GetTextMod()