• 如何创建流水号


    1.使用T-code:SNRO创建一个流水号标识对象

    输入Tcode SNRO 后进入如上图所示的Number Range Object Maintenance界面,输入Object名称,点击新建。

    进入创建界面,如上图所示,输入Short text、Long text和Number length domain;若每新年度开始时编号也从头开始,则可勾选To-year flag;若编号达到最大也不自动重新开始,则可勾选No interval rolling,输入Warning % 95,表示流水后用到95%是会发出警告。点击保存。

    点击Number Range。

    点击Change Intervals.

    点击Insert Interval。

    在Insert Interval界面输入New Interval的No. 、From number、To number后点击Insert。

    这样流水号就设定完成。

    2.如何在程序中取得流水号

     1 REPORT  ZTEST.
     2 DATA: L_SEQNO TYPE C LENGTH 4.
     3 CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
     4   EXPORTING
     5     OBJECT                 = 'ZTEST01'
     6   EXCEPTIONS
     7     FOREIGN_LOCK           = 1
     8     OBJECT_NOT_FOUND       = 2
     9     SYSTEM_FAILURE         = 3
    10     OTHERS                 = 4
    11           .
    12 IF SY-SUBRC <> 0.
    13   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    14           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    15 ENDIF.
    16 
    17 CALL FUNCTION 'NUMBER_GET_NEXT'
    18   EXPORTING
    19     NR_RANGE_NR                   = '01'
    20     OBJECT                        = 'ZTEST01'
    21 *   QUANTITY                      = '1'
    22 *   SUBOBJECT                     = ' '
    23 *   TOYEAR                        = '0000'
    24 *   IGNORE_BUFFER                 = ' '
    25   IMPORTING
    26     NUMBER                        = L_SEQNO
    27 *   QUANTITY                      =
    28 *   RETURNCODE                    =
    29  EXCEPTIONS
    30    INTERVAL_NOT_FOUND            = 1
    31    NUMBER_RANGE_NOT_INTERN       = 2
    32    OBJECT_NOT_FOUND              = 3
    33    QUANTITY_IS_0                 = 4
    34    QUANTITY_IS_NOT_1             = 5
    35    INTERVAL_OVERFLOW             = 6
    36    BUFFER_OVERFLOW               = 7
    37    OTHERS                        = 8
    38           .
    39 IF SY-SUBRC <> 0.
    40   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    41           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    42 ENDIF.
    43 
    44 CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
    45   EXPORTING
    46     OBJECT                 = 'ZTEST01'
    47   EXCEPTIONS
    48     OBJECT_NOT_FOUND       = 1
    49     OTHERS                 = 2
    50           .
    51 IF SY-SUBRC <> 0.
    52   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    53           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    54 ENDIF.
    55 
    56 WRITE: L_SEQNO.
  • 相关阅读:
    Javascript 箭头函数2
    熊二周刊--20160911
    递归
    函数
    Python基本的数据类型内置方法(2)
    python 基础知识条件和循环
    Python初识_基本的数据类型
    计算机网络基础知识
    Python初识
    计算机基础-操作系统
  • 原文地址:https://www.cnblogs.com/foam-h/p/5458306.html
Copyright © 2020-2023  润新知