SAP-PP模块-生产订单工单的各个状态

*&---------------------------------------------------------------------*
*& Report ZPPRTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPPRTEST.

TYPES: BEGIN OF ty_status,
  txt04 LIKE tj02t-txt04,
END OF ty_status,
BEGIN OF ty_jest,
  stat LIKE jest-stat,
  txt04 LIKE tj02t-txt04,
END OF ty_jest.



DATA: lt_status TYPE TABLE OF ty_status,
          lt_jstat LIKE TABLE OF jstat,
          lt_jest TYPE TABLE OF ty_jest.

DATA: l_index LIKE sy-tabix,
          l_objnr LIKE aufk-objnr,
          l_txt TYPE string,
          l_txt2 TYPE string,
          l_txt3 LIKE bsvx-sttxt.

*-->先找到生产订单的物件号码
SELECT SINGLE objnr INTO l_objnr
            FROM aufk
            WHERE aufnr = '000019009370'.

*-->第一种方式
SELECT jest~stat tj02t~txt04 INTO TABLE lt_jest
          FROM jest
          INNER JOIN tj02t ON jest~stat = tj02t~istat
          WHERE jest~objnr = l_objnr
          AND jest~inact = space
          AND tj02t~spras = sy-langu.

LOOP AT lt_jest INTO DATA(ls_jest).
  IF sy-tabix = 1.
    CONCATENATE l_txt ls_jest-txt04
      INTO l_txt.
  ELSE.
    CONCATENATE l_txt ls_jest-txt04
      INTO l_txt SEPARATED BY space.
  ENDIF.
ENDLOOP.

*-->第二种方式
CALL FUNCTION 'STATUS_READ'
  EXPORTING
    client                 = sy-mandt
    objnr                 = l_objnr
    only_active        = 'x'
  TABLES
    status                 = lt_jstat
  EXCEPTIONS
    object_not_found       = 1
    OTHERS                 = 2.

  DELETE lt_jstat WHERE inact = 'X'.

  IF lt_jstat[] IS NOT INITIAL.
    SELECT txt04 INTO TABLE lt_status
                FROM tj02t
                FOR ALL ENTRIES IN lt_jstat
                WHERE istat = lt_jstat-stat
                AND spras = sy-langu.
    LOOP AT lt_status INTO DATA(ls_status).
      IF sy-tabix = 1.
        CONCATENATE l_txt2 ls_status-txt04
          INTO l_txt2.
      ELSE.
        CONCATENATE l_txt2 ls_status-txt04
          INTO l_txt2 SEPARATED BY space.
      ENDIF.
    ENDLOOP.
  ENDIF.

*-->第三种方式
CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
    client                 = sy-mandt
    objnr                 = l_objnr
    only_active        = 'X'
    spras                   = sy-langu
  IMPORTING
    line                    = l_txt3
  EXCEPTIONS
   object_not_found        = 1
   OTHERS                  = 2.

cl_demo_output=>write( l_txt ).
cl_demo_output=>write( l_txt2 ).
cl_demo_output=>write( l_txt3 ).
cl_demo_output=>display(  ).