采购订单审批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.