资产负债表

*&---------------------------------------------------------------------*
*& Report  ZFI001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZFI001.

TABLES : faglflext,skat.

TYPE-POOLS ole2 .
DATA: v_excel TYPE ole2_object,
      v_sheet TYPE ole2_object,
      v_book  TYPE ole2_object,
      v_cell  TYPE ole2_object.
DATA: v_sheet_number TYPE i.

INCLUDE zinl_xls.

DATA: c_butxt LIKE t001-butxt,
      c_gtext LIKE tgsbt-gtext,
      c_ktext_l(50),
      c_STCEG(100),
      c_ktext_g LIKE cepct-ktext.

DATA : BEGIN OF i_tab OCCURS 0,
        ryear LIKE faglflext-ryear ,    "会计年度
        drcrk LIKE faglflext-drcrk ,    "借方/贷方标识

        racct LIKE faglflext-racct ,    "会计科目
        rbukrs LIKE faglflext-rbukrs ,    "公司代码
        RLDNR like faglflext-RLDNR,       "分类账
        prctr LIKE faglflext-prctr ,    "利润中心
        rfarea LIKE faglflext-rfarea ,    "功能范围
        hslvt LIKE faglflext-hslvt ,    "年初结转余额
        hsl01 LIKE faglflext-hsl01 ,                        "本币期间1
        hsl02 LIKE faglflext-hsl02 ,                        "本币期间2
        hsl03 LIKE faglflext-hsl03 ,                        "本币期间3
        hsl04 LIKE faglflext-hsl04 ,                        "本币期间4
        hsl05 LIKE faglflext-hsl05 ,                        "本币期间5
        hsl06 LIKE faglflext-hsl06 ,                        "本币期间6
        hsl07 LIKE faglflext-hsl07 ,                        "本币期间7
        hsl08 LIKE faglflext-hsl08 ,                        "本币期间8
        hsl09 LIKE faglflext-hsl09 ,                        "本币期间9
        hsl10 LIKE faglflext-hsl10 ,                        "本币期间10
        hsl11 LIKE faglflext-hsl11 ,                        "本币期间11
        hsl12 LIKE faglflext-hsl12 ,                        "本币期间12
        hsl13 LIKE faglflext-hsl13 ,                        "本币期间13
        hsl14 LIKE faglflext-hsl14 ,                        "本币期间14
        hsl15 LIKE faglflext-hsl15 ,                        "本币期间15
        hsl16 LIKE faglflext-hsl16 ,                        "本币期间16
        zqmye LIKE faglflext-hsl16 ,
       END OF i_tab.

DATA : zqj(3) TYPE n VALUE '0' .

DATA : BEGIN OF i_bbgs OCCURS 0,
         term1(6),
         nczcje LIKE faglflext-hslvt,