【IT168 技术文章】

    1.可以通过函数'STATUS_TEXT_EDIT'  。             

               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.