CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
objnr = object_tab-objnr
spras = sy-langu
flg_user_stat = 'X'
IMPORTING
line = object_tab-sttxt
user_line = object_tab-ustxt
EXCEPTIONS
object_not_found = 01.
2.可以通过直接在JEST表中通过状态判定读取。
SELECT SINGLE * FROM aufk WHERE aufnr = readrec-aufnr.
** 检查工单种类
* IF aufk-auart(1) <> 'A'.
* CONTINUE.
* ENDIF.
** 判定工单状态
CLEAR: jest.
SELECT SINGLE * FROM jest
WHERE objnr = aufk-objnr
AND ( stat = 'I0045' OR " TECO
stat = 'I0013' OR " DELETE
stat = 'I0076' OR " DELETE FLAG
stat = 'I0046' OR " CLSD
stat = 'I0012 ') "DLV
AND inact = space.
IF sy-subrc = 0.
CONTINUE.
ENDIF.
*
** 判定工单是否 RELASE
CLEAR: jest.
SELECT SINGLE * FROM jest
WHERE objnr = aufk-objnr
AND ( stat = 'I0002' OR " RELEASE
stat = 'I0042') " Partial RELEASE
AND inact = space.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
** 检查此笔作业是否需要 ( 必需 RELEASE）
** 判定作业是否 RELASE
CLEAR: afvc.
SELECT SINGLE * FROM afvc WHERE aufpl = readrec-aufpl
AND aplzl = readrec-aplzl.
CLEAR: jest.
SELECT SINGLE * FROM jest
WHERE objnr = afvc-objnr
AND stat = 'I0002' . " RELEASE
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
