FB 'SO_NEW_DOCUMENT_ATT_SEND_API1'

FB 'SO_NEW_DOCUMENT_ATT_SEND_API1'

Hallo,

wir haben in einem 'Nicht-Unicode-System' den genannten FB genutzt um eine Datei zu versenden. Dies hat auch funktioniert, im neuen 'Unicode-System' wird nach jedem Zeichen ein Leerzeichen eingefügt.

hat jemand einen Tip, woran das liegen kann.

* Interne Tabellen
DATA: it_receiver TYPE TABLE OF somlreci1,
it_versand TYPE TABLE OF solisti1,
* it_versand_hex TYPE TABLE OF solix, "UC
it_versand_hex type table of ty_versand_hex, "UC
it_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
it_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
it_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
it_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.

* ASCII-Datei / Zeile zusammenfügen mit:
CLEAR: wa_versand, g_menge.
g_menge = wa_ekpo-menge.
CONCATENATE wa_ekpo-matnr "Teilenummer
wa_ekpo-seriallow "Serialno.-Von
wa_ekpo-serialhigh "Serialno.-Bis
g_ebeln_ebelp "Ordernummer(Best-Nr + Pos) "002
g_menge "Bestellmenge 2 mal mitgeben!
g_menge "Bestellmenge
*** MA,18.10.2004 ***
* wa_ekpo-txz01 "Bezeichnung
va_bezeichnung "Bezeichnung und Comment1
g_special "Special arrangement (J oder N)
g_serial "Serialno.Teil (J oder N)
*** MA,12.09.2005 ***
va_kdmat_dummy "Kundenmaterialnummer (Immer Leer)
*** MA,06.09.2005 ***
wa_eket-charg "Chargennummer
*** MA,12.09.2005 ***
va_echarg_dummy "Externe Chargennummer (Immer Leer)
INTO wa_versand
SEPARATED BY separator_tab.

*>>002
* Zeilenumbruch "simulieren" mit dem Dollar-Kennzeichen '$'
CONCATENATE wa_versand
g_zeilenumbruch
INTO wa_versand.

APPEND wa_versand TO it_versand.

*--------- Informationen über den Aubau der Datentabellen (Anhang)
* * Erstellen des Eintrags zur komprimierten Anlage
it_packing_list-transf_bin = 'X'.
it_packing_list-head_start = 1.
it_packing_list-head_num = 1.
it_packing_list-body_start = 1.
it_packing_list-body_num = g_lines.
* it_packing_list-doc_type = 'TXT'.
it_packing_list-doc_type = 'TML'.
it_packing_list-obj_name = 'ANLAGE'.
it_packing_list-obj_descr = g_objky.
it_packing_list-doc_size = wa_data-doc_size.
APPEND it_packing_list.


CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = wa_data
put_in_outbox = 'X'
*** MA,11.09.2008***
* Ab Release 6.10 muß neuer Parameter "Commit Work" gesetzt werden
*** MA,04.10.2008***
* Wegen Verbuchungsabbrüchen wieder entfernt.
* commit_work = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
TABLES
packing_list = it_packing_list
object_header = it_objhead
contents_bin = it_versand
contents_txt = it_objtxt
* CONTENTS_HEX = it_versand_hex
* OBJECT_PARA =
* OBJECT_PARB =
receivers = it_receiver
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.

Datei siehe Anhang