【ABAP系列】SAP 获取工单和工序的状态

2019-07-13 18:02:03 阅读：235 来源： 互联网

标签：STATUS status sy objnr ABAP 工单 line SAP TYPE

公众号：SAP Technical 本文作者：matinal 原文出处：http://www.cnblogs.com/SAPmatinal/ 原文链接：【ABAP系列】SAP 获取工单和工序的状态

前言部分

大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。

正文部分

ABAP 获取订单状态的两个函数 STATUS_TEXT_EDIT 和 STATUS_READ 的简单介绍


CONCATENATE  'OR'  TWK1-AUFNR  INTO  Z_OBJNR.

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            = 'OR000001100154'
  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-STAT = 'I0002' AND t_status-INACT = 'X'.
    WRITE:'已删除'.
    EXIT.
  ENDIF.
ENDLOOP.

DATA:line TYPE bsvx-sttxt.
  CALL FUNCTION 'STATUS_TEXT_EDIT'
     EXPORTING
       FLG_USER_STAT    = 'X'
       OBJNR            = 'OR000001100154'
       ONLY_ACTIVE      = 'X'
       SPRAS            = SY-LANGU
     IMPORTING
       LINE             = line
     EXCEPTIONS
       OBJECT_NOT_FOUND = 01
       OTHERS           = 02.
 WRITE:line.
  SEARCH line FOR 'CLSD'.
IF sy-subrc = 0.
  WRITE:'订单已关闭'.
ENDIF.

在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.

下面介绍获取工序状态的方法：

状态一般都在JEST这表里面，到AFVC表里面找到对象号再找TJ02表就可以了！

标签：STATUS,status,sy,objnr,ABAP,工单,line,SAP,TYPE
来源： https://www.cnblogs.com/SAPmatinal/p/11181523.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

【ABAP系列】SAP 获取工单和工序的状态

前言部分

正文部分