SAB ABAP 如何程序调用录屏SHDB
SABABAP这是我录好的屏,但现在不知道在其它程序中如何调用此屏幕,望个位友们基于以下程序帮忙写个调用代码...若是百度上的批量物料例子就不用贴了,谢谢reportZM...
SAB ABAP 这是我录好的屏,但现在不知道在其它程序中如何调用此屏幕,望个位友们基于以下程序帮忙写个调用代码...
若是百度上的批量物料例子就不用贴了,谢谢
report ZMI02_DEL
no standard page heading line-size 255.
include bdcrecx1.
parameters: dataset(132) lower case.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
*** Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record,
* data element: IBLNR
IBLNR_001(010),
* data element: GJAHR
GJAHR_002(004),
end of record.
*** End generated data section ***
start-of-selection.
perform open_dataset using dataset.
perform open_group.
do.
read dataset dataset into record.
if sy-subrc <> 0. exit. endif.
perform bdc_dynpro using 'SAPMM07I' '0701'.
perform bdc_field using 'BDC_CURSOR'
'RM07I-IBLNR'.
perform bdc_field using 'BDC_OKCODE'
'=DL'.
perform bdc_field using 'RM07I-IBLNR'
record-IBLNR_001.
perform bdc_field using 'RM07I-GJAHR'
record-GJAHR_002.
perform bdc_dynpro using 'SAPLSPO1' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
perform bdc_transaction using 'MI02'.
enddo.
perform close_group.
perform close_dataset using dataset.
录的是用MI02,删除凭证 展开
若是百度上的批量物料例子就不用贴了,谢谢
report ZMI02_DEL
no standard page heading line-size 255.
include bdcrecx1.
parameters: dataset(132) lower case.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
*** Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record,
* data element: IBLNR
IBLNR_001(010),
* data element: GJAHR
GJAHR_002(004),
end of record.
*** End generated data section ***
start-of-selection.
perform open_dataset using dataset.
perform open_group.
do.
read dataset dataset into record.
if sy-subrc <> 0. exit. endif.
perform bdc_dynpro using 'SAPMM07I' '0701'.
perform bdc_field using 'BDC_CURSOR'
'RM07I-IBLNR'.
perform bdc_field using 'BDC_OKCODE'
'=DL'.
perform bdc_field using 'RM07I-IBLNR'
record-IBLNR_001.
perform bdc_field using 'RM07I-GJAHR'
record-GJAHR_002.
perform bdc_dynpro using 'SAPLSPO1' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
perform bdc_transaction using 'MI02'.
enddo.
perform close_group.
perform close_dataset using dataset.
录的是用MI02,删除凭证 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询