采购订单审批BAPI ---BAPI_PO…

采购订单审批BAPI ---BAPI_PO…

采购订单审批BAPI ---BAPI_PO_RELEASE

REPORT  z_release_po.

DATA gc_frggr LIKE ekko-frggr.                                     "Release Group

DATA gc_frgsx LIKE ekko-frgsx.                                      "Release Strategy

DATA gc_frgke LIKE ekko-frgke.                                      "Release Status.

DATA ret_code LIKE sy-subrc.

DATA msg(255) TYPE c.

DATA: gt_t16fs LIKE t16fs OCCURS 0 WITH HEADER LINE.

DATA: gc_new_status LIKE bapimmpara-rel_status.

DATA: gc_indicator_new LIKE bapimmpara-po_rel_ind.

DATA: gt_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA: gc_no_commit LIKE bapimmpara-selection.

DATA: et_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA:BEGIN OF it_po_rel_code OCCURS 0,

rel_code TYPE frgco,

END OF it_po_rel_code.

SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE title.

PARAMETERS:po_num LIKE ekko-ebeln,"采购订单号

rel_code TYPE frgco."审批代码

SELECTION-SCREEN END OF BLOCK block.

SELECT SINGLE ekko~frgke INTO gc_frgke FROM ekko WHERE ekko~ebeln = po_num.

IF gc_frgke = '1'.

ret_code = -1.

CONCATENATE: po_num '已经通过审核' INTO msg.

*  EXIT.

ELSE.

SELECT SINGLE ekko~frggr ekko~frgsx INTO (gc_frggr,gc_frgsx) FROM ekko WHERE ekko~ebeln = po_num.

IF ( gc_frggr IS NOT INITIAL ) AND ( gc_frgsx IS NOT INITIAL ).

REFRESH gt_t16fs.

CLEAR gt_t16fs.

SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_t16fs FROM t16fs WHERE t16fs~frggr = gc_frggr AND t16fs~frgsx = gc_frgsx.

ELSE.

ret_code = -1.

msg ='未找到对应审批策略，请检查输入'.

EXIT.

ENDIF.

IF rel_code IS NOT INITIAL.

CLEAR gc_new_status.

CLEAR gc_indicator_new.

CALL FUNCTION 'BAPI_PO_RELEASE'

EXPORTING

purchaseorder                = po_num

po_rel_code                  = rel_code

use_exceptions               = 'X'

*           no_commit                    =

IMPORTING

rel_status_new               = gc_new_status

rel_indicator_new            = gc_indicator_new

*                ret_code                     =

TABLES

return                       = gt_log.

.

IF sy-subrc = 0.

et_log-type = 'S'.

CONCATENATE: '采购订单通过审核码' rel_code '的审核成功！' '返回采购订单审批状态为：' gc_new_status ' 审批标识为：'

gc_indicator_new INTO et_log-message.

APPEND et_log.

IF NOT gt_log[] IS INITIAL.

et_log-type = gt_log-type.

et_log-message = gt_log-message.

APPEND et_log.

ENDIF.

ENDIF.

ELSE.

ret_code = -1.

msg = '未找到对应审批策略，请检查输入'.

EXIT.

ENDIF.

IF et_log[] IS NOT INITIAL.

READ TABLE et_log WITH KEY type = 'E'.

IF sy-subrc = 0.

msg = 'po审核存在错误，请查看错误日志'.

ret_code = -1.

EXIT.

ELSE.

msg = 'PO已审核成功，请查看日志'.

ret_code = 0.

ENDIF.

ENDIF.

ENDIF.

WRITE:msg.

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。