Badi INVOICE_UPDATE
Method CHANGE_AT_SAVE
*Constante onde Tem o Campo em Tela que você deseja
validar!>
CONSTANTS: c_vorgang1(23) TYPE c VALUE '(SAPLMR1M)RM08M-VORGANG'.
FIELD-SYMBOLS: <fs_vorgang1> TYPE ANY.
ASSIGN (c_vorgang1) TO <fs_vorgang1>.
DATA: wa_errtab TYPE mrm_errprot.
IF <fs_vorgang1> = '2'. "Credit Mem
* Aqui Ira preencher a Tabela de mensagens
CLEAR wa_errtab.
wa_errtab-msgty = 'E'.
wa_errtab-msgid = 'ZXX'.
wa_errtab-msgno = '045'.
wa_errtab-source = 'Q'.
APPEND wa_errtab TO gt_errtab.
CALL FUNCTION 'MRM_PROT_FILL'
TABLES
t_errprot = gt_errtab.
ENDIF.
A FM: MRM_PROT_FILL você irá preencher a tabela
de mensagens.
0 comentários:
Postar um comentário