功能:
给输入的数字编号添加前置 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