- 首先輸入事物代碼:SNRO
Paste_Image.png
Paste_Image.png
保存
點擊 是.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所創(chuàng)建的對象)镀虐,
和 NUMBER后的(要賦值給某個屬性)就可以了模暗。
~~~~~來自同事的分享~~~~