利用Number_Get_Next产生流水号(採番)

   今天做了一个采购订单的採番，“採番”是日语词，通俗的讲就是按自己定义的规则生成流水号 。下面分享一下产生流水号的步骤：      

                  1. 系统中设定流水号

使用T-Code SNRO来创建一个流水号标识对象，

输入Object ZLC_001，然后单击创建。

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

系统提示创建成功，这里还需要维护一个子对象,单击“号码范围”。

单击“间隔”，维护具体的流水号规则。

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

 

2. 程序中取得流水号

         REPORT  ZLC_NUMBER_RANGE.

 

         DATA W_MATNR TYPE MATNR.

 

         START-OF-SELECTION.

 

        CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'

         EXPORTING

           OBJECT           = 'ZLC_001' "Ceate with SNUM

         EXCEPTIONS

           FOREIGN_LOCK     = 1

           OBJECT_NOT_FOUND = 2

           SYSTEM_FAILURE   = 3

           OTHERS           = 4.

 

       CALL FUNCTION 'NUMBER_GET_NEXT'

         EXPORTING

           NR_RANGE_NR             = '00'

           OBJECT                  = 'ZLC_001'

         IMPORTING

           NUMBER                  = W_MATNR

         EXCEPTIONS

           INTERVAL_NOT_FOUND      = 1

           NUMBER_RANGE_NOT_INTERN = 2

           OBJECT_NOT_FOUND        = 3

           QUANTITY_IS_0           = 4

           QUANTITY_IS_NOT_1       = 5

           INTERNAL_OVERFLOW       = 6

           OTHERS                  = 7.

 

       CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'

          EXPORTING

            OBJECT = 'ZLC_001'.

 

      IF SY-SUBRC <> 0.

          MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

      ENDIF.