Error message if DCI is checked for PO line items in MIGO
BADI : MB_MIGO_BADI
line_modify method
EXPORT CS_GOITEM FROM CS_GOITEM TO MEMORY ID 'ZMMDELINCHK'.
Check_item Method
METHOD if_ex_mb_migo_badi~check_item.
DATA:cs_goitem TYPE goitem,
ls_bapiret TYPE bapiret2,
lt_bapiret TYPE TABLE OF bapiret2.
IMPORT cs_goitem TO cs_goitem FROM MEMORY ID 'ZMMDELINCHK'.
FREE MEMORY ID 'ZMMDELINCHK'.
IF cs_goitem-elikz = 'X'.
* MESSAGE 'error' type 'E'.
ls_bapiret-type = 'E'.
ls_bapiret-id = 'ZR_MM_NPM_DCI'.
ls_bapiret-number = '003'.
ls_bapiret-message_v1 = cs_goitem-ebeln.
ls_bapiret-message_v2 = cs_goitem-ebelp.
APPEND ls_bapiret TO lt_bapiret.
ENDIF.
ENDMETHOD.
Comments
Post a Comment