【SAP Abap】X-DOC:SNRO - ABAP流水号应用
- 1、定义表(字段域)
- 2、定义流水号
- 3、使用流水号
- 4、测试程序
1、定义表(字段域)
2、定义流水号
Tcode: SNRO/SNUM,
根据以上创建的字段域 YDSNRO,创建对象 YSNRO,并定义流水号范围
编号长度域:就填创建的域,但是一定要先激活。
主内存缓冲:
是指系统为了提高性能而预先取出一些编号放在应用服务器上,当程序取用编号时直接从应用服务器获取,而无需再读取数据库了。
通常,如果对号码的连续性要求不高的情况下可以使用这种方式,而如果是财务凭证等要求连续的编号,则应该把主内存缓冲关闭。
可以在取号时,设置参数 IGNORE_BUFFER = ‘X’ ,来防止跳号,设成’X‘就不会跳号了。
无翻滚间隔:是指如果编号达到最大,是否自动从头开始,勾上就不从头开始,而在获取编号的时候提示出错。
编号范围事务:如果指定这个事务码,就可以不需要通过 SNRO/SNUM 的主屏幕然后输入编号范围对象的名字来维护这个编号范围,而可以输入事务码直接进入它的号码范围维护屏幕。
警告百分比:是指如果编号使用到一定比例,就发出系统警告,提示管理人员增大范围或者进行历史数据归档,避免编号全部用完后影响正常业务,这里填写 95,就是95%的时候提示。
号码范围传输:一般编码都是在生产机中独立设置的,若需要传输本次编号范围的维护,需要在初始菜单中执行“范围”|“传输”命令,通过手工操作来生成传输请求号码。
3、使用流水号
在程序中使用流水号,需要用到以下三个函数
FORM get_no CHANGING p_no.
CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
EXPORTING
object = 'YSNRO'
EXCEPTIONS
foreign_lock = 1
object_not_found = 2
system_failure = 3
OTHERS = 4.
IF sy-subrc = 0. "如果号码范围存在则加锁
CALL FUNCTION 'NUMBER_GET_NEXT' "将号码累加,获得下一个流水号
EXPORTING
nr_range_nr = '01'
object = 'YSNRO'
ignore_buffer = 'X'
IMPORTING
number = p_no
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.
ELSE.
CALL FUNCTION 'NUMBER_RANGE_DEQUEUE' "解锁
EXPORTING
object = 'YSNRO'
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
ENDIF.
ENDIF.
ENDFORM.
4、测试程序
REPORT yz_demo_xlevon_snro.
PERFORM add_data.
PERFORM add_data.
PERFORM add_data.
COMMIT WORK.
SELECT * FROM ytxlevon_snro INTO TABLE @DATA(lt_xlevon).
cl_demo_output=>display( lt_xlevon ).
* 增加表记录
FORM add_data.
DATA: ls_xlevon TYPE ytxlevon_snro.
DATA: lv_no TYPE ytxlevon_snro-ysnro.
PERFORM get_no CHANGING lv_no.
ls_xlevon-ysnro = lv_no.
MODIFY ytxlevon_snro FROM ls_xlevon.
ENDFORM.
...
原创文章,转载请注明来源-X档案