** 判定工单状态
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.