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。
