ABAP:VF01 创建开票凭证BAPI

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.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值