使用BDC的CALL TRANSACTION编程方式导入数据

BDC的两种通用写法。  
1.    Call Transaction: 顾名思义，就是直接调用BDC进行数据批量导入。优点：方便快捷，程序处理方便。缺点：日志管理能力差，需自己建透明表来维护数据。我只是把它用作测试用途，不做正式使用。   
2.    BDC Insert：这是一种不直接运行，而是将BDC程序生成session，间接运行的一种方法。优点：通过T-code SM35可以进行运行管理及日志管理，方便查错。缺点：相对方法1来说实现起来比较繁琐。

call transaction方法将数据归集到BDCDATA 结构的内表中，然后导入到系统中，通过BDCMSGCOLL结构返回BDC导入操作的成功与否消息。
BDCDATA结构中比较关键的几个字段解释：
PROGRAM  -   BDC module pool
DYNPRO-        BDC Screen number
DYNBEGIN-    BDC screen start                                                         
FNAM-            Field name
FVAL-              BDC field value

1、需要导入的execl模板数据格式

实际导入时，把前2行删掉

2、SHDB录制屏幕操作
我们是录制ME51的操作，然后生成标准步骤，用程序批量处理，所以录制时不可含有多余步骤。
我们可以先在ME51中操作几遍，熟悉之后再操作SHDB录制屏幕，尽量不用回车，可以用点击替代。

SHDB->输入录制屏幕产生记录的名称 和 需要录制的T-Code

结束之后就可以看到这些代码，单击‘导出’按钮，可将数据导出到本地
BDC命令行的解读：  
T                            ME51                 : 表示调用TCODE ME51
BDC_OKCODE    =AB                    : 表示点了按钮    
BDC_OKCODE    /00                    : 表示回车 
BDC_OKCODE    XXXX                 : 一般表示为点击XXXX按扭 
SAPMM06B  0106  X                   : 表示调用程序的0106画面    
BDC_CURSOR   EBAN-LGORT    ：表示需要输入值的字段
EBAN-MATNR &#160100702002       : 表示给字段MATNR赋值P100702002
(通常表、字段的表示格式为: XXXXXX-ZZZZZ , XXXXXX为表名，ZZZZ为字段名)

3、点击program按钮，将记录生成代码

查看生成的代码，然后我们写程序就可以参考生成的代码了


4、se38创建程序

1. *Structure for error message
   
2. TYPES : BEGIN OF ty_s_error,
   
3.            msg_err(60) TYPE c,
   
4.          END OF ty_s_error.
   
5. 
   
6. *Input Path
   
7. SELECTION-SCREEN BEGIN OF BLOCK blck WITH FRAME TITLE text-011.
   
8. PARAMETERS:
   
9.    p_file   TYPE rlgrap-filename,                  " File Path
   
10.    e_file   TYPE rlgrap-filename OBLIGATORY,       " Error File Path
    
11.    p_mode   TYPE c OBLIGATORY DEFAULT 'N'.         " Mode
    
12. SELECTION-SCREEN END OF BLOCK blck.
    
13. 
    
14. * Structure Decleration
    
15. DATA :
    
16.    BEGIN OF fs_field,
    
17.      bsart TYPE eban-bsart,             " Document Type.
    
18.      matnr TYPE eban-matnr,             " Material Number.
    
19.      menge TYPE eban-menge,             " Quantity Requested.
    
20.      werks TYPE eban-werks,             " Plant.
    
21.   END OF fs_field.
    
22. 
    
23. *Internal table decleration
    
24. DATA:
    
25.     t_field    LIKE TABLE OF fs_field,
    
26.     t_bdcdata  LIKE TABLE OF bdcdata.
    
27. 
    
28. DATA:
    
29.    fs_bdcdata LIKE LINE OF t_bdcdata,   " Structure type of bdcdata
    
30.     w_str  TYPE string.
    
31. 
    
32. * Data decleration
    
33. DATA:
    
34.    wa_path TYPE string ,
    
35.    wa_error TYPE string,
    
