财报评分 通达信主图指标 源码 贴图

DRAWTEXT_FIX(ISLASTBAR,0.848,0,0,'淘宝VAIGOLD'),COLORRED;

TEXT1:='毛 利 率-------是公司获利能力的最基本指标，代表公司降低成本的能力，也是竞争力的体现，越高越好；';
TEXT11:='营业利润率：-------代表本业收入占获利的比重，越高且保持一定水平，就可以放心持股（存股）；';
TEXT2:='净 利 率------公司盈亏占营收的比例，代表公司最终获利的能力；但净利是本业与副业的获利总和，需分清主次';
TEXT3:='净资产收益率：------反应公司为股东创造获利的能力，数值越高代表创造获利的能力越好，对投资人的保证程度越高；';
TEXT4:='资产负债比率：------除金融业外，一般公司负债比例越高，利息负担压力会越大，越高越要谨慎对待；';
TEXT5:='流动资产/总资产：------流动资产指一年内可变现的资产，是企业经营的能量，越低企业越无法经营，会使运营压力提高；';
TEXT6:='存货周转率：------数值上升，说明存货消化很快，存货管控能力强，数值低代表积压滞销，存在风险；';
TEXT7:='应收帐款周转率：------数值越高，现金回收的速度越快，过高要注是否有伙同假销货、做假帐；';
TEXT8:='经营现金流净额：------是企业取得净收益主要交易和事项的金额，数值应该为正，且越大越好；';
TEXT9:='投资现金流净额：------公司买卖非流动资产的现金流量，数值为负，代表公司可能正在扩大版图；';
TEXT99:='筹资现金流净额；------公司与股东、债权人之间的现金流量，如果为正，表明公司正在向股东/债权人要钱；';
TEXT10:='';

TEXT101:='';
TEXTA1:='';
TEXTA2:='';
TEXTA3:='';

TEXTA:=IF(MN=1,TEXT1,IF(MN=2,TEXT8,''));
TEXTB:=IF(MN=1,TEXT11,IF(MN=2,TEXT9,''));
TEXTC:=IF(MN=1,TEXT2,IF(MN=2,TEXT99,''));
TEXTD:=IF(MN=1,TEXT3,IF(MN=2,TEXT10,''));
TEXTE:=IF(MN=1,TEXT4,IF(MN=2,TEXT101,''));
TEXTF:=IF(MN=1,TEXT5,IF(MN=2,TEXTA1,''));
TEXTG:=IF(MN=1,TEXT6,IF(MN=2,TEXTA2,''));
TEXTH:=IF(MN=1,TEXT7,IF(MN=2,TEXTA3,''));

NN:=0.05;
MM:=0.02;
OO:=0.02;

DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*0),0,TEXTA),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*1),0,TEXTB),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+2*NN),0,TEXTC),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+3*NN),0,TEXTD),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*4),0,TEXTE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*5),0,TEXTF),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+6*NN),0,TEXTG),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+7*NN),0,TEXTH),COLORYELLOW;

{------------------季报同比环比----------------------------}
MO:=0.06;
MP:=0.450;
MQ:=0.005;
DRAWRECTREL(10,425,715,820,RGB(1,1,1)); {黑底框}
DRAWRECTREL(10,558,715,558.3,RGB(20,90,200)); {横一}
DRAWRECTREL(95,493,715,493.3,RGB(20,90,200)); {横二}
DRAWRECTREL(400,425,400.3,820,RGB(20,90,200)); {竖二}
DRAWRECTREL(95,425,95.3,820,RGB(20,90,200)); {竖一}
YEAR3:=YEAR;
YEAR2:=IF(MONTH<4,YEAR3-1,YEAR3);
{YEAR2:=IF(YEARA<2020,YEARA,2019);}
YEAR1:=YEAR2-1;
DRAWTEXT_FIX(ISLASTBAR,0.225+MQ,(MP),0,STRCAT(CON2STR(YEAR2,0),'年')),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.525+MQ,(MP),0,STRCAT(CON2STR(YEAR1,0),'年')),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP),0,'季报'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP+MO*1),0,'分析'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.10+MQ,(MP+MO*1),0,'主营收入(亿)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.21+MQ,(MP+MO*1),0,'净利润(亿)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.31+MQ,(MP+MO*1),0,'毛利率(%)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.41+MQ,(MP+MO*1),0,'主营收入(亿)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.52+MQ,(MP+MO*1),0,'净利润(亿)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.61+MQ,(MP+MO*1),0,'毛利率(%)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*2),0,'一季报'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*3),0,'二季报'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+4*MO),0,'三季报'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+5*MO),0,'四季报'),COLORGREEN;
MR:=0.125;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*2),0,CON2STR(FINONE(74,YEAR2,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*3),0,CON2STR(FINONE(74,YEAR2,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+4*MO),0,CON2STR(FINONE(74,YEAR2,0930)/100000000,2)),COLORYELLOW;
{DRAWTEXT_FIX(ISLASTBAR,MR,(MP+5*MO),0,CON2STR(FINONE(74,YEAR2,1231)/100000000,2)),COLORYELLOW;}
MS:=0.23;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*2),0,CON2STR(FINONE(96,YEAR2,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*3),0,CON2STR(FINONE(96,YEAR2,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+4*MO),0,CON2STR(FINONE(96,YEAR2,0930)/100000000,2)),COLORYELLOW;
{DRAWTEXT_FIX(ISLASTBAR,MS,(MP+5*MO),0,CON2STR(FINONE(96,YEAR2,1231)/100000000,2)),COLORYELLOW;}
MT:=0.325;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*2),0,CON2STR(FINONE(202,YEAR2,0331),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*3),0,CON2STR(FINONE(202,YEAR2,0630),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+4*MO),0,CON2STR(FINONE(202,YEAR2,0930),2)),COLORYELLOW;
{DRAWTEXT_FIX(ISLASTBAR,MT,(MP+5*MO),0,CON2STR(FINONE(202,YEAR2,1231),2)),COLORYELLOW;}
MU:=0.425;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*2),0,CON2STR(FINONE(74,YEAR1,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*3),0,CON2STR(FINONE(74,YEAR1,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+4*MO),0,CON2STR(FINONE(74,YEAR1,0930)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+5*MO),0,CON2STR(FINONE(74,YEAR1,1231)/100000000,2)),COLORYELLOW;
MV:=0.535;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*2),0,CON2STR(FINONE(96,YEAR1,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*3),0,CON2STR(FINONE(96,YEAR1,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+4*MO),0,CON2STR(FINONE(96,YEAR1,0930)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+5*MO),0,CON2STR(FINONE(96,YEAR1,1231)/100000000,2)),COLORYELLOW;
MW:=0.63;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*2),0,CON2STR(FINONE(202,YEAR1,0331),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*3),0,CON2STR(FINONE(202,YEAR1,0630),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+4*MO),0,CON2STR(FINONE(202,YEAR1,0930),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+5*MO),0,CON2STR(FINONE(202,YEAR1,1231),2)),COLORYELLOW;

