ABAP中使用函数Number_Get_Next产生流水号

来源：互联网发布：掌上公交软件下载编辑：程序博客网时间：2024/05/18 06:36

1. 系统中设定流水号

使用T-CodeSNRO来创建一个流水号标识对象，输入Object Name 'ZQMNUM'，然后单击创建。如下图所示：

然后输入Shorttext, Long text, Number length domain在写程序的时候应该会另外创建，这里测试就使用料号的Domain MATNR来做,其他的参数使用默认值就可以了，然后保存输入的资料。

系统提示创建成功，这里还需要维护一个子对象,单击“号码范围”。单击“间隔”，维护具体的流水号规则。

然后保存，流水号设定完成，接下来就是程序中如何取得这些流水号了。

2. 程序中取得流水号,

CALL FUNCTION 'NUMBER_GET_NEXT'
          EXPORTING
            nr_range_nr             = '01'
            object                  = 'ZQMNUM'
          IMPORTING
            number                  = wk_number
          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.

0 0