SAP 销售订单审批状态（查询/修改）

Ranson.Xie

于 2024-01-16 17:12:37 发布

阅读量723

点赞数 8

文章标签： sap

本文链接：https://blog.csdn.net/weixin_37949164/article/details/135629706

版权

销售订单审批状态启用后，前端显示界面如下图

销售订单审批状态读取：STATUS_READ

销售订单审批状态修改：I_CHANGE_STATUS

销售订单审批状态读取

代码样例如下：

DATA: lv_objnr   TYPE vbak-objnr,
      lv_objnr_t TYPE jsto-objnr,
      lv_obtyp   TYPE jsto-obtyp,
      lv_stsma   TYPE jsto-stsma,
      lv_stonr   TYPE tj30-stonr,
      lt_status  TYPE TABLE OF jstat,
      ls_status  TYPE jstat.
SELECT SINGLE objnr INTO lv_objnr
    FROM vbak
    WHERE vbeln = i_vbeln.

  IF lv_objnr IS NOT INITIAL.
    lv_objnr_t = lv_objnr.
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
*       CLIENT           = SY-MANDT
        objnr            = lv_objnr_t
*       ONLY_ACTIVE      = ' '
      IMPORTING
        obtyp            = lv_obtyp
        stsma            = lv_stsma
        stonr            = lv_stonr
      TABLES
        status           = lt_status
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.
    
    READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2
                                                     inact = ''.
    IF sy-subrc = 0.
    ENDIF.
ENDIF.

销售订单审批状态修改

具体代码样例如下：

FUNCTION zjkdms003.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_VBELN) TYPE  VBELN_VA OPTIONAL
*"     VALUE(I_ESTAT) TYPE  J_ESTAT OPTIONAL
*"     VALUE(I_APPROVER) TYPE  TEXT30 OPTIONAL
*"     VALUE(I_NAME) TYPE  TEXT30 OPTIONAL
*"  EXPORTING
*"     VALUE(E_MSG) TYPE  BAPIRET2
*"----------------------------------------------------------------------
  DATA: lv_objnr   TYPE vbak-objnr,
        lv_objnr_t TYPE jsto-objnr,
        lv_obtyp   TYPE jsto-obtyp,
        lv_stsma   TYPE jsto-stsma,
        lv_stonr   TYPE tj30-stonr,
        lt_status  TYPE TABLE OF jstat,
        ls_status  TYPE jstat,
        lt_tj30    TYPE TABLE OF tj30,
        ls_tj30    TYPE tj30,
        lv_estat1  TYPE tj30-estat,
        lv_estat2  TYPE tj30-estat,
        lv_estat3  TYPE tj30-estat,
        ieinfo     TYPE einfo,
        lt_003     TYPE TABLE OF ztjkdms003,
        ls_003     TYPE ztjkdms003.

  CLEAR: lv_objnr,
         lv_objnr_t,
         lv_obtyp,
         lv_stsma,
         lv_stonr,
         lt_status,
         ls_status,
         lt_tj30,
         ls_tj30,
         lv_estat1,
         lv_estat2,
         lv_estat3,
         ieinfo,
         lt_003,
         ls_003.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = i_vbeln
    IMPORTING
      output = i_vbeln.

  SELECT SINGLE objnr INTO lv_objnr
    FROM vbak
    WHERE vbeln = i_vbeln.

  IF lv_objnr IS NOT INITIAL.
    lv_objnr_t = lv_objnr.
    CALL FUNCTION 'STATUS_READ'
      EXPORTING
*       CLIENT           = SY-MANDT
        objnr            = lv_objnr_t
*       ONLY_ACTIVE      = ' '
      IMPORTING
        obtyp            = lv_obtyp
        stsma            = lv_stsma
        stonr            = lv_stonr
      TABLES
        status           = lt_status
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    IF lt_status IS NOT INITIAL.
      SELECT * INTO TABLE lt_tj30
        FROM tj30
        WHERE stsma = lv_stsma.
      SORT lt_tj30 BY estat.

      CLEAR: ls_tj30.
      READ TABLE lt_tj30 INTO ls_tj30 INDEX 1.
      IF sy-subrc = 0.
        lv_estat1 = ls_tj30-estat.
      ENDIF.

      CLEAR: ls_tj30.
      READ TABLE lt_tj30 INTO ls_tj30 INDEX 2.
      IF sy-subrc = 0.
        lv_estat2 = ls_tj30-estat.
      ENDIF.

      CLEAR: ls_tj30.
      READ TABLE lt_tj30 INTO ls_tj30 INDEX 3.
      IF sy-subrc = 0.
        lv_estat3 = ls_tj30-estat.
      ENDIF.

      IF i_estat = lv_estat1.
        READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2
                                                     inact = ''.
        IF sy-subrc = 0.
          CALL FUNCTION 'I_CHANGE_STATUS'
            EXPORTING
              objnr          = lv_objnr_t
              estat_inactive = lv_estat2
              estat_active   = lv_estat1
              stsma          = lv_stsma
            EXCEPTIONS
              cannot_update  = 1
              OTHERS         = 2.
        ENDIF.

        READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat3
                                                     inact = ''.
        IF sy-subrc = 0.
          CALL FUNCTION 'I_CHANGE_STATUS'
            EXPORTING
              objnr          = lv_objnr_t
              estat_inactive = lv_estat3
              estat_active   = lv_estat1
              stsma          = lv_stsma
            EXCEPTIONS
              cannot_update  = 1
              OTHERS         = 2.
        ENDIF.

        IF sy-subrc <> 0.
