JZTXT

ABAP-MIGO保存修改数据增强

发布时间 2023-09-27 10:48:08作者: TigerMan

三代增强：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 ('(SAPLMIGO)GODYNPRO-ACTION') TO <fs_action>.
13   ASSIGN ('(SAPMM07M)XMSEG[]') TO <lfs_xmseg>.
14   ASSIGN ('(SAPMM07M)XMKPF[]') TO <lfs_xmkpf>.
15 
16   IF sy-tcode = 'MIGO'.
17 
18     LOOP AT <lfs_xmkpf> ASSIGNING <lfs_mkpf> .
19       
20       <lfs_mkpf>-bktxt = '' .
21 
22     ENDLOOP .
23 
24     LOOP AT <lfs_xmseg> ASSIGNING <lfs_mseg> .
25       
26       <lfs_mseg>-sgtxt = '' .
27 
28     ENDLOOP .
29 
30   ENDIF.
31 
32 ENDMETHOD.