*&---------------------------------------------------------------------*
*& 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
.