如何创建实用call transaction方法的BDC程序

程序创建步骤：

1 对相应功能进行录屏：

shdb ------>xk01--------->生成程序(zxk01)和文件(zxk01.txt).

2.新建一个饥李肆程序(zbdcxk01)

(1)声明BDCDASTA:

DATA: BDCDATA LIKE BDCDATAOCCURS 0 WITH HEADER LINE.

DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

dataNODATA value '/' .

TABLES: T100.

parameters p_file like rlgrap-filename .

at selection-screen on value-request for p_file.

perform file_find .

(2) 创建file_find子程序

FORM file_find .

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

STATIC= 'X'

CHANGING

FILE_NAME = p_file .

ENDFORM." file_find

(3)声明目标文件的类型,从程序(zxk01)中拷贝以下代码.

*** Generated data section with specific formatting - DO NOT CHANGE ***

data: begin of record occurs 0,

* data element: LIF16

LIFNR_001(016),

* data element: KTOKK

KTOKK_002(004),

* data element: NAME1_GP

NAME1_003(035),

* data element: SORTL

SORTL_004(010),

* data element: LAND1_GP

LAND1_005(003),

* data element: SPRAS

SPRAS_006(002),

end of record.

(4) 声明目标文件的结构体:

data wa_record like record.

(5)声烂轿明源文件的类型,根据业扰镇务需求,和数据格式自己做.

data: begin of it_record occurs 0,

* data element: LIF16

LIFNR_001(016),

* data element: NAME1_GP

NAME1_003(035),

* data element: SORTL

SORTL_004(010),

end of it_record.

(6)声明源文件的结构体:

data wa_it_record like it_record.

(7) 在start-of-selection .下面调用uploadfile 程序.

start-of-selection .

perform uploadfile .

(8) 创建uploadfile 子程序.

data filename type string .

filename = p_file .

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = filename

* FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

* HEADER_LENGTH = 0

* READ_BY_LINE = 'X'

* DAT_MODE = ' '

* CODEPAGE = ' '

* IGNORE_CERR = ABAP_TRUE

* REPLACEMENT = '#'

* CHECK_BOM = ' '

* IMPORTING

* FILELENGTH=

* HEADER=

TABLES

DATA_TAB = it_record

* EXCEPTIONS

* FILE_OPEN_ERROR = 1

* FILE_READ_ERROR = 2

* NO_BATCH = 3

* GUI_REFUSE_FILETRANSFER = 4

* INVALID_TYPE = 5

* NO_AUTHORITY = 6

* UNKNOWN_ERROR = 7

* BAD_DATA_FORMAT = 8

* HEADER_NOT_ALLOWED= 9

* SEPARATOR_NOT_ALLOWED = 10

* HEADER_TOO_LONG = 11

* UNKNOWN_DP_ERROR = 12

* ACCESS_DENIED = 13

* DP_OUT_OF_MEMORY = 14

* DISK_FULL = 15

* DP_TIMEOUT= 16

* OTHERS= 17

.

IF SY-SUBRC <>0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM." uploadfile

(9)将源文件数据传给目标文件内表,自己写以下代码, record-LIFNR_001 等格式来源于程序(zxk01).

loop at it_record into wa_it_record .

record-LIFNR_001 = wa_it_record-lifnr_001 .

record-KTOKK_002 = '0001'.

record-NAME1_003 = wa_it_record-name1_003 .

record-SORTL_004 = wa_it_record-SORTL_004.

record-LAND1_005 = 'CN'.

record-SPRAS_006 = 'EN'.

append record .

endloop .

(10) 模拟功能实现步骤,这部分代码可以从程序(zxk01)中拷贝,但是要注意将 record-LIFNR_001改为 wa_record-LIFNR_001.其他类似项也一样 要加wa_,代码如下所示.

loop at record into wa_record .

perform bdc_dynpro using 'SAPMF02K' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-KTOKK'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-LIFNR'

wa_record-LIFNR_001.

perform bdc_field using 'RF02K-KTOKK'

wa_record-KTOKK_002.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-SPRAS'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'LFA1-NAME1'

wa_record-NAME1_003.

