ABAP-MIGO保存修改数据增强

三代增强：MB_DOCUMENT_BADI

 1 METHOD if_ex_mb_document_badi~mb_document_before_update.
 2 
 3   FIELD-SYMBOLS:<fs_action> TYPE godynpro-action,
 4                 <fs_refdoc> TYPE godynpro-refdoc,
 5                 <lfs_xmseg> TYPE ANY TABLE,
 6                 <lfs_xmkpf> TYPE ANY TABLE,
 7                 <lfs_mkpf>  TYPE mkpf,
 8                 <lfs_mseg>  TYPE mseg.
 9 
10   ASSIGN ('(SAPLMIGO)GODYNPRO-ACTION') TO <fs_action>.
11   ASSIGN ('(SAPLMIGO)GODYNPRO-REFDOC') TO <fs_refdoc>.
12   ASSIGN ('(SAPMM07M)XMSEG[]') TO <lfs_xmseg>.
13   ASSIGN ('(SAPMM07M)XMKPF[]') TO <lfs_xmkpf>.
14 
15   IF sy-tcode = 'MIGO'.
16 
17     LOOP AT <lfs_xmkpf> ASSIGNING <lfs_mkpf> .
18 
19       <lfs_mkpf>-bktxt = '' .
20 
21     ENDLOOP .
22 
23     LOOP AT <lfs_xmseg> ASSIGNING <lfs_mseg> .
24 
25       <lfs_mseg>-sgtxt = '' .
26 
27     ENDLOOP .
28 
29   ENDIF.
30 
31 ENDMETHOD.