BDC需要注意的

最新推荐文章于 2023-08-25 18:18:27 发布

weixin_30667301

最新推荐文章于 2023-08-25 18:18:27 发布

阅读量373

点赞数

原文链接：http://www.cnblogs.com/hdchen/p/8549527.html

版权

 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.