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

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

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

  SELECT
    dwerk     "工厂
    dauat     "订单类型
    dauty     "订单类别
    projn     "wbs
    afpo~aufnr
    posnr
    aufk~objnr

    INTO CORRESPONDING FIELDS OF TABLE gt_afpo
    FROM afko
    JOIN aufk  ON afko~aufnr = aufk~aufnr
    JOIN afpo ON afko~aufnr = afpo~aufnr
    LEFT JOIN vsaufk ON vsaufk~aufnr = afpo~aufnr
    WHERE projn IN s_wbs
    AND dwerk IN s_werks
    AND dauat = 'TGD1'
    AND afpo~aufnr IN s_aufnr .

  SORT gt_afpo BY aufnr posnr.

  LOOP AT gt_afpo INTO gw_afpo.
*获取工单状态
    CALL FUNCTION 'STATUS_TEXT_EDIT'
      EXPORTING
        client           = sy-mandt
*       FLG_USER_STAT    = ' '
        objnr            = gw_afpo-objnr
        only_active      = 'X'
        spras            = sy-langu
*       BYPASS_BUFFER    = ' '
      IMPORTING
*       ANW_STAT_EXISTING       =
*       E_STSMA          =
        line             = gw_afpo-state
*       USER_LINE        =
*       STONR            =
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

至于怎么将状态为 DLV 的删除，用了这么几种方法

一开始是delete 。。。where 。。。like。。。，但是SAP并不支持这种写法

后来发现了这么几种方法

1.search  

2.cs     delete gt_afpo where state cs 'DLV'.

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