自动流水号

1、  事务代码SNRO创建编号对象名称

2、调用函数

CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'   "开锁
    EXPORTING
      object           = 'ZHR_001'
    EXCEPTIONS
      foreign_lock     = 1
      object_not_found = 2
      system_failure   = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

CALL FUNCTION 'NUMBER_GET_NEXT'     "生成流水号
    EXPORTING
      nr_range_nr                   = '01'
      object                        = 'ZHR_001'
     quantity                      = '1'
     subobject                     = ' '
     toyear                        = '0000'
     ignore_buffer                 = 'X'
   IMPORTING
     number                        = p_zzwlx  ”流水号
*       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.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'          "上锁
    EXPORTING
      object                 =  'ZHR_001'
   EXCEPTIONS
     object_not_found       = 1
     OTHERS                 = 2
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.