BDC需要注意的

Posted 2020-10-27 追寻无限

 1 FUNCTION ZFM_AUFNR_TECO_E.
 2 *"----------------------------------------------------------------------
 3 *"*"本地接口：
 4 *"  IMPORTING
 5 *"     REFERENCE(AUFNR) TYPE  AFKO-AUFNR
 6 *"     REFERENCE(FLAG) TYPE  CHAR1
 7 *"  EXPORTING
 8 *"     REFERENCE(SUBRC) TYPE  SYST-SUBRC
 9 *"  TABLES
10 *"
11 *"
12 *"    对工单进行技术性完成的处理
13 *"----------------------------------------------------------------------
14 
15 
16 
17   DATA BDCDATA_TAB TYPE TABLE OF BDCDATA.
18 ****该表用于存放BDC操作记录
19   DATA OPT TYPE CTU_PARAMS.
20 
21 *  DATA: X_OPTIONS TYPE CTU_PARAMS..
22 
23   CLEAR OPT.
24      OPT-DISMODE = \'E\'.
25      OPT-UPDMODE = \'S\'.
26      OPT-CATTMODE = \' \'.
27      OPT-DEFSIZE = \' \'.
28      OPT-RACOMMIT = \' \'.
29      IF FLAG = \'X\'.
30      OPT-NOBINPT = \'X\'.
31      ELSE.
32      OPT-NOBINPT = \'\'.
33      ENDIF.
34      OPT-NOBIEND = \' \'.
35 
36 ****用于操作方法记录
37   DATA:OKCODE TYPE  C LENGTH  5.
38 ****可以用于存放操作记录的按钮名称
39   DATA :
40     TRANSACTION  TYPE  C LENGTH  5,
41     DYNPRO       TYPE  C LENGTH  4,
42     ITAB_MESSAGE TYPE  TABLE OF  BDCMSGCOLL WITH HEADER LINE.
43   OPT-DISMODE = \'N\'.
44   TRANSACTION  = \'CO02\'.
45 **** program 事务码 dynpro 屏幕名称 dynbegin 等于X就可以
46 **** fnam 字段名称 fval字段值
47 
48  IF FLAG = \'X\'.
49   BDCDATA_TAB = VALUE #(
50    ( PROGRAM  = \'SAPLCOKO1\'   DYNPRO   = \'0110\' DYNBEGIN = \'X\' )
51    ( FNAM = \'BDC_CURSOR\'      FVAL = \'CAUFVD-AUFNR\' )
52    ( FNAM = \'BDC_OKCODE\'      FVAL =  \'/00\' )
53    ( FNAM =  \'CAUFVD-AUFNR\'   FVAL = AUFNR )
54    ( FNAM =  \'R62CLORD-FLG_OVIEW\'   FVAL = \'X\' )
55    ( PROGRAM =  \'SAPLCOKO1\'   DYNPRO  = \'0115\' DYNBEGIN = \'X\')
56    ( FNAM = \'BDC_OKCODE\'      FVAL =   \'=TABS\' )
57    ( PROGRAM =  \'SAPLSPO1\'    DYNPRO  = \'0400\' DYNBEGIN = \'X\')
58    ( FNAM = \'BDC_OKCODE\'      FVAL =   \'=YES\' )
59    ( PROGRAM =  \'SAPLCOKO1\'   DYNPRO  = \'0115\' DYNBEGIN = \'X\')
60    ( FNAM = \'BDC_OKCODE\'      FVAL =   \'=BU\' )
61    ).
62 
63   ELSE.
64     BDCDATA_TAB = VALUE #(
65    ( PROGRAM  = \'SAPLCOKO1\'  DYNPRO   = \'0110\' DYNBEGIN = \'X\' )
66    ( FNAM = \'BDC_CURSOR\'    FVAL = \'CAUFVD-AUFNR\' )
67    ( FNAM = \'BDC_OKCODE\'    FVAL =  \'/00\' )
68    ( FNAM =  \'CAUFVD-AUFNR\'   FVAL = AUFNR )
69    ( FNAM =  \'R62CLORD-FLG_OVIEW\'   FVAL = \'X\' )
70    ( PROGRAM =  \'SAPLCOKO1\'  DYNPRO  = \'0115\' DYNBEGIN = \'X\')
71    ( FNAM = \'BDC_OKCODE\'    FVAL =   \'=TABS\' )
72 *   ( PROGRAM =  \'SAPLSPO1\'  DYNPRO  = \'0400\' DYNBEGIN = \'X\')
73 *    ( FNAM = \'BDC_OKCODE\'    FVAL =   \'=YES\' )
74    ( PROGRAM =  \'SAPLCOKO1\'  DYNPRO  = \'0115\' DYNBEGIN = \'X\')
75    ( FNAM = \'BDC_OKCODE\'    FVAL =   \'=BU\' )
76    ).
77 
78   ENDIF.
79 
80   CALL TRANSACTION TRANSACTION  USING BDCDATA_TAB OPTIONS FROM OPT
81         MESSAGES INTO MESSTAB..
82   LOOP AT ITAB_MESSAGE.
83     IF ITAB_MESSAGE-MSGTYP =  \'E\'  .
84       MESSAGE \'WRONG_EXEC\'  TYPE  \'E\' RAISING WRONG_EXEC.
85       EXIT.
86     ENDIF.
87   ENDLOOP.
99 ENDFUNCTION.

需要注意的是BDC在录屏的时候，有些情境会出现弹出选择框，让你选择是和否。此时这里勾选，并且OPT-NOBINPT = \'X\'这个值设置为X。