ITPub博客

首页 > Linux操作系统 > Linux操作系统 > CONVERSION_EXIT_ALPHA_INPUT 加前导0 和去掉 前导0

CONVERSION_EXIT_ALPHA_INPUT 加前导0 和去掉 前导0

原创 Linux操作系统 作者:weilish 时间:2010-08-17 11:34:16 0 删除 编辑

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

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

测试 结果:
如果 INPUT 输入为纯数字(就是只有 0~9 之间的字符),结果就是前置很多 0 的数字。
如果 INPUT 输入不为纯数字(就是包含 0~9 之外的字符),结果就跟输入值一样。

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

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

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

PERFORM. add_zero CHANGING .  ” ++ 加前导 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
      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/ ,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-11-20

  • 博文量
    66
  • 访问量
    150458