ABAP 自动生成流水号

按順序自动生成一组编号

T-CODE : SNRO

FUNCTION: NUMBER_GET_NEXT

一，创建编号范围对象

  1. eg：ZGJX_001

2. 设置编号范围，编号长度域指 编号类型 ，%警告指范围使用多少时弹出警告此处是 95%

 

3. “编号范围事务”：可以指定一个事务码，通过执行此事务码可以进入该编号对象的维护页面

4.设置间隔

二、调用函数

FORM SET_RENO .

  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR                   = '01' "起始编号
      OBJECT                        = 'ZGJX_001'  "SNRO创建
*     QUANTITY                      = '1'
*     SUBOBJECT                     = ' '
*     TOYEAR                        = '0000'
*     IGNORE_BUFFER                 = ' '
   IMPORTING
     NUMBER                        = GV_NUMBER " 不特定类型
*     QUANTITY                     =
*     RETURNCODE                    =
   EXCEPTIONS
     INTERVAL_NOT_FOUND            = 1
     NUMBER_RANGE_NOT_INTERN       = 2
     OBJECT_NOT_FOUND              = 3
     QUANTITY_IS_0                 = 4
     QUANTITY_IS_NOT_1             = 5
     INTERVAL_OVERFLOW             = 6
     BUFFER_OVERFLOW               = 7
     OTHERS                        = 8
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ELSE.
   CLEAR GT_RESUME .
   READ TABLE GT_RESUME INDEX 1 .
   GS_REIN-RE_NO = GV_NUMBER.
   GS_REIN-SNO   = GT_RESUME-SNO.
   GS_REIN-NAME  = GT_RESUME-NAME.
   APPEND GS_REIN TO GT_REIN .
   MODIFY ZSTU_RESUME FROM TABLE GT_REIN .
  ENDIF.

ENDFORM.