如何使用自定义的 number range objects

最新推荐文章于 2025-08-16 13:06:39 发布

最新推荐文章于 2025-08-16 13:06:39 发布 · 69 阅读

本文介绍了一个ABAP程序示例，展示了如何使用OYSN创建编号范围对象，并通过调用函数模块进行编号的获取与管理。涉及的主要步骤包括：创建编号范围对象、获取下一个编号、释放编号等。

1、Create number range object using OYSN.

2、Then call the following function modules.

FORM get_next_id CHANGING p_discrep.

DATA: last_id LIKE zrecaudit-discrep,
quant LIKE inri-quantity, "dummy
code LIKE inri-returncode. "returncode

CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
       EXPORTING
            object           = 'ZRECAUDIT'
       EXCEPTIONS
            foreign_lock     = 1
            object_not_found = 2
            system_failure   = 3
            OTHERS           = 4.

IF sy-subrc = 0.

    CALL FUNCTION 'NUMBER_GET_NEXT'
         EXPORTING
              nr_range_nr             = '01'
              object                  = 'ZRECAUDIT'
         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.

    CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
         EXPORTING
              object           = 'ZRECAUDIT'
         EXCEPTIONS
              object_not_found = 1
              OTHERS           = 2.

ENDIF.

ENDFORM. " get_next_id