自动流水号

86 阅读 0 评论 57 点赞

我是靠谱客的博主还单身鸡翅，最近开发中收集的这篇文章主要介绍自动流水号，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

1、事务代码SNRO创建编号对象名称

2、调用函数

CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
"开锁
EXPORTING
object
= 'ZHR_001'
EXCEPTIONS
foreign_lock
= 1
object_not_found = 2
system_failure
= 3
OTHERS
= 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'NUMBER_GET_NEXT'
"生成流水号
EXPORTING
nr_range_nr
= '01'
object
= 'ZHR_001'
quantity
= '1'
subobject
= ' '
toyear
= '0000'
ignore_buffer
= 'X'
IMPORTING
number
= p_zzwlx
”流水号
*
QUANTITY
=
*
RETURNCODE
=
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
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
"上锁
EXPORTING
object
=
'ZHR_001'
EXCEPTIONS
object_not_found
= 1
OTHERS
= 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.