增强点:CL_FAA_BF_PAR_VAL_ACTIVATION
1 IF sy-tcode = 'ABAVN' OR sy-ucomm = 'SAVE'.
2 ASSIGN ('(SAPLAMDPS2I)RAIFP2-BUKRS') TO <fs_bukrs>.
3 IF <fs_bukrs> IS ASSIGNED AND <fs_bukrs> IS NOT INITIAL.
4 SELECT SINGLE paraval
5 INTO lv_value
6 FROM ztbc_config
7 WHERE paranam = 'ABAVN:BUKRS'.
8
9 CHECK sy-subrc EQ 0 AND lv_value IS NOT INITIAL.
10
11 SPLIT lv_value AT '/' INTO TABLE lt_table.
12 LOOP AT lt_table INTO ls_table.
13 r_bukrs = VALUE #( BASE r_bukrs ( sign = 'I' option = 'CP' low = ls_table ) ).
14 ENDLOOP.
15
16 CHECK <fs_bukrs> IN r_bukrs.
17 ASSIGN ('(SAPLAMDPS2I)RAIFP1-XBLNR') TO <fs_xblnr>.
18 IF <fs_xblnr> IS ASSIGNED AND <fs_xblnr> IS INITIAL.
19 MESSAGE e122(zfi01).
20 ENDIF.
21 ENDIF.
22 ENDIF.
View Code
若有其它好的增强点烦请告知，谢谢
标签：sy,INTO,INITIAL,lv,ABVAN,ABAP,ENDIF,table,SAP From： https://www.cnblogs.com/coderfarmer/p/16940735.html