AttachmentsToText()

AttachmentsToText() – Extrahieren von Texten aus Memoanhängen

Extrahiert Texte aus Anhängen der Memoverwaltung

Funktion wird auch für beas zu Verfügung gestellt.

Hinweis

Geeignet z.B. für Dab065:DATA und Dab700:ANHANG

Parameter	Beschreibung
oField:O	Feldobjekt (-> Funktion DbField )
lGetPdf:L lGetTxt:L lGetRtf:L	Texte aus PDF-Anhängen extrahieren; Default = True Texte aus TXT-Anhängen extrahieren; Default = True Texte aus RTF-Anhängen extrahieren; Default = True

Rückgabewert

Alphanumerisch; Texte aus den Anhängen

Beispiel

CODE

// Beispiel für Updaterecht in Dab700:Text
| cRes1, cRes2 |
cRes1:= '',
cRes2:= '',
// Angebot, Lieferschein, Rechnung, Bestellung, Reparaturbericht
If BELEG_ART = 10  or
   BELEG_ART = 60  or
   BELEG_ART = 160 or
   BELEG_ART = 230 or
   BELEG_ART = 910 then
   StartSeq
     cRes1:= D700_VoucherAsText('DATEN', Dab700),
   OnError
   StopSeq,
   StartSeq
     cRes2:= AttachmentsToText(DbField('ANHANG', Dab700)),
   OnError
   StopSeq,
EndIf,
Alltrim(cRes1 + ' ' + cRes2)

Weitere Verknüpfungen

Pdf2Text()