功能:
给输入的数字编号添加前置
0,以便让查询程序正确处理。多数用在财务科目的查询,对于各种凭证编号和物料号,如果查询无法获得所需结果,也可以考虑尝试用此函数进行转换。
输
入参数:
INPUT:不限制类型,必须输入。原始编号。
输出参数:
OUTPUT:日期类型。计算出的结果。
测试
结果:
如果 INPUT 输入为纯数字(就是只有 0~9 之间的字符),结果就是前置很多 0 的数字。
如果 INPUT
输入不为纯数字(就是包含 0~9 之外的字符),结果就跟输入值一样。
疑问:
在把值返回给程序中的数据字段时,会自动根据字段
长度剔除前置的 0,这是如何做到的。
ABAP 加 前导0 &&& 去掉 前导0 的 Function Module. !!! 经常会用到 ~~~
只要调用这两个 PERFORM. <XXXXX> 字段就会自动更改~
PERFORM. add_zero CHANGING
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
utput = 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
utput = p_out.
ENDFORM. " DELE_ZERO
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/16794144/viewspace-671132/ ,如需转载,请注明出处,否则将追究法律责任。