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

最新推荐文章于 2025-10-20 21:51:21 发布

原创

最新推荐文章于 2025-10-20 21:51:21 发布 · 3.1k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#sap

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

销售订单审批状态读取：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_