【转http://blog.csdn.net/wengyupeng/article/details/8513527】

1.通用Tcode:SNRO

2.配置

图1.

   位置1.这里对应第二张图（图2）上的 Company code 。 不写的话，图2就没有Company code

   位置2.编号范围的长度

   位置3.编号剩余10% 警告

   位置4.勾上的话，图2 会自动出现一个year列。 每一个新年，从新开始编号

   位置5.不勾的话，编号用完从头开始

图2

  间隔:维护编号范围

  状态：也就是当前编号

图3

编号范围状态：就是当前编号

3.代码

REPORT ZTEST_WENG1.
data lv_id  type num10.

start-OF-SELECTION.
  perform get_next_id.




FORM get_next_id .
  DATA:  last_id  type BUKRS,
         quant   LIKE inri-quantity,   "dummy
         code    LIKE inri-returncode. "returncode

“NOCO  是对象名
  CALL FUNCTION ‘NUMBER_RANGE_ENQUEUE‘
    EXPORTING
      object           = ‘NOCO‘
    EXCEPTIONS
      foreign_lock     = 1
      object_not_found = 2
      system_failure   = 3
      OTHERS           = 4.
  IF sy-subrc = 0.
    do 100 times.
      CALL FUNCTION ‘NUMBER_GET_NEXT‘
        EXPORTING
          nr_range_nr             = ‘01‘
          object                  = ‘NOCO‘
          SUBOBJECT               = ‘0000000001‘
        IMPORTING
          number                  = last_id
          quantity                = quant
          returncode              = code
        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.
      LV_ID  =  last_id.
      write  LV_ID.
    enddo.
    CALL FUNCTION ‘NUMBER_RANGE_DEQUEUE‘
      EXPORTING
        object           = ‘NOCO‘
      EXCEPTIONS
        object_not_found = 1
        OTHERS           = 2.
  ENDIF.
ENDFORM.  

SAP号码段