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.