Create new serial number

[Former Member]

Hi,

I am looking for FM which creates new serial number.

Thanks in advanced,

Assaf

[Former Member]

Hi,

I am looking for FM which creates new serial number.

Thanks in advanced,

Assaf

[Former Member]

If you are looking to get the next number from a Serial Number Range object that you have, then you will have to use the NUMBER_GET_NEXT function module and pass the Number Range object.

Regards,

Ravi

Note - Please mark all the helpful answers

[anversha_s]

hi,

chk this sample code.

General - Number Range Generation

 INCLUDE ZRANGENO.

data: wnorange like INRI-NRRANGENR,      "number range,
      wsubobj  like inri-SUBOBJECT,            "sub object
      wdocno(12).

* Steps :-
* 1. Number range Sub Object must be maintain in table ZSGRP
*    You can used transaction SE16 to create a table entries.
* 2. Maintain number range and intervals in transaction code SNUM
*

*

call function 'NUMBER_RANGE_ENQUEUE'
         exporting
               object              = 'ZOWNNO'   "Create with SNUM
         exceptions
               foreign_lock        = 1
               object_not_found    = 2
               system_failure      = 3
               others              = 4.
  if sy-subrc ne 0.
*   message e086 with 'Lock error' sy-subrc.
  endif.

  call function 'NUMBER_GET_NEXT'
         exporting
               nr_range_nr         = wnorange
               object              = 'ZOWNNO'
               subobject           = wsubobj
         importing
               number                  = wdocno  "Number generated by SAP
         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.
  if sy-subrc ne 0.
*   message e086 with 'Number Range' sy-subrc.
  endif.

  call function 'NUMBER_RANGE_DEQUEUE'
    exporting
      object                 = 'ZOWNNO'.

  if sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.

Regards

Anver