* Implement suitable error handling here
        ENDIF.

        IF sy-msgty = 'E' OR sy-msgty = 'A'.
          e_msg-type = sy-msgty.
          e_msg-id = sy-msgid.
          e_msg-number = sy-msgno.
          ieinfo-msgid = sy-msgid.
          ieinfo-msgty = sy-msgty.
          ieinfo-msgno = sy-msgno.
          CALL FUNCTION 'MESSAGE_GET_TEXT'
            EXPORTING
              ieinfo        = ieinfo
              ilangu        = '1'
            IMPORTING
              etext         = e_msg-message
            EXCEPTIONS
              no_t100_found = 1
              OTHERS        = 2.
          IF sy-subrc <> 0.
* Implement suitable error handling here
          ENDIF.
        ELSE.
          e_msg-type = 'S'.
          e_msg-message = '审批成功'.
        ENDIF.
      ENDIF.

      IF i_estat = lv_estat2.
        READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat1
                                                     inact = ''.
        IF sy-subrc = 0.
          CALL FUNCTION 'I_CHANGE_STATUS'
            EXPORTING
              objnr          = lv_objnr_t
              estat_inactive = lv_estat1
              estat_active   = lv_estat2
              stsma          = lv_stsma
            EXCEPTIONS
              cannot_update  = 1
              OTHERS         = 2.
        ENDIF.

        READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat3
                                                     inact = ''.
        IF sy-subrc = 0.
          CALL FUNCTION 'I_CHANGE_STATUS'
            EXPORTING
              objnr          = lv_objnr_t
              estat_inactive = lv_estat3
              estat_active   = lv_estat2
              stsma          = lv_stsma
            EXCEPTIONS
              cannot_update  = 1
              OTHERS         = 2.
        ENDIF.

        IF sy-subrc <> 0.
* Implement suitable error handling here
        ENDIF.

        IF sy-msgty = 'E' OR sy-msgty = 'A'.
          e_msg-type = sy-msgty.
          e_msg-id = sy-msgid.
          e_msg-number = sy-msgno.
          ieinfo-msgid = sy-msgid.
          ieinfo-msgty = sy-msgty.
          ieinfo-msgno = sy-msgno.
          CALL FUNCTION 'MESSAGE_GET_TEXT'
            EXPORTING
              ieinfo        = ieinfo
              ilangu        = '1'
            IMPORTING
              etext         = e_msg-message
            EXCEPTIONS
              no_t100_found = 1
              OTHERS        = 2.
          IF sy-subrc <> 0.
* Implement suitable error handling here
          ENDIF.
        ELSE.
          e_msg-type = 'S'.
          e_msg-message = '审批成功'.
        ENDIF.
      ENDIF.

      IF i_estat = lv_estat3.
        IF lv_estat3 IS NOT INITIAL.
          READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2
                                                       inact = ''.
          IF sy-subrc = 0.
            CALL FUNCTION 'I_CHANGE_STATUS'
              EXPORTING
                objnr          = lv_objnr_t
                estat_inactive = lv_estat2
                estat_active   = lv_estat3
                stsma          = lv_stsma
              EXCEPTIONS
                cannot_update  = 1
                OTHERS         = 2.
          ENDIF.

          READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat1
                                                       inact = ''.
          IF sy-subrc = 0.
            CALL FUNCTION 'I_CHANGE_STATUS'
              EXPORTING
                objnr          = lv_objnr_t
                estat_inactive = lv_estat1
                estat_active   = lv_estat3
                stsma          = lv_stsma
              EXCEPTIONS
                cannot_update  = 1
                OTHERS         = 2.
          ENDIF.

          IF sy-subrc <> 0.
* Implement suitable error handling here
          ENDIF.

          IF sy-msgty = 'E' OR sy-msgty = 'A'.
            e_msg-type = sy-msgty.
            e_msg-id = sy-msgid.
            e_msg-number = sy-msgno.
            ieinfo-msgid = sy-msgid.
            ieinfo-msgty = sy-msgty.
            ieinfo-msgno = sy-msgno.
            CALL FUNCTION 'MESSAGE_GET_TEXT'
              EXPORTING
                ieinfo        = ieinfo
                ilangu        = '1'
              IMPORTING
                etext         = e_msg-message
              EXCEPTIONS
                no_t100_found = 1
                OTHERS        = 2.
            IF sy-subrc <> 0.
* Implement suitable error handling here
            ENDIF.
          ELSE.
            e_msg-type = 'S'.
            e_msg-message = '审批成功'.
          ENDIF.
        ENDIF.
      ENDIF.

      IF i_estat IS INITIAL.
        e_msg-type = 'E'.
        e_msg-message = '请指定审批节点'.
      ENDIF.

    ENDIF.

  ENDIF.

  IF e_msg-type = 'S'. "当状态更新成功后，记录当前审批人信息
    ls_003-vbeln = i_vbeln.
    ls_003-estat = i_estat.
    ls_003-approver = i_approver.
    ls_003-name = i_name.
    ls_003-erdat = sy-datum.
    ls_003-erzet = sy-uzeit.
    COLLECT ls_003 INTO lt_003.
    CLEAR: ls_003.

    IF lt_003 IS NOT INITIAL.
      MODIFY ztjkdms003 FROM TABLE lt_003.
      IF sy-subrc = 0.
        COMMIT WORK AND WAIT.
      ELSE.
        ROLLBACK WORK.
      ENDIF.
    ENDIF.
  ENDIF.

ENDFUNCTION.