ZFIRP027-01

*&---------------------------------------------------------------------*
*& Report ZMMRP048
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZFIRP027.

INCLUDE ZFIRP027TOP.
INCLUDE ZFIRP027ALV.


*执行按钮点击事件
START-OF-SELECTION.
  PERFORM FUNC_ITAB_GET_DATA."获取数据
  PERFORM FUNC_ALV_SHOW.     "显示ALV

*&---------------------------------------------------------------------*
*& 包含               ZFIRP027TOP
*&---------------------------------------------------------------------*
TABLES: FAGLFLEXT.

DATA: BEGIN OF COMM_WTAB_001,
        RBUKRS  LIKE FAGLFLEXT-RBUKRS,           "公司
        RYEAR   LIKE FAGLFLEXT-RYEAR,            "年度
        RACCT   LIKE FAGLFLEXT-RACCT,            "科目代码
        TXT50   LIKE SKAT-TXT50,                 "科目长文本
        DRCRK   LIKE FAGLFLEXT-DRCRK,            "借贷方
        RTCUR   LIKE FAGLFLEXT-RTCUR,            "交易货币

        ZTMP001 TYPE STRING,            "根据期初余额交易货币判断  期初方向
        ZTMP002 TYPE FAGLFLEXT-TSLVT,            "期初余额交易货币
        ZTMP003 TYPE FAGLFLEXT-TSLVT,            "期初余额本币
        ZTMP004 TYPE STRING,            "本币
        ZTMP005 TYPE FAGLFLEXT-TSLVT,            "计算  期间借方交易货币
        ZTMP006 TYPE FAGLFLEXT-TSLVT,            "计算  期间借方本币
        ZTMP007 TYPE FAGLFLEXT-TSLVT,            "计算  期间贷方交易货币
        ZTMP008 TYPE FAGLFLEXT-TSLVT,            "计算  期间贷方本币
        ZTMP009 TYPE STRING,            "根据期间余额交易货币判断  期间余额方向
        ZTMP010 TYPE FAGLFLEXT-TSLVT,            "计算  期间余额交易货币
        ZTMP011 TYPE FAGLFLEXT-TSLVT,            "计算  期间余额本币
        ZTMP012 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生借方交易货币
        ZTMP013 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生借方本币
        ZTMP014 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生贷方交易货币
        ZTMP015 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生贷方本币
        ZTMP016 TYPE FAGLFLEXT-TSLVT,            "计算  期末余额交易货币
        ZTMP017 TYPE FAGLFLEXT-TSLVT,            "计算  期末余额本币

        TSLVT   LIKE FAGLFLEXT-TSLVT,
        TSL01   LIKE FAGLFLEXT-TSL01,
        TSL02   LIKE FAGLFLEXT-TSL02,
        TSL03   LIKE FAGLFLEXT-TSL03,
        TSL04   LIKE FAGLFLEXT-TSL04,
        TSL05   LIKE FAGLFLEXT-TSL05,
        TSL06   LIKE FAGLFLEXT-TSL06,
        TSL07   LIKE FAGLFLEXT-TSL07,
        TSL08   LIKE FAGLFLEXT-TSL08,
        TSL09   LIKE FAGLFLEXT-TSL09,
        TSL10   LIKE FAGLFLEXT-TSL10,
        TSL11   LIKE FAGLFLEXT-TSL11,
        TSL12   LIKE FAGLFLEXT-TSL12,
        TSL13   LIKE FAGLFLEXT-TSL13,
        TSL14   LIKE FAGLFLEXT-TSL14,
        TSL15   LIKE FAGLFLEXT-TSL15,
        TSL16   LIKE FAGLFLEXT-TSL16,
        HSLVT   LIKE FAGLFLEXT-HSLVT,
        HSL01   LIKE FAGLFLEXT-HSL01,
        HSL02   LIKE FAGLFLEXT-HSL02,
        HSL03   LIKE FAGLFLEXT-HSL03,
        HSL04   LIKE FAGLFLEXT-HSL04,
        HSL05   LIKE FAGLFLEXT-HSL05,
        HSL06   LIKE FAGLFLEXT-HSL06,
        HSL07   LIKE FAGLFLEXT-HSL07,
        HSL08   LIKE FAGLFLEXT-HSL08,
        HSL09   LIKE FAGLFLEXT-HSL09,
        HSL10   LIKE FAGLFLEXT-HSL10,
        HSL11   LIKE FAGLFLEXT-HSL11,
        HSL12   LIKE FAGLFLEXT-HSL12,
        HSL13   LIKE FAGLFLEXT-HSL13,
        HSL14   LIKE FAGLFLEXT-HSL14,
        HSL15   LIKE FAGLFLEXT-HSL15,
        HSL16   LIKE FAGLFLEXT-HSL16,
      END OF COMM_WTAB_001.

