采购订单自动审批

*根据订单号获取采购订单信息

select single * from ekko

where ebeln = lt_zcmisconrela-zerporderno.

purchaseorder = lt_zcmisconrela-zerporderno.

********>>>>>>>>>>自动审批

*根据采购订单的审批组和审批策略获取具体的审批流程代码

select single *

from t16fs

where frggr = ekko-frggr

and frgsx = ekko-frgsx.

do 8 times.

num = num + 1.

*逐级获取审批代码

if num = 1.

po_rel_code = t16fs-FRGC1.

elseif num = 2.

po_rel_code = t16fs-FRGC2.

elseif num = 3.

po_rel_code = t16fs-FRGC3.

elseif num = 4.

po_rel_code = t16fs-FRGC4.

elseif num = 5.

po_rel_code = t16fs-FRGC5.

elseif num = 6.

po_rel_code = t16fs-FRGC6.

elseif num = 7.

po_rel_code = t16fs-FRGC7.

elseif num = 8.

po_rel_code = t16fs-FRGC8.

endif.

if po_rel_code <> ''.

*调用系统的BAPI 根据订单号和审批代码审批采购订单

call function 'BAPI_PO_RELEASE'

exporting

purchaseorder = purchaseorder

po_rel_code = po_rel_code

use_exceptions = 'X'

importing

rel_status_new = rel_status_new

rel_indicator_new = rel_indicator_new

tables

return = return

exceptions

authority_check_fail = 1

document_not_found = 2

enqueue_fail = 3

prerequisite_fail = 4

release_already_posted = 5

responsibility_fail = 6

others = 7.

endif.

enddo.

num = 0.

********<<<<<<<<<<<自动审批