SAP snro 序列号获取通用function NUMBER_GET_NEXT

gavin_gxh

已于 2024-03-05 08:46:29 修改

阅读量148

点赞数 2

分类专栏： ABAP SAP 文章标签：其他经验分享

于 2024-03-04 17:11:11 首次发布

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/136457338

版权

ABAP 同时被 2 个专栏收录

234 篇文章 17 订阅

订阅专栏

SAP

97 篇文章 14 订阅

订阅专栏

文章详细描述了在ABAP编程中如何使用`NUMBER_RANGE`相关函数，如`ENQUEUE`,`GET_NEXT`和`DEQUEUE`，以及处理可能遇到的异常，如FOREIGN_LOCK,OBJECT_NOT_FOUND等。

摘要由CSDN通过智能技术生成

FORM GET_SNRO_NO USING PV_OBJECT TYPE NROBJ PV_NR TYPE NRNR
      CHANGING PV_NO.

  CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
    EXPORTING
      OBJECT           = PV_OBJECT
    EXCEPTIONS
      FOREIGN_LOCK     = 1
      OBJECT_NOT_FOUND = 2
      SYSTEM_FAILURE   = 3
      OTHERS           = 4.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR             = PV_NR
      OBJECT                  = PV_OBJECT
      IGNORE_BUFFER           = 'X'
    IMPORTING
      NUMBER                  = PV_NO
    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           = PV_OBJECT
    EXCEPTIONS
      OBJECT_NOT_FOUND = 1
      OTHERS           = 2.
  IF SY-SUBRC <> 0.
  ENDIF.
ENDFORM.