{----------------------------------------------------------}
DRAWRECTREL(15,830,985,830.2,RGB(0,90,90)); {横一}
DRAWRECTREL(15,909,985,909.2,RGB(0,90,90)); {横2}
DRAWRECTREL(15,984,985,984.2,RGB(0,90,90)); {横3}

DRAWRECTREL(246,830,246.2,985,RGB(0,90,90)); {竖1}
DRAWRECTREL(495,830,495.2,985,RGB(0,90,90)); {竖2}
DRAWRECTREL(746,830,746.2,985,RGB(0,90,90)); {竖3}

DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+15*NN+4*OO),0,'所属板块：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+15*NN+4*OO),0,'营业利润率(季)：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+15*NN+4*OO),0,'主营收入同比(季)：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+15*NN+4*OO),0,'大中小盘：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+16*NN+5*OO+0.01),0,'上市日期：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+16*NN+5*OO+0.01),0,'净资产收益率ROE(季)：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+16*NN+5*OO+0.01),0,'净 利 润 同 比(季)：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+16*NN+5*OO+0.01),0,'流通市值：'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+15*NN+4*OO),0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINVALUE(194),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINANCE(44),2),' %')),COLORYELLOW;
PP1:=FINANCE(40)/100000000;
PZDX:=IF(PP1>200,'大盘股',IF(PP1<=50,'小盘股','中盘股'));
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+15*NN+4*OO),0,PZDX),COLORYELLOW;

SS1:=FINANCE(42);
SS2:=DATETODAY(CONST(DATE));
SS3:=SS2-SS1;
RQ1:=DAYTODATE(SS3)+19000000;
XDATE:=CON2STR(RQ1,0);
DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+16*NN+5*OO+0.01),0,XDATE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINVALUE(197),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(43),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(40)/100000000,2),' 亿元')),COLORYELLOW;

GD1:=0.725;
GD2:=0.080;
GD3:=0.048;
GD4:=0.01;
GD5:=0.890;
GD6:=0.820;
DRAWRECTREL(720,70,995,820,RGB(1,1,1));
DRAWRECTREL(720,315,995,315.4,RGB(20,90,250));
DRAWRECTREL(720,420,995,420.4,RGB(20,90,250));
DRAWRECTREL(875,420,875.3,820,RGB(20,90,250));
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*5+GD4,0,'机构总家数：'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*6+GD4,0,'机构总持股：'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,GD1,GD2,0,STRCAT('股 东 总 人 数： ',STRCAT(CON2STR(FINVALUE(242),0),' 户'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3,0,STRCAT('十 大 股 东 持 股： ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*2,0,STRCAT('十大 流通 股东 持股： ',STRCAT(CON2STR(FINVALUE(244)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*3,0,STRCAT('第 一 大 股 东 持 股： ',STRCAT(CON2STR(FINVALUE(243)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*4,0,STRCAT('第一大流通股东持股： ',STRCAT(CON2STR(FINVALUE(265)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*5+GD4,0,STRCAT(CON2STR(FINVALUE(246),0),' 户')),COLORMAGENTA;{www.gpxiazai.com}
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*6+GD4,0,STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*7+GD4,0,STRCAT('QFII机构数： ',STRCAT(CON2STR(FINVALUE(248),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*8+GD4,0,STRCAT('券商机构数： ',STRCAT(CON2STR(FINVALUE(250),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*9+GD4,0,STRCAT('保险机构数： ',STRCAT(CON2STR(FINVALUE(252),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*10+GD4,0,STRCAT('基金机构数： ',STRCAT(CON2STR(FINVALUE(254),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*11+GD4,0,STRCAT('社保机构数： ',STRCAT(CON2STR(FINVALUE(256),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*12+GD4,0,STRCAT('私募机构数： ',STRCAT(CON2STR(FINVALUE(258),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*13+GD4,0,STRCAT('财务机构数： ',STRCAT(CON2STR(FINVALUE(260),0),' 家'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*14+GD4,0,STRCAT('年金机构数： ',STRCAT(CON2STR(FINVALUE(262),0),' 家'))),COLORWHITE;

GD8:=0.885;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*7+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(249)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*8+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(251)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*9+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(253)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*10+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(255)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*11+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(257)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*12+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(259)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*13+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(261)/FINVALUE(239)*100,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*14+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(263)/FINVALUE(239)*100,2),' %'))),COLORWHITE;