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

Popular posts from this blog

CDS Views: Table Functions with Example

Passing Dynamic Variables to SO10 TEXT

Adobe Form/PDF Form Introduction