METHOD IF_EX_ME_PURCHDOC_POSTED~POSTED .

  FIELD-SYMBOLS:  <Z> TYPE EBELN.
  ASSIGN ('(SAPLMEPO)EKKO-EBELN') TO <Z>.
  CHECK SY-SUBRC = 0.

ENDMETHOD.

  badi_purchdoc_inst ?= cl_badi_mm=>get_instance( 'ME_PURCHDOC_POSTED' ).

......
    CALL METHOD badi_purchdoc_inst->posted
      EXPORTING
        im_vorga    = t160-vorga
        im_ekko     = ekko
        im_ekko_old = ls_ekko_old
        im_ekpo     = lt_usr_xekpo
        im_ekpo_old = lt_usr_yekpo
        im_eket     = lt_usr_xeket
        im_eket_old = lt_usr_yeket
        im_ekkn     = lt_usr_xekkn
        im_ekkn_old = lt_usr_yekkn
        im_komv     = lt_usr_xkomv
        im_komv_old = lt_usr_ykomv
        im_ekbes    = lt_usr_xekbes
        im_ekes     = lt_usr_xekes
        im_ekes_old = lt_usr_yekes
        im_ekeh     = lt_usr_xekeh
        im_ekeh_old = lt_usr_yekeh
        im_ekek     = lt_usr_xekek
        im_ekek_old = lt_usr_yekek
        im_eina     = lt_usr_xeina
        im_eina_old = lt_usr_yeina
        im_eine     = lt_usr_xeine
        im_eine_old = lt_usr_yeine
        im_batu     = lt_usr_xbatu
        im_ekpa     = lt_usr_xekpa
        im_ekpa_old = lt_usr_yekpa
        im_ekpv     = lt_usr_xekpv
      EXCEPTIONS
        OTHERS      = 0.