这是一个用于展示公司财务数据的通达信指标。它在K线图右侧创建一个固定信息面板,显示特定年份(M和M-1年)的季度财务数据。
主要功能:
1. 使用`DRAWTEXT_FIX`和`DRAWNUMBER_FIX`函数在屏幕固定位置绘制文本和数字。
2. 通过`FINONE`函数调用财务数据,包括现金流量表、资产负债表的关键项目。
3. 将原始数据(单位:元)转换为亿元显示。
4. 用不同颜色区分不同季度(1季度洋红、2季度橙色、3季度红色、4季度绿色)和不同年份的数据。
5. 在面板左侧显示公司主营业务信息。
显示的数据包括:
销售商品收到的现金
购买商品支付的现金
购建固定资产支付的现金
投资支付的现金
取得借款收到的现金
货币资金
分配股利支付的现金
偿还债务支付的现金
负债合计
使用说明:
1. 加载指标后,会在K线图右侧显示财务数据面板。
2. 数据按年份和季度排列,方便对比分析。
3. 通过修改参数`M`(默认10)可以调整显示的年份。
{距形}
M:=10;
DRAWGBK(ISLASTBAR,0,888,1,'1',1);
DRAWTEXT_FIX(ISLASTBAR,0.30,0.00,0,STRCAT(STRCAT('【主营业务】',EXTERNSTR(0,2)),' ')), COLOR008080;
DRAWRECTREL(0,0,298,998,RGB(0,32,64));
DRAWRECTREL(295,00,250,999,RGB(000,000,800));
DRAWTEXT_FIX(ISLASTBAR,0.10,0.00,0,'■ 1季度:'),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.15,0.00,0,'■ 2季度:'),COLORFF8800;
DRAWTEXT_FIX(ISLASTBAR,0.20,0.00,0,'■ 3季度:'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.25,0.00,0,'■ 4季度:'),COLORGREEN;
{-----------------98.--销售商品、提供劳务收到的现金(亿元)---------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.10,0,'98.-■收到--销售商品、提供劳务收到的现金(亿元):'),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.15,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.15,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.15,0,(FINONE(98,M-1,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.15,0,((FINONE(98,M-1,0630))/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.15,0,((FINONE(98,M-1,0930))/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.15,0,((FINONE(98,M-1,1231))/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.20,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.20,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.20,0,(FINONE(98,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.20,0,((FINONE(98,M,0630))/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.20,0,((FINONE(98,M,0930))/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.20,0,((FINONE(98,M,1231))/100000000)),COLORGREEN;
{-------------------102.--购买商品、接受劳务支付的现金(亿元)--------------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.25,0,'102.-■支付--购买商品、接受劳务支付的现金(亿元):'),COLORLIRED;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.30,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.30,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.30,0,(FINONE(102,M-1,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.30,0,(FINONE(102,M-1,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.30,0,(FINONE(102,M-1,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.30,0,(FINONE(102,M-1,1231)/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.35,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.35,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.35,0,(FINONE(102,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.35,0,(FINONE(102,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.35,0,(FINONE(102,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.35,0,(FINONE(102,M,1231)/100000000)),COLORGREEN;
{-----------------114.--购建固定资产、无形资产和其他长期资产支付的现金(亿元)--------------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.40,0,'114.■固定--购建固定资产、无形资产和其他长期资产支付的现金(亿元):'),COLORBROWN;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.03,0.45,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.45,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.45,0,(FINONE(114,M-1,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.45,0,(FINONE(114,M-1,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.45,0,(FINONE(114,M-1,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.45,0,(FINONE(114,M-1,1231)/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.50,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.50,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.50,0,(FINONE(114,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.50,0,(FINONE(114,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.50,0,(FINONE(114,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.50,0,(FINONE(114,M,1231)/100000000)),COLORGREEN;
{----------------------115.--投资支付的现金(亿元)-----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.55,0,'115.-■投资支付--投资支付的现金(亿元):'),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.60,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.60,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.60,0,(FINONE(115,M-1,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.60,0,(FINONE(115,M-1,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.60,0,(FINONE(115,M-1,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.60,0,(FINONE(115,M-1,1231)/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.65,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.65,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.65,0,(FINONE(115,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.65,0,(FINONE(115,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.65,0,(FINONE(115,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.65,0,(FINONE(115,M,1231)/100000000)),COLORGREEN;
{----------------------121.--取得借款收到的现金(亿元)-----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.70,0,'121.-■取得借款--取得借款收到的现金(亿元):'),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.75,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.75,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.75,0,(FINONE(121,M-1,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.75,0,(FINONE(121,M-1,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.75,0,(FINONE(121,M-1,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.75,0,(FINONE(121,M-1,1231)/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.80,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.80,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.11,0.80,0,(FINONE(121,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.80,0,(FINONE(121,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.21,0.80,0,(FINONE(121,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.80,0,(FINONE(121,M,1231)/100000000)),COLORGREEN;
{----------------------资产负债表---8.--货币资金(亿元)-----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.00,0.85,0,'008.-■资产负债表--货币资金(亿元):'),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.90,0,M-1),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.90,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.90,0,(FINONE(8,M-1,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.90,0,(FINONE(8,M-1,1231)/100000000)),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.03,0.95,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.95,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.16,0.95,0,(FINONE(8,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.26,0.95,0,(FINONE(8,M,1231)/100000000)),COLORGREEN;
{----------------------125.--分配股利、利润或偿付利息支付的现金-----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.30,0.55,0,'125.-■分配股利--利润或偿付利息支付的现金(亿元)'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.32,0.60,0,M),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.32,0.60,0,' 年'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.32,0.65,0,(FINONE(125,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.39,0.65,0,(FINONE(125,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.46,0.65,0,(FINONE(125,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.52,0.65,0,(FINONE(125,M,1231)/100000000)),COLORGREEN;
{----------------------124.--偿还--债务支付的现金----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.30,0.70,0,'124.-■偿还--债务支付的现金(亿元)'),COLORLIGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.32,0.80,0,(FINONE(124,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.39,0.80,0,(FINONE(124,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.46,0.80,0,(FINONE(124,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.52,0.80,0,(FINONE(124,M,1231)/100000000)),COLORGREEN;
{----------------------63.-负债-负债合计-----------------------}
DRAWTEXT_FIX(ISLASTBAR,0.30,0.85,0,' 63.-■负债--负债合计(亿元)'),COLOR007DFB;
DRAWNUMBER_FIX(ISLASTBAR,0.32,0.95,0,(FINONE(63,M,0331)/100000000)),COLORMAGENTA;
DRAWNUMBER_FIX(ISLASTBAR,0.39,0.95,0,(FINONE(63,M,0630)/100000000)),COLORFF8800;
DRAWNUMBER_FIX(ISLASTBAR,0.46,0.95,0,(FINONE(63,M,0930)/100000000)),COLORRED;
DRAWNUMBER_FIX(ISLASTBAR,0.52,0.95,0,(FINONE(63,M,1231)/100000000)),COLORGREEN;