获取WBS状态函数详解编程语言

FUNCTION ZIF_GET_WBS_STATE.

* -

* * Local interface:

*  TABLES

*      INPUT STRUCTURE  ZIF_GET_WBS_STATE_INPUT OPTIONAL

*      OUTPUT STRUCTURE  ZIF_GET_WBS_STATE_OUTPUT OPTIONAL

* -

*状态表

TYPES:BEGIN OF stat_itab,

      objnr TYPE jest-objnr,             PROJ-OBJNR

      istat TYPE tj02t-istat,

      estat TYPE tj30t-estat,

      txt30 TYPE tj02t-txt30,

END OF stat_itab.

DATA:sstat_tab TYPE TABLE OF stat_itab WITH HEADER LINE.

DATA:ustat_tab TYPE TABLE OF stat_itab WITH HEADER LINE.

DATA:m_OBJNR TYPE PRPS-OBJNR.

DATA:m_PSPEL TYPE AUFK-PSPEL.

DATA:m_COUNT TYPE I.

LOOP AT INPUT.

      MOVE-CORRESPONDING INPUT TO OUTPUT.

      REFRESH sstat_tab.

      CLEAR sstat_tab.

      REFRESH ustat_tab.

      CLEAR ustat_tab.

      CLEAR m_COUNT.

      SELECT SINGLE

             COUNT(*)

             INTO m_COUNT

             FROM PRPS

             WHERE POSID = INPUT-POSID.

      IF m_COUNT 0.

*         删除前面的0

          SHIFT INPUT-POSID LEFT DELETING LEADING 0 .

          CLEAR m_PSPEL.

          CALL FUNCTION CONVERSION_EXIT_KONPR_INPUT

             EXPORTING

               INPUT                        = INPUT-POSID

             IMPORTING

               OUTPUT                       = m_PSPEL.

      ENDIF.

      CLEAR m_OBJNR.

      SELECT SINGLE

             OBJNR

             INTO m_OBJNR

             FROM PRPS

             WHERE PSPNR = m_PSPEL.

      SELECT b~objnr

             a~istat

             a~txt04 as txt30

             FROM tj02t AS a INNER JOIN  jest AS b ON a~istat = b~stat

             INTO CORRESPONDING FIELDS OF TABLE sstat_tab

             WHERE b~objnr = m_OBJNR

                   AND a~spras = sy-langu

                   AND b~inact X .

      DELETE ADJACENT DUPLICATES FROM sstat_tab.

      SELECT b~objnr

             a~estat

             a~txt04 as txt30

             FROM tj30t AS a INNER JOIN  jest AS b ON a~estat = b~stat

             INTO CORRESPONDING FIELDS OF TABLE ustat_tab

             WHERE b~objnr = m_OBJNR

                   AND a~spras = sy-langu AND

                   a~stsma = ZPS001

                   AND b~inact X .

      DELETE ADJACENT DUPLICATES FROM ustat_tab.

      LOOP AT sstat_tab WHERE objnr = m_OBJNR.

            IF sstat_tab-istat CS I .

                CONCATENATE OUTPUT-SYSSTA sstat_tab-txt30 INTO OUTPUT-SYSSTA SEPARATED BY SPACE.

*                OUTPUT-SYSSTA = sstat_tab-txt30.

            ENDIF.

      ENDLOOP.

      LOOP AT ustat_tab WHERE objnr = m_OBJNR.

            IF ustat_tab-estat CS E .

                CONCATENATE OUTPUT-USRSTA ustat_tab-txt30 INTO OUTPUT-USRSTA SEPARATED BY SPACE.

*                OUTPUT-USRSTA = ustat_tab-txt30.

            ENDIF.

      ENDLOOP.

      APPEND OUTPUT.

      CLEAR OUTPUT.

ENDLOOP.

ENDFUNCTION.

原创文章，作者：Maggie-Hunter，如若转载，请注明出处：https://blog.ytso.com/20040.html