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.