Code: Alles auswählen.
IF g_Test IS INITIAL.
MESSAGE e001(z_erp_01_nachrichten) INTO l_message.
ENDIF.
Code: Alles auswählen.
TABLES zerp_01_msg.
DATA l_message TYPE char1.
DATA inews TYPE zerp_01_msg.
"Mussfelder Belegnummer
IF g_beleg_kopf-belegnr IS INITIAL.
MESSAGE e001(z_erp_01_nachrichten) INTO l_message.
ENDIF.
inews-syid = sy-msgid.
inews-synumber = sy-msgno.
inews-syv1 = sy-msgv1.
inews-syv2 = sy-msgv2.
inews-syv3 = sy-msgv3.
inews-syv4 = sy-msgv4.
SELECT SINGLE text FROM t100 INTO inews-sytext
WHERE msgnr = sy-msgno
AND arbgb = 'Z_ERP_01_NACHRICHTEN'
AND sprsl = 'D'.
APPEND inews TO e_t_nachrichten.
"Mussfelder Buchungskreis
IF g_beleg_kopf-bukrs IS INITIAL.
MESSAGE e002(z_erp_01_nachrichten) INTO l_message.
ENDIF.
inews-syid = sy-msgid.
inews-synumber = sy-msgno.
inews-syv1 = sy-msgv1.
inews-syv2 = sy-msgv2.
inews-syv3 = sy-msgv3.
inews-syv4 = sy-msgv4.
SELECT SINGLE text FROM t100 INTO inews-sytext
WHERE msgnr = sy-msgno
AND arbgb = 'Z_ERP_01_NACHRICHTEN'
AND sprsl = 'D'.
APPEND inews TO e_t_nachrichten.