36.    wa_cnt   TYPE i,
    
37.    w_mode    TYPE c,
    
38.    wa_cnt1(2) TYPE n,
    
39.    it_output TYPE TABLE OF ty_s_error,
    
40.    wa_output LIKE LINE OF it_output.
    
41. 
    
42. AT SELECTION-SCREEN.
    
43. * Mode 'A' = Foreground mode
    
44. * Mode 'N' = Background mode
    
45.   IF p_mode = 'A' OR p_mode = 'N' .
    
46.     w_mode = p_mode.
    
47.   ELSE.
    
48. *Error Message
    
49.     MESSAGE 'PLEASE ENTER THE MODE A or N' TYPE 'E'.
    
50.   ENDIF.
    
51. 
    
52. * Opening window for path selection
    
53. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
    
54.   CALL FUNCTION 'F4_FILENAME'
    
55.     EXPORTING
    
56.       program_name  = syst-cprog
    
57.       dynpro_number = syst-dynnr
    
58.       field_name    = ' '
    
59.     IMPORTING
    
60.       file_name     = p_file.
    
61. 
    
62.   TYPES:
    
63.     fs_struct(4096) TYPE c OCCURS 0 .
    
64. 
    
65.   DATA:
    
66.     w_struct TYPE fs_struct.
    
67. 
    
68. * Uploading excel file.
    
69.   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    
70.     EXPORTING
    
71.       i_field_seperator          = 'X'
    
72. *   I_LINE_HEADER              =
    
73.       i_tab_raw_data             = w_struct
    
74.       i_filename                 = p_file
    
75.     TABLES
    
76.       i_tab_converted_data       = t_field
    
77.     EXCEPTIONS
    
78.       conversion_failed          = 1
    
79.       OTHERS                     = 2
    
80.             .
    
81.   IF sy-subrc <> 0.
    
82.     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
    
83.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
84.   ENDIF.
    
85. 
    
86. *Opening window for Error file download
    
87. AT SELECTION-SCREEN ON VALUE-REQUEST FOR e_file.
    
88.   CALL FUNCTION 'F4_FILENAME'
    
89.     EXPORTING
    
90.       program_name  = syst-cprog
    
91.       dynpro_number = syst-dynnr
    
92.       field_name    = ' '
    
93.     IMPORTING
    
94.       file_name     = e_file.
    
95. 
    
96. * start of selection event.
    
97. START-OF-SELECTION.
    
98. 
    
99.   LOOP AT t_field INTO fs_field .
    
100.     REFRESH: t_bdcdata.
     
101.     CLEAR fs_bdcdata.
     
102.     PERFORM populate_bdcdata.
     
103.     PERFORM insert_data.
     
104.   ENDLOOP.                               " LOOP AT it_c.
     
105. 
     
106. *********************(populate_bdcdata)***********************
     
107. * part 1
     
108. FORM populate_bdcdata.
     
109.   PERFORM :
     
110.      fill_bdc_data USING 'SAPMM06B' '0100' 'X'  ' '  ' ',
     
111.      fill_bdc_data USING  ''  ''  ''   'EBAN-BSART' fs_field-bsart,   " Document Type.
     
112.      fill_bdc_data USING  ''  ''  ''   'BDC_OKCODE' '/00',            " Enter.
     
113. 
     
114.      fill_bdc_data USING 'SAPMM06B'  '0106' 'X' ' ' ' ',
     
115.      fill_bdc_data USING  '' '' '' 'EBAN-MATNR(01)'  fs_field-matnr,   " Material Number.
     
116.      fill_bdc_data USING  '' '' ''  'EBAN-MENGE(01)' fs_field-menge,   " Quantity Requested.
     
117.      fill_bdc_data USING  '' '' ''  'EBAN-WERKS(01)' fs_field-werks,   " Plant.
     
118.      fill_bdc_data USING  '' '' ''  'BDC_OKCODE'   '/00',              " Enter.
     
119. 
     
