自建函数移除数字串左边的0（SAP/R3 ABAP）
作者：冯强 2003.04.19 http://imfrank.126.com
在R/3系统中，如果一个字段内容是数字串(由0~9的数字组成)，放入表字段时，系统将根据字段宽度在前面加0,比如物料11234547957，在matnr字段中被保存为000000011234547957。在开发报表和接口程序时，常常需要将前面的0去除，而ABAP平台并未提供类似的函数。我们可以自己写一个函数，放入函数组中来解决。下面，我将详细介绍操作流程。
首先，用事务SE37创建函数模块，例如函数名为SHIFTZERO，函数组为ZFQTEST。在函数创建后，进入对象组件的“界面”视图，在“更改”栏的“IMPORT参数”中输入STR，建议值输入SPACE。补充说明一下，之所有选“更改”，是因为变量STR除了要带值进入函数，还要返回值，这有点类似于变参的概念。在“文档”视图，可以为STR参数加上文字描述，方便其他开发者的使用。
然后，在SE37初始界面进入函数的原代码修改。详细代码如下：
FUNCTION SHIFTZERO.
*"----------------------------------------------------------------------
*"*"本地接口:
*" CHANGING
*" VALUE(STR) DEFAULT SPACE
*"----------------------------------------------------------------------
IF STR NE SPACE.
DATA: STRTEMP(50) TYPE C, LENGTH TYPE I, LENINFACT TYPE I.
LENGTH = STRLEN( STR ).
STRTEMP = STR. " Because the function para can't be +0(1)
LENINFACT = LENGTH.
DO LENGTH TIMES.
IF STRTEMP+0(1) EQ '0'.
LENINFACT = LENINFACT - 1.
STRTEMP = STRTEMP+1(LENINFACT).
ELSE.
EXIT.
ENDIF.
ENDDO.
STR = STRTEMP.
ENDIF.
ENDFUNCTION.
完成后，你可以使用SE37的“单个测试”功能，看看函数是否运行正确。如果没有问题，将函数激活。
下面，我们用SE38事务进入ABAP编辑器，写一个小程序验证一下我们的函数。以后在其它程序中引用该函数，也是类似的格式。程序清单如下：
REPORT ZTEST1_FQ NO STANDARD PAGE HEADING LINE-SIZE 100 MESSAGE-ID S1.STR = '0001454578'.
CALL FUNCTION 'SHIFTZERO'
CHANGING
STR = STR.
WRITE: / STR.
通过运行程序，你可以看到SHIFTZERO函数完全达到了我要求。最后要注意的是，如果你是在DEV开发系统中写的函数，务必要在测试完成后，在SE09事务中释放它，然后通知Administrator传入PRD生产系统。
补充：ERPHome的ai2ming朋友提到可以用SHIFT str LEFT DELETING LEADING '0'.同样的功能，我测试了一下，完成可行。查看ABAP4平台的F1帮助，发现SHIFT命令有两个很有用的用法：
１、SHIFT c LEFT DELETING LEADING c1. "从字串c的左边移去所有的连续字串c1
２、SHIFT c RIGHT DELETING TRAILING c1. "从字串c的右边移去所有的连续字串c1
由此看来，这篇文件介绍的方法有些走弯路了，那就当做是介绍自建函数的一个教学例子吧。
本文地址：http://com.8s8s.com/it/it29291.htm