perform bdc_field using 'LFA1-SORTL'

wa_record-SORTL_004.

perform bdc_field using 'LFA1-LAND1'

wa_record-LAND1_005.

perform bdc_field using 'LFA1-SPRAS'

wa_record-SPRAS_006.

perform bdc_dynpro using 'SAPMF02K' '0120'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-KUNNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0130'.

perform bdc_field using 'BDC_CURSOR'

'LFBK-BANKS(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

(11) 创建 bdc_dynpro子程序,可以在程序(zxk01)中拷贝

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM." BDC_DYNPRO

(12) 创建bdc_field 程序,可以在程序(zxk01)中拷贝

FORM BDC_FIELD USINGP_FNAM P_FVAL.

IF P_FVAL <>NODATA.

CLEAR BDCDATA.

BDCDATA-FNAM = P_FNAM.

BDCDATA-FVAL = P_FVAL.

APPEND BDCDATA.

ENDIF.

ENDFORM." BDC_FIELD

(13) 调用CALL TANSACTION方法 将'XK01' 换成相应的事物码即可.

call transaction 'XK01' USING BDCDATA MODE 'N'

UPDATE 'S' MESSAGES INTO messtab.

clear bdcdata.

refresh bdcdata.

DATA: L_MSTRING(480).

DATA: L_SUBRC LIKE SY-SUBRC.

LOOP AT MESSTAB.

SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA

AND ARBGB = MESSTAB-MSGID

AND MSGNR = MESSTAB-MSGNR.

IF SY-SUBRC = 0.

L_MSTRING = T100-TEXT.

IF L_MSTRING CS '&1'.

REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.

ELSE.

REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING.

REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.

REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.

REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.

ENDIF.

CONDENSE L_MSTRING.

WRITE: / MESSTAB-MSGTYP, L_MSTRING(250).

ELSE.

WRITE: / MESSTAB.

ENDIF.

ENDLOOP.

endloop .

(14)整个过程已经结束,检查激活该程序,运行并从中选择需要上传的文件例如:zver001.txt,然后回车就可以完成了.

注意事项:

在该程序的书写过程中在以下几处设置断点可以检查出程序中的错误.

(1)bdcdata

看里面是否有数据

(2) append record .

看里面是否有数据

(3) loop at it_record into wa_it_record .

看里面是否有数据

(4)bdcdata,record和it_record都有数据那么就看

perform bdc_field using 'RF02K-LIFNR'

wa_record-LIFNR_001.

是 wa_record-LIFNR_001还是 record-LIFNR_001.

你BDC录好屏后，可以看到对应的屏幕名称和字段名举档称。

参照下面代码：

PERFORM BDCDATA USING: 'X' 'SAPMKAUF' '0100'悄闷, "order type

' ' 'COAS-AUART' GT_TABLE-AUART,

' ' 'BDC_OKCODE' '=KOKR'.

PERFORM BDCDATA USING: 'X' 'SAPLSPO4' '0300', "control area

' ' 'SVALD-VALUE(01)' '1000',

' ' 'BDC_OKCODE' '=FURT'.

PERFORM BDCDATA USING: 'X' 'SAPMKAUF' '0100', "ok code

' ' 'BDC_OKCODE' '/00'.

FORM BDCDATA USING P_BEGIN P_FIELD1 P_FIELD2.

CLEAR GT_BDCDATA.

CASE P_BEGIN.

WHEN 'X'.

GT_BDCDATA-PROGRAM = P_FIELD1.

GT_BDCDATA-DYNPRO = P_FIELD2.

GT_BDCDATA-DYNBEGIN = 'X'.

WHEN SPACE.

GT_BDCDATA-FNAM = P_FIELD1.

GT_BDCDATA-FVAL = P_FIELD2.

ENDCASE.

APPEND GT_BDCDATA.

ENDFORM. " BDCDATA

这个就是把你要改的所以内容都放到内表里面。然后调用函数BDC_INSERT：

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'KO01'

TABLES

DYNPROTAB = GT_BDCDATA.

目前我在程序里也只会用这样子的。感觉录屏的作用就是为了找屏幕启答弯名和字段名的。

---