可以结合BAPI和ME54N查看效果
其实修改采购申请，可以直接调用BAPI修改，没必要撤批审批
而且调用审批的时候，经常发生一种现象：直接执行审批出错，debug进去发现没问题，都能成功，
具体原因不是很清楚，猜测是系统太快，一级审批没走完就进行二级审批，然后就报错了，
解决方案之一是每级审批后，等一秒……
"1、撤批
SELECT SINGLE frggr
"审批组
frgst
"批准策略
frgzu
"审批状态
INTO
(l_frggr, l_frgst ,l_frgzu)
FROM
eban
WHERE banfn = l_wa-banfn
"采购申请号
AND bnfpo
= l_wa_-bnfpo.
"行项目号
"各级审批
SELECT SINGLE
frgc1
frgc2
frgc3
frgc4
frgc5
FROM
t16fs
INTO
(l_frgc1,l_frgc2,l_frgc3,l_frgc4,l_frgc5)
WHERE
frggr = l_frggr
AND frgsx = l_frgst.
l_rel_code =
l_frgc1.
"如果想指定到某一级的撤批，选择t16fs-frgc1 t16fs-frgc2
t16fs-frgc3 分别三级撤批
l_rel_code =
l_frgc1."这里是扯批到创建者，
CALL FUNCTION
'BAPI_REQUISITION_RESET_RELEASE'
EXPORTING
number
= l_wa_preq_data-banfn
"采购申请号
item
= l_wa_preq_data-bnfpo
"行项目号
rel_code
=
l_rel_code
EXCEPTIONS
authority_check_fail
= 1
requisition_not_found
= 2
enqueue_fail
= 3
prerequisite_fail
= 4
release_already_posted =
5
responsibility_fail
= 6
no_release_already
= 7
no_new_release_indicator = 8
OTHERS
= 9.
IF sy-subrc NE 0.
异常处理
ENDIF.
"2、修改数量和交货日期
DATA: lt_items_old
LIKE TABLE OF bapiebanv WITH
HEADER LINE.
DATA: lt_items_new
LIKE TABLE OF bapiebanv WITH
HEADER LINE.
DATA: lt_items
LIKE TABLE
OF bapieban WITH HEADER
LINE.
DATA: lt_account
LIKE TABLE OF bapiebkn
WITH HEADER LINE.
DATA: lt_bapireturn LIKE
TABLE OF bapireturn WITH HEADER LINE.
DATA: number
TYPE bapieban-preq_no.
number =
l_wa-banfn.
CALL FUNCTION
'BAPI_REQUISITION_GETDETAIL'
EXPORTING
number
= number
account_assignment = 'X'
TABLES
requisition_items =
lt_items.
READ TABLE lt_items WITH
KEY preq_item = l_wa-bnfpo.
IF sy-subrc = 0.
MOVE-CORRESPONDING lt_items TO lt_items_old.
APPEND lt_items_old.
CLEAR
lt_items_old.
MOVE-CORRESPONDING lt_items TO lt_items_new.
lt_items_new-quantity =
l_wa-menge_m.
lt_items_new-deliv_date = l_wa-lfdat_m.
APPEND lt_items_new.
CLEAR
lt_items_new.
ENDIF.
CALL FUNCTION
'BAPI_REQUISITION_CHANGE'
EXPORTING
number
=
l_wa-banfn
TABLES
requisition_items_old = lt_items_old
requisition_items_new = lt_items_new
return
=
lt_return.
*异常处理 lt_return……
"3、审批
"如果想指定到某一级的撤批， rel_code选择t16fs-frgc1
t16fs-frgc2 t16fs-frgc3
"分别三级审批，必须一级级审批，不能跨级
"审批
必须分级审批
"获取审批级别
l_shenpi = strlen(
l_frgzu ).
DO l_shenpi TIMES.
"一级级审批
CLEAR
l_rel_code.
CASE
sy-index.
WHEN 1.
l_rel_code = l_frgc1.
WHEN 2.
l_rel_code = l_frgc2.
WHEN 3.
l_rel_code = l_frgc3.
WHEN 4.
l_rel_code = l_frgc4.
WHEN 5.
l_rel_code = l_frgc5.
ENDCASE.
CALL
FUNCTION 'BAPI_REQUISITION_RELEASE'
EXPORTING
number
= l_wa_057-banfn
"采购申请号
item
= l_wa_057-bnfpo
"行项目号
rel_code
=
l_rel_code
TABLES
return
= lt_return
EXCEPTIONS
authority_check_fail
= 1
requisition_not_found
= 2
enqueue_fail
= 3
prerequisite_fail
= 4
release_already_posted =
5
responsibility_fail
= 6
OTHERS
= 7.
IF
sy-subrc NE 0.
*
MESSAGE
ENDIF.
ENDDO.
CLEAR
l_wa_preq_data.
"最开始使用的修改bapi是BAPI_PR_CHANGE，
发现执行后，没有报错，但是采购申请并没有修改
一直查原因，网上说跟服务采购申请有关，具体没深入研究
lt_pritem-preq_item =
l_wa_preq_data-bnfpo.
"行项目号
lt_pritem-quantity =
l_wa_preq_data-menge_m.
"数量
lt_pritem-deliv_date =
l_wa_preq_data-lfdat_m.
"交货日期
APPEND lt_pritem.
"影子字段，交货日期和数量打修改标示
lt_pritemx-deliv_date = 'X'.
lt_pritemx-quantity = 'X'.
APPEND lt_pritemx.
"修改采购申请BAPI
CALL FUNCTION 'BAPI_PR_CHANGE'
EXPORTING
number
= l_wa_preq_data-banfn
"采购申请号
TABLES
return
= lt_return
pritem
= lt_pritem
pritemx =
lt_pritemx.
最后，提供一个比较完整的采购申请修改的例子：
data: lt_items_old like
table of bapiebanv with header line.
data: lt_items_new like
table of bapiebanv with header line.
data: lt_account_old like table of bapiebknv
with header line.
data: lt_account_new like table of bapiebknv
with header line.
data: lt_items
like table of bapieban
with header line.
data: lt_account
like table of bapiebkn
with header line.
data: lt_bapireturn like table of
bapireturn with header line.
call function 'BAPI_REQUISITION_GETDETAIL'
exporting
number
=
i_banfn
account_assignment
=
'X'
tables
requisition_items
= lt_items
requisition_account_assignment = lt_account.
loop at lt_items.
move-corresponding lt_items to
lt_items_old.
append lt_items_old.
clear lt_items_old.
move-corresponding lt_items to
lt_items_new.
loop at t_eban where bnfpo =
lt_items-preq_item.
lt_items_new-short_text
= t_eban-txz01.
lt_items_new-store_loc
= t_eban-lgort. "库存地点
lt_items_new-quantity
= t_eban-menge.
lt_items_new-unit
= t_eban-meins.
lt_items_new-deliv_date
= t_eban-lfdat.
lt_items_new-mat_grp
=
t_eban-matkl.
lt_items_new-store_loc
= t_eban-lgort.
lt_items_new-pur_group
= t_eban-ekgrp.
lt_items_new-c_amt_bapi
= t_eban-preis.
lt_items_new-trackingno
= t_eban-bednr.
lt_items_new-currency
= t_eban-waers.
lt_items_new-price_unit
= t_eban-peinh.
endloop.
append lt_items_new.
clear lt_items_new.
endloop.
loop at lt_account.
move-corresponding lt_account to
lt_account_old.
append lt_account_old.
clear lt_account_old.
move-corresponding lt_account to
lt_account_new.
loop at t_ebkn where bnfpo
= lt_account-preq_item.
lt_account_new-wbs_elem_e = t_ebkn-ps_psp_pnr.
lt_account_new-g_l_acct
= t_ebkn-sakto.
lt_account_new-cost_ctr
= t_ebkn-kostl.
lt_account_new-asset_no
= t_ebkn-anln1.
lt_account_new-order_no
= t_ebkn-aufnr.
lt_account_new-co_area
= t_ebkn-kokrs.
endloop.
append lt_account_new.
clear lt_account_new.
endloop.
loop at t_eban.
read table lt_items with key preq_item =
t_eban-bnfpo.
if sy-subrc
<> 0.
lt_items_new-preq_item
= t_eban-bnfpo. "采购申请的项目编号
lt_items_new-short_text
= t_eban-txz01.
lt_items_new-store_loc
= t_eban-lgort. "库存地点
lt_items_new-quantity
= t_eban-menge.
lt_items_new-unit
=
t_eban-meins.
lt_items_new-deliv_date
= t_eban-lfdat.
lt_items_new-mat_grp
= t_eban-matkl.
lt_items_new-store_loc
= t_eban-lgort.
lt_items_new-pur_group
= t_eban-ekgrp.
lt_items_new-c_amt_bapi
= t_eban-preis.
lt_items_new-trackingno
= t_eban-bednr.
lt_items_new-currency
= t_eban-waers.
lt_items_new-price_unit
= t_eban-peinh.
lt_items_new-des_vendor
= t_eban-lifnr. "期望的供应商
lt_items_new-fixed_vend
= t_eban-flief. "固定的供应商
lt_items_new-info_rec
= t_eban-infnr. "采购信息记录的编号
lt_items_new-purch_org
= t_eban-ekorg. "采购组织
append
lt_items_new.
clear
lt_items_new.
endif.
endloop.
loop at t_ebkn.
read table lt_account with key preq_item =
t_ebkn-bnfpo.
if sy-subrc
<> 0.
lt_account_new-preq_item
= t_ebkn-bnfpo.
lt_account_new-wbs_elem_e = t_ebkn-ps_psp_pnr.
lt_account_new-g_l_acct
= t_ebkn-sakto.
lt_account_new-cost_ctr
= t_ebkn-kostl.
lt_account_new-asset_no
= t_ebkn-anln1.
lt_account_new-order_no
= t_ebkn-aufnr.
lt_account_new-co_area
= t_ebkn-kokrs.
append
lt_account_new.
clear
lt_account_new.
endif.
endloop.
call function 'BAPI_REQUISITION_CHANGE'
exporting
number
=
i_banfn
tables
requisition_items_old
= lt_items_old
requisition_items_new
= lt_items_new
requisition_account_old
= lt_account_old
requisition_account_new
= lt_account_new
return
=
lt_bapireturn.
