SAP 最简单的 BDC
- 格式：doc
- 大小：344.00 KB
- 文档页数：9
最简单的BDC-批量创建物料号
1. T-CODE SHDB –》 new recording
2. 按下按钮‘勾’ 得到T-CODE MM01的操作界面，选择‘行业领域’和‘物料类型’。
3．按回车键，得到‘选择视图’
选择‘基本数据 1’，按下按钮‘勾’ 得到下面屏幕，输入必输字段。
按‘保存’按钮。跳转到屏幕：
按‘保存’，‘返回’按钮。
选中行项，选择按钮‘program’.给生成的程序命名，点击按钮‘源代码’查看生成的代码。
源代码如下：
report ZPOJO_BDC_01
no standard page heading line-size 255.
include bdcrecx1.
start-of-selection.
perform open_group.
perform bdc_dynpro using 'SAPLMGMM' '0060'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1-MATNR'.
perform bdc_field using
'BDC_OKCODE'
'=ENTR'.
perform bdc_field using
'RMMG1-MBRSH'
'M'.
perform bdc_field using
'RMMG1-MTART'
'BLG'.
perform bdc_dynpro
using 'SAPLMGMM' '0070'.
perform bdc_field using
'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using
'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'MSICHTAUSW-KZSEL(01)' 'X'.
perform bdc_dynpro using 'SAPLMGMM' '4004'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'MAKT-MAKTX'
'test'.
perform bdc_field using 'BDC_CURSOR'
'MARA-MEINS'.
perform bdc_field using 'MARA-MEINS'
'D'.
perform bdc_field using 'MARA-MTPOS_MARA'
'LEER'.
perform bdc_transaction using 'MM01'.
perform close_group.
修改源代码：加入内表进行批处理。
修改后的代码：
REPORT zpojo_bdc_01
NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE bdcrecx1.
*---自定义内表
TYPES:BEGIN OF w_tab,
mbrsh LIKE mara-mbrsh, "行业领域
mtart LIKE mara-mtart, "物料类型
maktx LIKE makt-maktx, "物料描
meins LIKE mara-meins, "单位
END OF w_tab.
DATA it_tab TYPE TABLE OF w_tab
WITH HEADER LINE.
START-OF-SELECTION.
DO 10 TIMES.
it_tab-mbrsh = 'M'. "行业领域
it_tab-mtart = 'BLG'. "物料类型
it_tab-maktx = sy-index. "物料描
it_tab-meins = 'D'. "单位
APPEND it_tab.
ENDDO.
START-OF-SELECTION.
PERFORM open_group.
LOOP AT it_tab.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RMMG1-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'RMMG1-MBRSH'
it_tab-mbrsh.
PERFORM bdc_field USING 'RMMG1-MTART'
it_tab-mtart.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'
'X'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM bdc_field USING 'MAKT-MAKTX'
it_tab-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARA-MEINS'.
PERFORM bdc_field USING 'MARA-MEINS'
it_tab-meins.
PERFORM bdc_field USING 'MARA-MTPOS_MARA'
'LEER'.
PERFORM bdc_transaction USING 'MM01'.
ENDLOOP.
PERFORM close_group.
运行该程序：
执行：
生成的物料号：
