CONVERSION_EXIT_ABPRJ_INPUT(WBS内码转换)
2008-08-23 23:10
706 查看
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.
*"----------------------------------------------------------------------
*"*"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.
相关文章推荐
- ABAP 物料号前导零函数 CONVERSION_EXIT_MATN1_INPUT
- CONVERSION_EXIT_ALPHA_INPUT
- 'CONVERSION_EXIT_ATINN_INPUT' 什么用?
- SAP系统中的内码和外码转换 (WBS号)
- CONVERSION_EXIT_ALPHA_INPUT
- 'CONVERSION_EXIT_CUNIT_OUTPUT'(物料单位转换)
- function moudle:CONVERSION_EXIT_INVDT_INPUT
- 给字段自动加前导0(CONVERSION_EXIT_ALPHA_INPUT)
- CONVERSION_EXIT_ALPHA_INPUT和CONVERSION_EXIT_ALPHA_OUTPUT 函数说明
- How to use the CONVERSION_EXIT_PARVW_INPUT and CONVERSION_EXIT_PARVW_OUTPUT
- WBS、项目内码转换例程
- CONVERSION_EXIT_ALPHA_INPUT
- CONVERSION_EXIT_ALPHA_INPUT
- 如何优化因将B-tree索引转换成位图索引(BITMAP CONVERSION )而导致SQL执行很慢
- 内码转换技术
- 汉字编码与编程相关问题总结:ASCII、机内码、区位码、国标码、Unicode码是如何转换的
- 用c语言进行内码转换
- 中文内码转换简易算法
- ZINVAILD_CHAR_CONVERSION_EXIT
- 金额大小写转换和input失去焦点触发事件