WBS、项目内码转换例程

FUNCTION ZFI_GET_WBS_INFO.

*"----------------------------------------------------------------------

*"*"Local interface:

*" IMPORTING

*" VALUE(PSPID) TYPE PROJ-PSPID OPTIONAL

*" TABLES

*" OUTPUT STRUCTURE ZFI_WBS_INFO OPTIONAL

*"----------------------------------------------------------------------

TYPES:BEGIN OF TY_ITAB,

PSPNR TYPE PRPS-PSPNR,

POST1 TYPE PRPS-POST1,

END OF TY_ITAB.

DATA:ITAB TYPE TABLE OF TY_ITAB WITH HEADER LINE,

m_PSPNR TYPE PROJ-PSPNR.

*删除前面的0

SHIFT PSPID LEFT DELETING LEADING '0'.

*转换成内码

CALL FUNCTION 'CONVERSION_EXIT_ABPRJ_INPUT'

EXPORTING

INPUT = PSPID

IMPORTING

OUTPUT = m_PSPNR.

*从PRPS中取值

SELECT PSPNR

POST1

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM PRPS

WHERE PSPHI = m_PSPNR.

LOOP AT ITAB.

CALL FUNCTION 'CONVERSION_EXIT_KONPR_OUTPUT'

EXPORTING

INPUT = ITAB-PSPNR

IMPORTING

OUTPUT = OUTPUT-POSID.

OUTPUT-POST1 = ITAB-POST1.

APPEND OUTPUT.

CLEAR OUTPUT.

ENDLOOP.

ENDFUNCTION.