【SAP】ABAP开发——BDC录屏
1.输入SHDB
2.点击 New recording设置参数进行录屏。
3.根据需要录屏的内容对录屏代码进行适当修改进行批处理。
DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
PERFORM fill_bdc_create.
CALL TRANSACTION 'ME11' USING bdcdata MODE p_mode UPDATE 'S' MESSAGES INTO messtab.
"p_mode:A:显示所有输入屏幕 N:不显示屏幕的静默模式
" E:只有出现错误时才显示屏幕 P:不显示屏幕的调试模式
FORM fill_bdc_create.
REFRESH bdcdata.
PERFORM bdc_dynpro USING 'SAPMM06I' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'EINE-WERKS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'EINA-LIFNR' "供应商
it_data-lifnr.
PERFORM bdc_field USING 'EINA-MATNR' "物料
it_data-matnr+8(10).
PERFORM bdc_field USING 'EINE-EKORG' "采购组织
it_data-ekorg.
PERFORM bdc_field USING 'EINE-WERKS' "工厂
it_data-werks.
* 信息类别
IF r3 = 'X'. "标准
PERFORM bdc_field USING 'RM06I-NORMB' "信息类别-标准
'X'.
ELSEIF r4 = 'X'.
PERFORM bdc_field USING 'RM06I-LOHNB' "信息类别-外协加工
'X'.
ELSEIF r7 = 'X'."[MOD-01]
PERFORM bdc_field USING 'RM06I-KONSI' "信息类别-寄售
'X'.
ENDIF.
ENDFORM.
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.
FORM bdc_field USING fnam fval.
IF fval <> nodata.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDIF.
ENDFORM.
**注意:当程序在运行中录屏发生错误,程序即终止录屏。
post SAP-Garson
原文链接:https://blog.csdn.net/Mona_1220/article/details/105339812文章来自于网络,如果侵犯了您的权益,请联系站长删除!