一个现金流量表的代码,感谢琛（290911233）提供。

* program SOURCE HEADER  : 现金流量表
* Program Name:
* Description:
* Date/Author:
* Table Update:
* Special Logic:
* Include:
*-----------------------------------------------------------------------
*  MODIFICATION LOG : 程序修改更新记录
*-----------------------------------------------------------------------
* ChangeDate Programmer    Request      Description
* ========== ============= ============ ================================
*-----------------------------------------------------------------------
* REPORT NAME : 宣告程序名称及报表格式,
*-----------------------------------------------------------------------
REPORT ZFI003
     NO STANDARD PAGE HEADING
        MESSAGE-ID 00    "所使用的MESSAGE
        LINE-COUNT 800    " 每页报表行数
        LINE-SIZE  180.  " 每页报表宽度
*-----------------------------------------------------------------------

*  TABLE DESCRIPTION : 宣告程序会使用的TABLE
*-----------------------------------------------------------------------
TABLES: BSEG,BKPF,GLT0.
*-----------------------------------------------------------------------
* DATA : 宣告程序所使用的变量及自定型态
INCLUDE OLE2INCL.  " FOR OLE
DATA: EXCEL TYPE OLE2_OBJECT,
      BOOKS TYPE OLE2_OBJECT,
      SHEET TYPE OLE2_OBJECT,
      CELL  TYPE OLE2_OBJECT.
*-----------------------------------------------------------------------
DATA:   BEGIN  OF  ITAB_BKPF OCCURS 0 ,
        BELNR LIKE BKPF-BELNR,         "表头-凭证号
   END  OF  ITAB_BKPF.

DATA:   BEGIN  OF  ITAB_TT OCCURS 0 ,
        BELNR LIKE BSEG-BELNR,         "凭证号
        HKONT LIKE BSEG-HKONT,         "表体-总分类帐目
        RSTGR LIKE BSEG-RSTGR,         "REASON CODE
        SHKZG LIKE BSEG-SHKZG,         "debit and credit
        DMBTR LIKE BSEG-DMBTR,         "本位币金额
   END  OF  ITAB_TT.

DATA:   D01 LIKE BSEG-DMBTR,
        D02 LIKE BSEG-DMBTR,
        D03 LIKE BSEG-DMBTR,
        D04 LIKE BSEG-DMBTR,
        D05 LIKE BSEG-DMBTR,
        D06 LIKE BSEG-DMBTR,
        D07 LIKE BSEG-DMBTR,
        D08 LIKE BSEG-DMBTR,
        D09 LIKE BSEG-DMBTR,
        D10 LIKE BSEG-DMBTR,
        D11 LIKE BSEG-DMBTR,
        D12 LIKE BSEG-DMBTR,
        D13 LIKE BSEG-DMBTR,
        D14 LIKE BSEG-DMBTR,
        D15 LIKE BSEG-DMBTR,
        D16 LIKE BSEG-DMBTR,
        D17 LIKE BSEG-DMBTR,
        D18 LIKE BSEG-DMBTR,
        D19 LIKE BSEG-DMBTR,
        D20 LIKE BSEG-DMBTR,
        D21 LIKE BSEG-DMBTR,
        D2