ITPub博客

首页 > 数字化转型 > ERP > 自建函数移除数字串左边的0(SAP/R3 ABAP) (转)

自建函数移除数字串左边的0(SAP/R3 ABAP) (转)

原创 ERP 作者:gugu99 时间:2007-12-04 08:35:19 0 删除 编辑
自建函数移除数字串左边的0(SAP/R3 ABAP) (转)[@more@]

         自建函数移除数字串左边的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.
*&--------------------------------------------------------------
*& ABAP4 testing 主程序
*
*&--------------------------------------------------------------
DATA: STR(10) TYPE C.

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命令有两个很有用的用法:

1、SHIFT c LEFT DELETING LEADING c1. "从字串c的左边移去所有的连续字串c1

2、SHIFT c RIGHT DELETING TRAILING c1. "从字串c的右边移去所有的连续字串c1

  由此看来,这篇文件介绍的方法有些走弯路了,那就当做是介绍自建函数的一个教学例子吧。


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-987804/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3122
  • 访问量
    2245048