E-Mail mit anhängenden ASCII-File

E-Mail mit anhängenden ASCII-File

Wir möchten über den Fuba: SO_NEW_DOCUMENT_ATT_SEND_API1
ein E-Mail mit anhängender Textdatei erzeugen. Dies klappt auch ganz gut, bis darauf das die anhängende Textdatei leider kein Line-Feed oder auch File-End schreibt. Hat von Euch einer eine Idee wie ich dem Fuba überreden kann, dass er entsprechende Satzende-Kennzeichen setzen soll.

*----------------------------------------------------------------------*
FORM MAILVERS.
data: l_belnr(24) type c.

LOOP AT LT_IFACEDATA into wa_ifacedata.
write: wa_ifacedata-MENGE to l_menge left-justified,
wa_ifacedata-/bay0/dq_qtypack to l_qtypack left-justified.


concatenate wa_ifacedata-mblnr
wa_ifacedata-zeile
wa_ifacedata-mjahr
into l_BELNR.
* write line_feed to l_belnr+18(2). " geht leider nicht

concatenate wa_ifacedata-/BAY0/DQ_JOBNO
wa_ifacedata-/BAY0/DQ_PRODCOD
wa_ifacedata-/BAY0/DQ_PLANTCO
wa_ifacedata-/BAY0/DQ_ACTCODE
wa_ifacedata-BUDAT
wa_ifacedata-/BAY0/DQ_CONTCOD
wa_ifacedata-/BAY0/DQ_PRODIND
wa_ifacedata-/BAY0/DQ_RAWMATC
l_menge
wa_ifacedata-MEINS
l_qtypack
wa_ifacedata-/BAY0/DQ_CHRGFIN
wa_ifacedata-/BAY0/DQ_CHRGRAW
wa_ifacedata-/BAY0/DQ_LABDATE
wa_ifacedata-/BAY0/DQ_LABRESC
wa_ifacedata-/BAY0/DQ_LABRESL
l_belnr
into objbin-line separated by l_sep.
append objbin.
ENDLOOP.

move 'AGAN-Interface from BCS ' to objtxt.
append objtxt.
* Erstellen des zu versendenen Dokuments
Doc_chng-obj_name = 'download'.
concatenate 'goods-mvmt. from:' space sy-datum into doc_chng-obj_descr.

describe table objtxt lines tab_lines.
read table objtxt index tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + strlen( objbin ).

* Erstellen des Eintrages zum komprimierten Dokument
clear objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-Body_start = 1.
objpack-Body_num = Tab_lines.
objpack-doc_type = 'RAW'.
append objpack.

* Erstellen der Anlage für das Dokument

describe table objbin lines tab_lines.
objhead = 'Agan0001'. append objhead.

* Erstellen des Eintrags zur komprimierten Anlage
DESCRIBE TABLE objbin LINES tab_lines.
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_Num = tab_lines.
objpack-doc_type = 'TXT'.
objpack-obj_name = 'ANLAGE'.
objpack-obj_descr = 'AGAN0001'.
objpack-doc_size = Tab_lines * 255.
append objpack.

* Füllen der Empfängerliste
reclist-receiver = P_MAILA.
reclist-rec_type = 'U'.
append reclist.
reclist-receiver = P_MAILB.
reclist-rec_type = 'U'.
append reclist.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = doc_chng
PUT_IN_OUTBOX = 'X'
* IMPORTING
* SENT_TO_ALL =
NEW_OBJECT_ID = Object_id
TABLES
PACKING_LIST = objpack
OBJECT_HEADER = objhead
CONTENTS_BIN = objbin
CONTENTS_TXT = objtxt
* CONTENTS_HEX = objhex
* OBJECT_PARA =
* OBJECT_PARB =
RECEIVERS = reclist
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
* DOCUMENT_TYPE_NOT_EXIST = 3
OPERATION_NO_AUTHORIZATION = 4
* PARAMETER_ERROR = 5
* X_ERROR = 6
* ENQUEUE_ERROR = 7
OTHERS = 8
.
CASE sy-subrc.
when 0.
LOOP AT LT_IFACEDATA into wa_ifacedata.
move 'X' to wa_ifacedata-/BAY0/DQ_MAILKZ.
modify /BAY0/DQ_AGAN_02 from wa_ifacedata.
commit work.
endloop.
WHEN 1.
WRITE: / text-883.
WHEN 2.
WRITE: / text-885.
WHEN 4.
WRITE: / text-887.
WHEN OTHERS.
WRITE: / text-888.
ENDCASE.
ENDFORM. " MAILVERS

Es geht noch einfacher:
cr_lf ist als String definiert. Das am Ende der Zeile dranhängen und es funktioniert (hab mal eben einen Test gemacht):
Hermann

Na dann eben so:
'ENTER' kannst Du dann ebenso benutzen zum konkatenieren.

Hermann