赛跑网-通过函数得到流水号

SAPOK_ABAP · 发表于 2012-5-15 16:12:07

开发中经常会使用不重复的流水号，比如各种单据单号。这类流水号可以使用一个函数得到。在使用这个函数之前要先建立编码范围对象。具体是使用TCODE SNRO 或 SNUN 创建 Z_TEST这个编码范围对象，并要通过间隔按钮为Z_TEST指定最大和最小值。
下面共享一段代码，调试的前提是先建议编码范围对象
***创建流水号对象时指定了编号长度域为 num10,所以定义变量接收
DATA num(10) TYPE n.

START-OF-SELECTION.

***产生流水号之前先锁定

游客，如果您要查看本帖隐藏内容请回复

IF sy-subrc <> 0 .
MESSAGE '锁定中，请稍后创建' TYPE 'E'  DISPLAY LIKE 'S'.
  ELSE.
**得到连续&不重复的流水号
CALL FUNCTION 'NUMBER_GET_NEXT'
   EXPORTING
      nr_range_nr = '12'    "12为流水号的前两位数值，
      object    = 'Z_TEST'  "Z_TEST为使用TCODE:SNRO或SNUM创建的编码范围对象
   IMPORTING
      number    = num.    "用于接收产生的流水号
IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
  ENDIF.

***流水号产生之后解除锁定
  CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
EXPORTING
   object = 'Z_TEST'.

***另外还有一个函数可以得到随机数

游客，如果您要查看本帖隐藏内容请回复

*函数组：F052（随机值的生成）
*F052：随机值的生成，可以生成各种随机数。
*RANDOM_AMOUNT：带货币类型的金额
*RANDOM_C：字符
*RANDOM_C_BY_SET：指定范围内的字符
*RANDOM_F8：浮点数
*RANDOM_I2：2字节整数
*RANDOM_I4：4字节整数
*RANDOM_INITIALIZE：初始化随机种子
*RANDOM_P：压缩数
*RANDOM_TABLE_ENTRY：表条目

WRITE sum.

xingfan234 · 发表于 2012-5-15 20:53:38

嗯，先看看先。。。。。

thp20000 · 发表于 2012-5-18 22:53:58

谢谢李老师分享。

thp20000 · 发表于 2012-5-18 22:56:53

老师上课讲讲，没看懂。

SAPOK_ABAP · 发表于 2012-5-18 23:49:57

thp20000 发表于 2012-5-18 22:56
老师上课讲讲，没看懂。

呵呵这部分还要创建编号范围对象下次上课提一下

无言草 · 发表于 2012-6-25 13:43:53

abap在奋斗中。。。。

semokim · 发表于 2012-6-27 20:24:56

通过函数得到流水号

yangjinping1234 · 发表于 2012-7-10 23:24:55

dew · 发表于 2013-1-25 13:50:02

学习了

dorian110 · 发表于 2013-2-2 23:03:59

试试

		自动登录	找回密码
密码			注册

赛跑网-通过函数得到流水号

最近访客