120.      fill_bdc_data USING 'SAPMM06B' '0102' 'X' ''  '' ,
     
121.      fill_bdc_data USING  '' '' ''  'BDC_OKCODE' '=BU'.                 " Save.
     
122. ENDFORM.                               " Form populate_bdc.
     
123. 
     
124. * part 2
     
125. FORM fill_bdc_data USING value(p_program)
     
126.                        value(p_dynpro)
     
127.                        value(p_dynbegin)
     
128.                        value(p_fnam)
     
129.                        value(p_fval).
     
130.   CLEAR fs_bdcdata .
     
131.   IF p_dynbegin = 'X' .
     
132.     fs_bdcdata-program = p_program .
     
133.     fs_bdcdata-dynpro  = p_dynpro .
     
134.     fs_bdcdata-dynbegin = p_dynbegin .
     
135.     APPEND fs_bdcdata TO t_bdcdata.
     
136.   ELSE.
     
137.     fs_bdcdata-fnam = p_fnam.
     
138.     fs_bdcdata-fval = p_fval.
     
139.     CONDENSE fs_bdcdata-fval.
     
140.     APPEND fs_bdcdata TO t_bdcdata.
     
141.   ENDIF.                               " IF p_dynbeg..
     
142. ENDFORM .                              " Fill_entry
     
143. 
     
144. *********************(insert_data)****************************
     
145. FORM insert_data.
     
146. *Data decleration for Error Message
     
147.   DATA:
     
148.        t_msg TYPE TABLE OF bdcmsgcoll,   " Collecting Error messages
     
149.        w_msg TYPE bdcmsgcoll,
     
150.        w_msg1(51).
     
151. 
     
152. * Call transaction 'ME51'
     
153.   CALL TRANSACTION 'ME51' USING t_bdcdata
     
154.     MODE w_mode
     
155.     UPDATE 'S'
     
156.     MESSAGES INTO t_msg.
     
157. 
     
158.   IF sy-subrc EQ 0.
     
159. *    Uploaded into the database
     
160.     WRITE :/ 'DATA UPLOADED IN TABLE EBAN...' .
     
161.   ELSE.
     
162. *    Error Found
     
163.     LOOP AT t_msg INTO w_msg WHERE msgtyp EQ 'E'.
     
164. *     Format Message
     
165.       CALL FUNCTION 'MESSAGE_TEXT_BUILD'
     
166.         EXPORTING
     
167.           msgid               = w_msg-msgid
     
168.           msgnr               = w_msg-msgnr
     
169.           msgv1               = w_msg-msgv1
     
170.           msgv2               = w_msg-msgv2
     
171.           msgv3               = w_msg-msgv3
     
172.           msgv4               = w_msg-msgv4
     
173.         IMPORTING
     
174.           message_text_output = w_msg1.
     
175.       wa_output-msg_err = w_msg1.
     
176. *Error message in downloaded file
     
177.       DATA:wa_string(10) TYPE c.
     
178. 
     
179.       wa_string = fs_field-matnr.
     
180.       CONCATENATE wa_string wa_output-msg_err INTO wa_output-msg_err SEPARATED BY space.
     
181.       APPEND wa_output-msg_err TO it_output.
     
182. 
     
183.       wa_error = e_file.
     
184.       CALL FUNCTION 'GUI_DOWNLOAD'
     
185.         EXPORTING
     
186. *         BIN_FILESIZE                    =
     
187.           filename                        = wa_error
     
188. *         FILETYPE                        = 'ASC'
     
189. *         APPEND                          = ' '
     
190.           write_field_separator           = 'X'
     
191.         TABLES
     
192.           data_tab                        = it_output
     
193. *
     
194.                 .
     
195.       IF sy-subrc <> 0.
     
196.         MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
197.                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
198.       ENDIF.                           " IF sy-subrc <> 0.
     
199.     ENDLOOP.
     
200.   ENDIF.
     
201. ENDFORM.                    "insert_data

复制代码

5、执行效果

如果产生错误信息，则通过txt文件，导出到本地