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

最新推荐文章于 2021-02-01 11:33:08 发布

JackWu

最新推荐文章于 2021-02-01 11:33:08 发布

阅读量5.7k

点赞数

分类专栏： 01 SAP FI 10 SAP ABAP 文章标签： excel table parameters object 报表 books

本文链接：https://blog.csdn.net/sap_jack/article/details/1452792

版权

这是一个使用SAP ABAP编程语言编写的程序，用于从数据库表中读取数据并生成Excel现金流量表。程序涉及表格操作、参数输入、数据筛选、内部表处理和OLE2接口来与Excel交互。

摘要由CSDN通过智能技术生成

* 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