ABAP BAPI 取消采购订单审批 


 1 *&---------------------------------------------------------------------*
 2 *& Report ZGER_1910LK_031404
 3 *&---------------------------------------------------------------------*
 4 *&
 5 *&---------------------------------------------------------------------*
 6 REPORT ZGER_1910LK_031404.
 7 *--------------------------------------------------------------------*
 8 TABLES: EKKO,EKPO.
 9 SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
10   PARAMETERS: P_EBELN TYPE EBELN,            "采购凭证号
11               P_FRGCO TYPE FRGCO.            "审批代码
12   SELECTION-SCREEN END OF BLOCK BLK1.
13 *--------------------------------------------------------------------*
14 *  审批bapi
15 *--------------------------------------------------------------------*
16   CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
17     EXPORTING
18       purchaseorder                  = P_EBELN   "采购订单号
19       po_rel_code                    = P_FRGCO   "审批代码
20      USE_EXCEPTIONS                 = 'X'
21 *   IMPORTING
22 *     REL_STATUS_NEW                 =
23 *     REL_INDICATOR_NEW              =
24 *   TABLES
25 *     RETURN                         =
26    EXCEPTIONS
27      AUTHORITY_CHECK_FAIL           = 1
28      DOCUMENT_NOT_FOUND             = 2
29      ENQUEUE_FAIL                   = 3
30      PREREQUISITE_FAIL              = 4
31      RELEASE_ALREADY_POSTED         = 5
32      RESPONSIBILITY_FAIL            = 6
33      NO_RELEASE_ALREADY             = 7
34      NO_NEW_RELEASE_INDICATOR       = 8
35      OTHERS                         = 9
36             .
37   IF sy-subrc <> 0.
38 * Implement suitable error handling here
39     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
40     WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
41     ELSE.
42     MESSAGE '取消审批成功' TYPE 'I' DISPLAY LIKE 'W'.
43   ENDIF.

 


  

posted @ 2020-03-14 15:28  独孤like  阅读(23)  评论(0)    收藏  举报