AttachmentsToText()

Extrahiert Texte aus Anhängen der Memoverwaltung Funktion wird auch fürbeaszu Verfügung gestellt.

Hinweis

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

Parameter	Beschreibung
oField:O	Feldobjekt (-> Funktion DbField )
lGetPdf: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
lGetTxt:L
lGetRtf:L

Rückgabewert

Alphanumerisch; Texte aus den Anhängen

Beispiel

// 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()