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

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,