生成流水号
2017-07-06 本文已影响28人
Mmm_余安
- 首先输入事物代码:SNRO
保存
点击 是.png 保存.png 返回.png Paste_Image.png Paste_Image.png Paste_Image.png Paste_Image.png确定
- 代码调用
CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
EXPORTING
object = 'ZPCOST' "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 = 'ZPCOST'
IMPORTING
number = ls_ytf "定义变量接收流水号
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 = 'ZPCOST'.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.```
上面的代码只修改 OBJECT 后的东西(自己输入SNRO所创建的对象),
和 NUMBER后的(要赋值给某个属性)就可以了。
~~~~~来自同事的分享~~~~