|
原帖由 heart_smile 于 2008-10-21 13:02 发表 ![]()
不用函数,取出该期间的所有凭证,自定义编号。
在网上搜了一下,假脱机的号是保存在TSP01数据库表里的,也可通过以下代码取得已有假脱机号,然后计算出下个假脱机号:
DATA : RSPORQ LIKE TABLE OF RSPORQ WITH HEADER LINE,rqident TYPE RQIDENT.
CALL FUNCTION 'RSPO_FIND_SPOOL_REQUESTS'
EXPORTING
* ALLCLIENTS = ' '
* AUTHORITY = ' '
* DATATYPE = '*'
* HAS_OUTPUT_REQUESTS = '*'
* RQ0NAME = '*'
* RQ1NAME = '*'
* RQ2NAME = '*'
* RQDEST = '*'
* RQIDENT = 0
RQOWNER = SY-UNAME
TABLES
spoolrequests = RSPORQ[]
EXCEPTIONS
NO_PERMISSION = 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.
DESCRIBE TABLE rsporq LINES lines.
READ TABLE rsporq INDEX lines TRANSPORTING RQIDENT.
rqident = rsporq-rqident + 1. "当前的假脱机号 |
|