DATA: BEGIN OF COMM_WTAB_002,
        ZTSL LIKE FAGLFLEXT-TSL01,
        ZHSL LIKE FAGLFLEXT-HSL01,
      END OF COMM_WTAB_002.

DATA: BEGIN OF COMM_WTAB_003,
        RBUKRS  LIKE FAGLFLEXT-RBUKRS,           "公司
        RYEAR   LIKE FAGLFLEXT-RYEAR,            "年度
        RACCT   LIKE FAGLFLEXT-RACCT,            "科目代码
        TXT50   LIKE SKAT-TXT50,                 "科目长文本
        RTCUR   LIKE FAGLFLEXT-RTCUR,            "交易货币

        ZTMP002 TYPE FAGLFLEXT-TSLVT,            "期初余额交易货币
        ZTMP003 TYPE FAGLFLEXT-TSLVT,            "期初余额本币

        ZTMP005 TYPE FAGLFLEXT-TSLVT,            "计算  期间借方交易货币
        ZTMP006 TYPE FAGLFLEXT-TSLVT,            "计算  期间借方本币
        ZTMP007 TYPE FAGLFLEXT-TSLVT,            "计算  期间贷方交易货币
        ZTMP008 TYPE FAGLFLEXT-TSLVT,            "计算  期间贷方本币

        ZTMP010 TYPE FAGLFLEXT-TSLVT,            "计算  期间余额交易货币
        ZTMP011 TYPE FAGLFLEXT-TSLVT,            "计算  期间余额本币
        ZTMP012 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生借方交易货币
        ZTMP013 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生借方本币
        ZTMP014 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生贷方交易货币
        ZTMP015 TYPE FAGLFLEXT-TSLVT,            "计算  本年累计发生贷方本币
        ZTMP016 TYPE FAGLFLEXT-TSLVT,            "计算  期末余额交易货币
        ZTMP017 TYPE FAGLFLEXT-TSLVT,            "计算  期末余额本币
      END OF COMM_WTAB_003.

DATA: COMM_ALV_ITAB    LIKE TABLE OF COMM_WTAB_001 WITH HEADER LINE.
DATA: COMM_ALV_ITAB001 LIKE TABLE OF COMM_WTAB_001 WITH HEADER LINE.
DATA: COMM_ALV_ITAB002 LIKE TABLE OF COMM_WTAB_003 WITH HEADER LINE.
DATA: COMM_ALV_ITAB003 LIKE HASHED TABLE OF COMM_WTAB_003 WITH UNIQUE KEY RBUKRS RYEAR RACCT TXT50 RTCUR WITH HEADER LINE."定义统计结果内表（必须是哈希内表)


PARAMETER:
  COMM_RBS LIKE FAGLFLEXT-RBUKRS OBLIGATORY DEFAULT '1000',
  COMM_RY LIKE FAGLFLEXT-RYEAR OBLIGATORY DEFAULT '2018'
  .
SELECT-OPTIONS:
  COMM_RP FOR FAGLFLEXT-RPMAX
  .