请教自动生成流水单号的函数

坏牧羊人

原帖由 blueonline84 于 2008-8-7 10:12 发表
NUMBER_GET_NEXT

ryq0000

原帖由 VagrantLee 于 2008-8-7 10:32 发表

感觉有点复杂，自己写个，用SQL来捞取
快且简单！！

这种方法在SAP中是不提倡的.

VagrantLee

原帖由 ryq0000 于 2008-8-7 10:57 发表

这种方法在SAP中是不提倡的.

自己开发的Table，跟标准的没多大关系哦！
能实现就好了！
呵呵。。

KAKA282278535

REPORT  Y1001 LINE-COUNT 10 NO STANDARD PAGE HEADING.
DATA W_MATNR TYPE MATNR.

START-OF-SELECTION.

  CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
    EXPORTING
      OBJECT           = 'ZTESTNUMB'   "Create 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                  = 'ZTESTNUMB'
    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 = 'ZTESTNUMB'.

  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  WRITE:/ 'Seq:',W_MATNR.

robinho_lu

原帖由 KAKA282278535 于 2008-8-8 09:53 发表
REPORT  Y1001 LINE-COUNT 10 NO STANDARD PAGE HEADING.
DATA W_MATNR TYPE MATNR.

START-OF-SELECTION.

  CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
    EXPORTING
      OBJECT           = 'ZTESTNUMB'   "Create 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                  = 'ZTESTNUMB'
    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 = 'ZTESTNUMB'.

  IF SY-SUBRC  0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  WRITE:/ 'Seq:',W_MATNR.

黄金马甲

'ZTESTNUMB'   "Create with SNUM
就是这个了

sid056

原帖由 azqf 于 2008-8-7 10:26 发表
传个文档

老兄借用我的文档，要跟我说一声哦

hi_lisa

不错 网上找到操作步骤了