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 | Texte aus PDF-Anhängen extrahieren; Default = True |
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)