使用程序生成财务预制凭证的方法（二）

最新推荐文章于 2024-06-03 19:40:47 发布

阿土sap

最新推荐文章于 2024-06-03 19:40:47 发布

阅读量1.8k

点赞数

分类专栏： SAP

SAP 专栏收录该内容

181 篇文章

订阅专栏

本文档展示了如何使用SAP标准交易FB01创建凭证的示例代码。通过定义数据类型并初始化凭证头和凭证行项目的具体字段值，最终调用'PRELIMINARY_POSTING_FB01'函数来完成凭证的初步过账。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

REPORT  ztestsr5.

DATA:wa_text_update  TYPE boole-boole,
        wa_text_item_update TYPE boole-boole,
        wa_i_uf05a   TYPE uf05a,
        wa_i_xcmpl  TYPE xfeld,
        wa_fs006_fb01 TYPE fs006,
        wa_i_tcode TYPE tcode,
        wa_i_pargb  TYPE pargb,
        wa_i_tcode_int TYPE  tcode,
        it_bkpf  LIKE bkpf OCCURS 0 WITH HEADER LINE,
        it_bseg LIKE bseg OCCURS 0 WITH HEADER LINE,
        it_bsec LIKE bsec OCCURS 0 WITH HEADER LINE,
        it_bset LIKE bset OCCURS 0 WITH HEADER LINE,
*        it_bsez LIKE bsez OCCURS 0 WITH HEADER LINE,
         it_bkorm LIKE bkorm OCCURS 0 WITH HEADER LINE,
         it_thead LIKE thead OCCURS 0 WITH HEADER LINE,
          it_splitab LIKE acsplt OCCURS 0 WITH HEADER LINE,
           it_spltwt LIKE with_itemx OCCURS 0 WITH HEADER LINE,
        it_bsez LIKE bsez OCCURS 0 WITH HEADER LINE.

CLEAR:wa_text_update,wa_text_item_update,wa_i_uf05a,
        wa_i_xcmpl,wa_fs006_fb01,wa_i_tcode ,wa_i_pargb,wa_i_tcode_int,
        it_bkpf,it_bseg,it_bsez.
REFRESH: it_bkpf[],it_bseg[],it_bsez[].

wa_i_tcode =  'FBR2'.
wa_i_tcode_int =  'FBR2'.

it_bkpf-bukrs = '1000'.
it_bkpf-gjahr = '2012'.
it_bkpf-blart = 'DR'.
it_bkpf-bldat = sy-datum.
it_bkpf-budat = sy-datum.
it_bkpf-monat = '02'.
it_bkpf-usnam = sy-uname.
it_bkpf-tcode = wa_i_tcode.
it_bkpf-waers = 'CNY'.
it_bkpf-glvor = 'RFBU'.
it_bkpf-fikrs  = '1000'.
it_bkpf-hwaer = 'CNY'.

APPEND it_bkpf.

it_bseg-bukrs = '1000'.
it_bseg-gjahr = '2012'.
it_bseg-buzei = '001'.
it_bseg-bschl = '40'.
it_bseg-koart = 'S'.
it_bseg-shkzg = 'S'.
it_bseg-dmbtr = '1'.
it_bseg-wrbtr = '1'.
it_bseg-pswbt = '1'.
it_bseg-pswsl = ' CNY'.
it_bseg-vorgn = 'RFBU'.
it_bseg-kokrs = '1000'.
it_bseg-kostl = 'ZB0100'.
it_bseg-xkres = 'X'.
it_bseg-hkont = '0050010310'.
it_bseg-gvtyp = 'X'.
it_bseg-kunnr = ''.
it_bseg-prctr = 'ZB00'.
it_bseg-hwmet = 'X'.
it_bseg-fipos = '50010310'.
it_bseg-fistl = 'ZB0100'.
it_bseg-fkber = '0300'.
*it_bseg-fkber_long = '0300'.
it_bseg-segment = 'ZB00'.
APPEND it_bseg.

it_bseg-bukrs = '1000'.
it_bseg-gjahr = '2012'.
it_bseg-buzei = '002'.
it_bseg-bschl = '11'.
it_bseg-koart = 'D'.
it_bseg-shkzg = 'H'.
it_bseg-wrbtr = '1'.
it_bseg-dmbtr = '1'.
it_bseg-pswbt = '1'.
it_bseg-pswsl = ' CNY'.
IT_BSEG-VORGN = 'RFBU'.
IT_BSEG-FDGRP = 'G5'.
it_bseg-kokrs = '1000'.
*it_bseg-kostl = 'ZB0100'.
it_bseg-XUMSW = 'X'.
it_bseg-XHRES = 'X'.
it_bseg-XKRES = 'X'.
it_bseg-XOPVW = 'X'.
it_bseg-hkont = '0021810211'.
IT_BSEG-SAKNR =  '0021810211'.
it_bseg-kunnr = '0020000035'.
it_bseg-xbilk = 'X'.
it_bseg-prctr = 'ZB00'.
it_bseg-fipos = '0050010310'.
it_bseg-fistl = 'ZB0100'.
it_bseg-segment = 'ZB00'.
APPEND it_bseg.

it_bsez-kobez = '促销活动费'.
APPEND it_bsez.
it_bsez-kobez = '异业联盟'.
it_bsez-zterm = 'Z001'.
APPEND it_bsez.

CALL FUNCTION 'PRELIMINARY_POSTING_FB01'
  EXPORTING
    i_tcode     = wa_i_tcode
    i_tcode_int = wa_i_tcode_int
  TABLES
    t_bkpf      = it_bkpf
    t_bseg      = it_bseg
    t_bsec      = it_bsec
    t_bset      = it_bset
    t_bkorm     = it_bkorm
    t_thead     = it_thead
    t_splttab   = it_splitab
    t_spltwt    = it_spltwt
    t_bsez      = it_bsez.

*        it_bset LIKE bset OCCURS 0 WITH HEADER LINE,
**        it_bsez LIKE bsez OCCURS 0 WITH HEADER LINE,
*         it_bkorm LIKE bkorm OCCURS 0 WITH HEADER LINE,
*         it_thead LIKE thead OCCURS 0 WITH HEADER LINE,
*          it_splitab LIKE acsplt OCCURS 0 WITH HEADER LINE,
*           it_spltwt LIKE with_itemx OCCURS 0 WITH HEADER LINE,