Etikettendruck mit RSPO_SR* Bausteinen als SapScript Ersatz

Etikettendruck mit RSPO_SR* Bausteinen als SapScript Ersatz

Einen schönen guten morgen in die Runde,

ich möchte alte SapScript Formulare für Etikettendruck vereinheitlichen und durch modernes ersetzen vor einer Umstellung auf S4.

Die Templates für die Etiketten (ZPL Code) habe ich in einer Z-Tabelle. Zeilenweise mit CHAR200 definiert.

Das Template lese ich in eine String Variable und mache mir replace die Ersetzungen und möchte den String zum Drucker schicken. Und da fangen meine Probleme an. Ich hatte mir dann mal den String in eine Datei schreiben lassen, um zu schauen, ob es passt. Die Datei sieht gut aus, aber all meine Versuche, das an den Drucker zu senden mit den RSPO_SR_OPEN, RSPO_SR_WRITE und RSPO_SR_CLOSE haben nicht zu 100% funktioniert. Das Problem sind hier wohl Unicode Zeichen sowie CRLF Zeichen. Im Template steht für eine neue Zeile __CRLF__.

REPLACE ALL OCCURRENCES OF '__CRLF__' IN lv_zpl_string WITH cl_abap_char_utilities=>cr_lf.

So hatte ich das in eine Datei geschrieben:

OPEN DATASET lv_file FOR OUTPUT IN TEXT MODE ENCODING UTF-8.

IF sy-subrc = 0.
TRANSFER lv_zpl_string TO lv_file.
CLOSE DATASET lv_file.
ENDIF.

So in den Spool

CALL FUNCTION 'RSPO_SR_OPEN'
EXPORTING
dest = 'XXX1'
layout = 'G_RAW'
doctype = 'RAW'
IMMEDIATE_PRINT = 'X'
IMPORTING
handle = lv_handle
spoolid = lv_spoolid.


DATA(lv_offset) = 0.
lv_len = strlen( lv_zpl_string ).

WHILE lv_offset < lv_len.

lv_chunk_len = nmin( val1 = 255 val2 = lv_len - lv_offset ).

temp_text = lv_zpl_string+lv_offset(lv_chunk_len).

CALL FUNCTION 'RSPO_SR_WRITE'
EXPORTING
handle = lv_handle
text = temp_text
EXCEPTIONS
handle_not_valid = 1
operation_failed = 2
OTHERS = 3.

lv_offset = lv_offset + lv_chunk_len.

ENDWHILE.

In der SPAD hat der Drucker den Gerätetyp LB_ZEB3 und als Treiber RDIF (spool raw data interface).

Es ist sicher kein Hexenwerk - aber ich habe es noch nicht durschaut.

Mit freundlichen Grüßen
Matthias Alpmann