设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[BAPI] ME29N采购订单取消审批BAPI_PO_RESET_RELEASE

Twilight发表于 2019-08-07 10:05Twilight 最后回复于 2019-08-07 10:05 [复制链接] 4068 0

采购订单审批时需要逐级审批，但是取消审批也可以跨级审批，直接置为未审批状态。

1、逐级取消审批
  1. FUNCTION zpufm010.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  IMPORTING
  5. *"     VALUE(I_EBELN) TYPE  EBELN
  6. *"     VALUE(I_FRGZU) TYPE  FRGZU
  7. *"  EXPORTING
  8. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  9. *"----------------------------------------------------------------------
  10.   DATA:lt_return TYPE TABLE OF bapireturn WITH HEADER LINE.
  11.   DATA:BEGIN OF ls_ekko,
  12.          ebeln TYPE ekko-ebeln,
  13.          frggr TYPE ekko-frggr,
  14.          frgsx TYPE ekko-frgsx,
  15.        END OF ls_ekko.
  16.   DATA:ls_t16fs TYPE t16fs.
  17.   DATA:lv_level TYPE n.
  18.   DATA:lv_pre_field TYPE string VALUE 'FRGC'.
  19.   DATA:lv_fieldname TYPE string.
  20.   FIELD-SYMBOLS:<fs_field> TYPE t16fs-frgc1.

  22.   PERFORM frm_inputsap_ebeln CHANGING i_ebeln.

  24.   SELECT SINGLE
  25.     ebeln  "采购订单
  26.     frggr  "审批组
  27.     frgsx  "审批策略
  28.   INTO ls_ekko
  29.   FROM ekko
  30.   WHERE ebeln = i_ebeln
  31.     AND frgzu = i_frgzu. "空 未审核 X一级审核 XX二级审核
  32.   IF sy-subrc = 0.
  33.     SELECT SINGLE * INTO ls_t16fs FROM t16fs WHERE frggr = ls_ekko-frggr AND frgsx = ls_ekko-frgsx. "审批代码
  34.     IF sy-subrc = 0.
  35.       lv_level = strlen( i_frgzu ).
  36.       CONCATENATE lv_pre_field lv_level INTO lv_fieldname.
  37.       "通过指针获取批准代码
  38.       ASSIGN COMPONENT lv_fieldname OF STRUCTURE ls_t16fs TO <fs_field>.
  39.       IF sy-subrc = 0.
  40.         CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
  41.           EXPORTING
  42.             purchaseorder            = i_ebeln
  43.             po_rel_code              = <fs_field>
  44.             use_exceptions           = 'X'
  45.           TABLES
  46.             return                   = lt_return
  47.           EXCEPTIONS
  48.             authority_check_fail     = 1
  49.             document_not_found       = 2
  50.             enqueue_fail             = 3
  51.             prerequisite_fail        = 4
  52.             release_already_posted   = 5
  53.             responsibility_fail      = 6
  54.             no_release_already       = 7
  55.             no_new_release_indicator = 8
  56.             OTHERS                   = 9.
  57.         LOOP AT lt_return WHERE type CA 'AEX'.
  58.           IF e_message-message IS INITIAL.
  59.             e_message-message   = lt_return-message.
  60.           ELSE.
  61.             CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  62.           ENDIF.
  63.         ENDLOOP.
  64.         IF sy-subrc = 0.
  65.           e_message-type   = 'E'.
  66.           EXIT.
  67.         ELSE.
  68.           e_message-type    = 'S'.
  69.           e_message-message = '采购订单' && lv_level && '级反审批通过！'.
  70.         ENDIF.
  71.       ENDIF.

  73.     ENDIF.
  74.   ELSE.
  75.     e_message-type    = 'S'.
  76.     e_message-message = '没有发现需要反审批的采购订单！'.
  77.   ENDIF.

  79. ENDFUNCTION.
复制代码

2、直接反审批，一步到位
  1. FUNCTION zpufm010.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  IMPORTING
  5. *"     VALUE(I_EBELN) TYPE  EBELN
  6. *"  EXPORTING
  7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  8. *"----------------------------------------------------------------------
  9.   DATA:lt_return TYPE TABLE OF bapireturn WITH HEADER LINE.
  10.   DATA:BEGIN OF ls_ekko,
  11.          ebeln TYPE ekko-ebeln,
  12.          frggr TYPE ekko-frggr,
  13.          frgsx TYPE ekko-frgsx,
  14.        END OF ls_ekko.
  15.   DATA:ls_t16fs TYPE t16fs.
  16.   DATA:lv_pre_field TYPE string VALUE 'FRGC'.
  17.   DATA:lv_fieldname TYPE string.
  18.   FIELD-SYMBOLS:<fs_field> TYPE t16fs-frgc1.

  20.   PERFORM frm_inputsap_ebeln CHANGING i_ebeln.


  23.   SELECT SINGLE
  24.     ebeln  "采购订单
  25.     frggr  "审批组
  26.     frgsx  "审批策略
  27.   INTO ls_ekko
  28.   FROM ekko
  29.   WHERE ebeln = i_ebeln
  30.     AND frgzu NE ''. "空 未审核 X一级审核 XX二级审核
  31.   IF sy-subrc = 0.
  32.     SELECT SINGLE * INTO ls_t16fs FROM t16fs WHERE frggr = ls_ekko-frggr AND frgsx = ls_ekko-frgsx. "审批代码
  33.     IF sy-subrc = 0.
  34.       CONCATENATE lv_pre_field '1' INTO lv_fieldname.
  35.       "通过指针获取批准代码
  36.       ASSIGN COMPONENT lv_fieldname OF STRUCTURE ls_t16fs TO <fs_field>.
  37.       IF sy-subrc = 0.
  38.         CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
  39.           EXPORTING
  40.             purchaseorder            = i_ebeln
  41.             po_rel_code              = <fs_field>
  42.             use_exceptions           = 'X'
  43.           TABLES
  44.             return                   = lt_return
  45.           EXCEPTIONS
  46.             authority_check_fail     = 1
  47.             document_not_found       = 2
  48.             enqueue_fail             = 3
  49.             prerequisite_fail        = 4
  50.             release_already_posted   = 5
  51.             responsibility_fail      = 6
  52.             no_release_already       = 7
  53.             no_new_release_indicator = 8
  54.             OTHERS                   = 9.
  55.         LOOP AT lt_return WHERE type CA 'AEX'.
  56.           IF e_message-message IS INITIAL.
  57.             e_message-message   = lt_return-message.
  58.           ELSE.
  59.             CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  60.           ENDIF.
  61.         ENDLOOP.
  62.         IF sy-subrc = 0.
  63.           e_message-type   = 'E'.
  64.           EXIT.
  65.         ELSE.
  66.           e_message-type    = 'S'.
  67.           e_message-message = '采购订单反审批通过！'.
  68.         ENDIF.
  69.       ENDIF.

  71.     ENDIF.
  72.   ELSE.
  73.     e_message-type    = 'S'.
  74.     e_message-message = '没有发现需要反审批的采购订单！'.
  75.   ENDIF.

  77. ENDFUNCTION.
复制代码
ME29N, 采购订单, 审批

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 839 主题
  2. 964 帖子
  3. 10796 积分
收听TA 发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-4-19 21:09 , Processed in 0.049764 second(s), 8 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.4

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表