ABAP 采购申请反审批/取消审批BAPI_REQUISITION_RESET_REL_GEN

最新推荐文章于 2025-01-29 10:32:28 发布

Seele_1018

最新推荐文章于 2025-01-29 10:32:28 发布

阅读量741

点赞数 1

CC 4.0 BY-SA版权

文章标签： ABAP 采购申请 SAP BAPI

窝窝头~一块钱四个~嘿嘿~

本文链接：https://blog.youkuaiyun.com/qq_44826887/article/details/132732392

文章讲述了使用ABAP编程中的BAPI函数处理采购申请的审批流程，包括检查审批状态、取消审批以及事务提交或回滚操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*&---------------------------------------------------------------------*
*& Form frm_reject_pr
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> PS_HEAD
*&      <-- PS_RETINFO
*&---------------------------------------------------------------------*
FORM frm_reject_pr  USING    ps_head      TYPE  zmms035
                    CHANGING ps_retinfo   TYPE  zmms037.

  DATA: lv_number   TYPE bapi2009ob-preq_no,
        lv_rel_code TYPE bapimmpara-rel_code,
        lt_return   TYPE TABLE OF bapireturn,
        ls_return   TYPE bapireturn,
        lv_subrc    TYPE sy-subrc.

  lv_number = ps_head-banfn.  " 采购申请编号  EBAN-BANFN
  lv_rel_code = 'SA'.         " 采购申请批准代码  T16FC-FRGCO

  SELECT SINGLE
    frgkz
  FROM eban
  WHERE
    banfn = @ps_head-banfn
  INTO @DATA(lv_frgkz).
  IF sy-subrc = 0 AND lv_frgkz = gc_b.  " 此时尚未审批
    ps_retinfo-code     = gc_e.
    ps_retinfo-message  = TEXT-m20. " 采购申请尚未审批，请先审批;
    EXIT.
  ENDIF.

  "采购申请取消审批
  CALL FUNCTION 'BAPI_REQUISITION_RESET_REL_GEN'
    EXPORTING
      number   = lv_number
      rel_code = lv_rel_code
    TABLES
      return   = lt_return.

  lv_subrc = sy-subrc.
  LOOP AT lt_return INTO ls_return WHERE type CA 'AEX'.
"    ps_retinfo-code     = gc_e.
"    ps_retinfo-message  = ps_retinfo-message && ls_return-message.
  ENDLOOP.
  IF sy-subrc = 0 OR lv_subrc NE 0.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = abap_true.
    WAIT UP TO '0.5' SECONDS.
  ENDIF.

ENDFORM.