获取生产订单的状态信息的函数Function详解

作者：袁云飞（AlbertYuan）- 微信号yuanalbert

以下内容均为原创，希望对初学者有一些辅助作用，本人主要从事MM/QM/WM的相关工作，不专业处请多多指点，十足干货，码字不易，且行且珍惜，你们的关注就是我努力的动力，转载请引用出处，感激不尽；

这章可以被认为是备忘贴，主要是关于生产订单的状态信息该如何获取，以及相关的函数的用途效果及案例；为什么要说PP生产订单的东西呢，O(∩_∩)O不是说了么，备忘，说不定哪天我们搞MM/QM/WM就用上了呢，开个玩笑啦；

在SAP中对于如何获取订单的状态，提供了至少两个函数，分别是 STATUS_READ 和 STATUS_TEXT_EDIT。下面简单介绍这两个函数；

1.STATUS_READ 改函数的实现原理大概是通过订单的对象好（OR+订单号）到JEST中取出字段STAT INACT.

JEST表中STAT是一串从字面看不出意思的字符，可以根据STAT到表TJ02T中找到具体的描述。

下面是具体用法；

DATA:objnr TYPE aufk-objnr.

objnr = 'OR000000100014'.
DATA:t_status TYPE TABLE OF jstat WITH HEADER LINE.
"结果存放在STATUS表中
CALL FUNCTION 'STATUS_READ'
  EXPORTING
    client           = sy-mandt
    objnr            = objnr
  TABLES
    status           = t_status
  EXCEPTIONS
    object_not_found = 1
    OTHERS           = 2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT t_status.
  IF t_status = 'I0046'.
    WRITE:'订单已关闭'.
    EXIT.
  ENDIF.
ENDLOOP.

2.STATUS_TEXT_EDIT 改函数读取的结果是将订单状态拼接到一个字符串中，而且这个字符串是在前台订单上看到的状态，比较直接，这样做的结果就可能由于状态较多导致长度过长，在某些情况下取的数据可能不准。

下面是一段代码；

DATA:line TYPE bsvx-sttxt.
CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
    client = sy-mandt
    objnr  = objnr
    spras  = sy-langu
  IMPORTING
    line   = line
  EXCEPTIONS
    object_not_found        = 1
    OTHERS  .      "
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

SEARCH line FOR 'CLSD'.
IF sy-subrc = 0.
  WRITE:'订单已关闭'.
ENDIF.


DATA  i_jstat LIKE jstat OCCURS 0 WITH HEADER LINE.

     CALL FUNCTION 'STATUS_READ'
     EXPORTING
       client                 = sy-mandt
       objnr                  = i_caufv_resb-objnr   ”对象号
       only_active            = 'X'
*     IMPORTING
*       OBTYP                  =
*       STSMA                  =
*       STONR                  =
     TABLES
       status                 = i_jstat    “目前的所有状态
    EXCEPTIONS
      object_not_found       = 1
      OTHERS                 = 2.

LOOP AT i_jstat WHERE stat = 'I0013'  "DLT  删除标识符.
                     OR    stat = 'I0012'  "DLV  交货
                     OR    stat = 'I0045'  "TECO 技术实现
                     OR    stat = 'I0043'  "LKD  冻结
                     OR    stat = 'I0001'  "CRTD 建立
                     OR    stat = 'I0046'  "CLSD 已结算
                     OR    stat = 'I0076'. "DLID 删除标志
       l_delete = 'X'.
       EXIT.
     ENDLOOP.

来源：CSDN

作者：袁云飞

链接：https://blog.csdn.net/weixin_44853659/article/details/104348017

标签

stat