CONVERSION_EXIT_ALPHA_INPUT 加前导0 & 去掉 前导0

 功能：
给输入的数字编号添加前置 0，以便让查询程序正确处理。多数用在财务科目的查询，对于各种凭证编号和物料号，如果查询无法获得所需结果，也可以考虑尝试用此函数进行转换。

输入参数：
INPUT：不限制类型，必须输入。原始编号。
输出参数：
OUTPUT：日期类型。计算出的结果。

测试结果：
如果 INPUT 输入为纯数字（就是只有 0～9 之间的字符），结果就是前置很多 0 的数字。
如果 INPUT 输入不为纯数字（就是包含 0～9 之外的字符），结果就跟输入值一样。

疑问：
在把值返回给程序中的数据字段时，会自动根据字段长度剔除前置的 0，这是如何做到的。

 

==============================常用的子程序=======================================

 

ABAP 加 前导0  &&&  去掉 前导0 的  Function Module.   !!! 经常会用到 ~~~

只要调用这两个 PERFORM. <XXXXX> 字段就会自动更改~

PERFORM. add_zero CHANGING <XXXXX>.  ” ++ 加前导 0

PERFORM. dele_zero CHANGING <XXXXX>.  ” -- 去掉前导 0

*&---------------------------------------------------------------------*
*&      Form  ADD_ZERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM. add_zero  CHANGING p_in.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_in
    IMPORTING
      output = p_in.

ENDFORM.                    " ADD_ZERO
*&---------------------------------------------------------------------*
*&      Form  DELE_ZERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM. dele_zero  CHANGING p_out.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = p_out
    IMPORTING
      output = p_out.

ENDFORM.                    " DELE_ZERO