IDC资讯中心
*———————————————————————–
* program id :ztest904_bdc
* program name :ztest904_bdc
*———————————————————————–
* created date :2004/09/04
* created by :liugang
* description :这个程序是学习如何通过程序来调用
* bdc自动导入数据的。
*———————————————————————–
* modification :
* date modified modified by transport request description
* 2004/09/04 liugang version：01/01 学习
*———————————————————————–
report ztest904_bdc.
* 定义个bdc格式的内表
**************************************************
data : begin of i_bdcdata occurs 0,
*bdc的程序名字,比如事物码mm01的程序名字为saplmgmm（sap标准程序）
program like bdcdata-program,
*bdc dynpro 号码
dynpro like bdcdata-dynpro,
*bdc bdc dynpro 開始
dynbegin like bdcdata-dynbegin,
*bdc 项目名字
fnam like bdcdata-fnam,
*bdc 项目名字的附加值
fval like bdcdata-fval,
end of i_bdcdata.
data: begin of itab occurs 0,
a(9),
end of itab.
itab-a = a0010.
append itab.
itab-a = a0011.
append itab.
* start-of-selection
start-of-selection.
loop at itab.
perform append_mm01 using itab-a.
perform run_bdc.
endloop.
*———————————————————————*
* form append_data_mm01 *
*———————————————————————*
* 定义一个子程序里面,用来存放操作的各个步骤 *
*———————————————————————*
form append_mm01 using fval like itab-a.
clear i_bdcdata.
clear i_bdcdata[].
*开始新的画面事件
*0173画面
*把程序名字和 bdc dynpro号码,开始标志 写入内表表头,
i_bdcdata-program = saplmgmm.
i_bdcdata-dynpro = 0060.
i_bdcdata-dynbegin = x.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_cursor.
i_bdcdata-fval = rmmg1-matnr.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_okcode.
i_bdcdata-fval = /00.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = rmmg1-matnr.
*新建立的物料凭证号码
* i_bdcdata-fval = a004.
i_bdcdata-fval = fval.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = rmmg1-mbrsh.
i_bdcdata-fval = c.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = rmmg1-mtart.
i_bdcdata-fval = werb.
append i_bdcdata.
clear i_bdcdata.
*开始新的画面事件
i_bdcdata-program = saplmgmm.
i_bdcdata-dynpro = 0070.
i_bdcdata-dynbegin = x.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_cursor.
i_bdcdata-fval = msichtausw-dytxt(01).
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_okcode.
i_bdcdata-fval = =entr.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = msichtausw-kzsel(01).
i_bdcdata-fval = x.
append i_bdcdata.
clear i_bdcdata.
*开始新的画面事件
i_bdcdata-program = saplmgmm.
i_bdcdata-dynpro = 4004.
i_bdcdata-dynbegin = x.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_okcode.
i_bdcdata-fval = =bu.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = bdc_cursor.
i_bdcdata-fval = makt-maktx.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = makt-maktx.
i_bdcdata-fval = 测试bdc导入数据.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = mara-meins.
i_bdcdata-fval = 000.
append i_bdcdata.
clear i_bdcdata.
i_bdcdata-fnam = mara-mtpos_mara.
i_bdcdata-fval = norm.
append i_bdcdata.
clear i_bdcdata.
endform.
*———————————————————————*
* form run_bdc *
*———————————————————————*
* …….. *
*———————————————————————*
form run_bdc.
*开始调用事务mm01,把做好的bdc对象传递过去,然后把模式设置为a,
*就是说所有窗口,均可以看见.
* n 表示不看见吧
call transaction mm01 using i_bdcdata mode n.
endform.
