REPORT ztest005.
DATA: vbsk_i LIKE vbsk.
DATA: xkomfk LIKE komfk OCCURS 0 WITH HEADER LINE,
xkomv LIKE komv OCCURS 0 WITH HEADER LINE,
xthead LIKE theadvb OCCURS 0 WITH HEADER LINE,
xvbfs LIKE vbfs OCCURS 0 WITH HEADER LINE,
xvbpa LIKE vbpavb OCCURS 0 WITH HEADER LINE,
xvbrk LIKE vbrkvb OCCURS 0 WITH HEADER LINE,
xvbrp LIKE vbrpvb OCCURS 0 WITH HEADER LINE,
xvbss LIKE vbss OCCURS 0 WITH HEADER LINE.
vbsk_i-smart = 'F'.
xkomfk-vbeln = '0070002595'. " 销售凭证号
xkomfk-vbtyp = 'J'.
APPEND xkomfk.
CALL FUNCTION 'RV_INVOICE_CREATE'
EXPORTING
* DELIVERY_DATE = 0
* INVOICE_DATE = 0
* INVOICE_TYPE = ' '
* PRICING_DATE = 0
vbsk_i = vbsk_i
with_posting = 'C'
TABLES
xkomfk = xkomfk
xkomv = xkomv
xthead = xthead
xvbfs = xvbfs
xvbpa = xvbpa
xvbrk = xvbrk
xvbrp = xvbrp
xvbss = xvbss.
IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
WAIT UP TO 1 SECONDS.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
.
RETURN.
ENDIF.
ABAP:VF01 创建开票凭证BAPI
最新推荐文章于 2025-03-14 17:41:10 发布