码迷,mamicode.com
首页 > 其他好文 > 详细

WBS、项目内码转换例程

时间:2015-07-30 21:31:53      阅读:269      评论:0      收藏:0      [点我收藏+]

标签: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.

版权声明:本文为博主原创文章,未经博主允许不得转载。

WBS、项目内码转换例程

标签:wbs项目内码转换例程

原文地址:http://blog.csdn.net/champaignwolf/article/details/47155537

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!