资产安全表

{资产预警表㊣----以年报为准 ----仅适应Wind资讯(万得资讯)}
{查寻F10}
DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
GDW0:=F10FIND('`财务分析`',1),LINETHICK;
GDW1:=F10FIND('主营业务收入(万元)',GDW0);
GDT1A:=F10TEXT(GDW1+22,2+9);                           GDT1B:=F10TEXT(GDW1+58,2+9);  
GDW2:=F10FIND('营业利润(万元)',GDW0);
GDT2A:=F10TEXT(GDW2+22,2+9);                           GDT2B:=F10TEXT(GDW2+34,2+9);  
GDW3:=F10FIND('资产总额(万元)',GDW0);
GDT3A:=F10TEXT(GDW3+22,2+9);                           GDT3B:=F10TEXT(GDW3+34,2+9);  
GDW4:=F10FIND('负债总额(万元)',GDW0);
GDT4A:=F10TEXT(GDW4+22,2+9);                           GDT4B:=F10TEXT(GDW4+34,2+9);  
GDW5:=F10FIND('流动负债(万元)',GDW0);
GDT5A:=F10TEXT(GDW5+22,2+9);                           GDT5B:=F10TEXT(GDW5+34,2+9);   
GDW6:=F10FIND('销shou商品收到的现金',GDW0);
GDT6A:=F10TEXT(GDW6+22,2+9);                           GDT6B:=F10TEXT(GDW6+34,2+9);  
GDW7:=F10FIND('股东权益(万元)',GDW0);
GDT7A:=F10TEXT(GDW7+22,2+9);                           GDT7B:=F10TEXT(GDW7+34,2+9);   
GDW8:=F10FIND('每股未分配利润(元)',GDW0);
GDT8A:=F10TEXT(GDW8+22,2+9);                           GDT8B:=F10TEXT(GDW8+34,2+9);  
GDW9:=F10FIND('货币资金(万元)',GDW0);
GDT9A:=F10TEXT(GDW9+22,2+9);                           GDT9B:=F10TEXT(GDW9+34,2+9);  
{换成数据}
x1k:=STRTONUM(GDT9A)/STRTONUM(GDT3A)*100;              x1上:=STRTONUM(GDT9B)/STRTONUM(GDT3B)*100;
x2k:=STRTONUM(GDT8A)*FINANCE(1)/STRTONUM(GDT3A)*100;   x2上:=STRTONUM(GDT8B)*FINANCE(1)/STRTONUM(GDT3B)*100;
x3k:=STRTONUM(GDT2A)/STRTONUM(GDT3A)*100;              x3上:=STRTONUM(GDT2B)/STRTONUM(GDT3B)*100;
x4k:=STRTONUM(GDT1A)/STRTONUM(GDT3A)*100;              x4上:=STRTONUM(GDT1B)/STRTONUM(GDT3B)*100;
x5k:=STRTONUM(GDT7A)/STRTONUM(GDT4A)*100;              x5上:=STRTONUM(GDT7B)/STRTONUM(GDT4B)*100;
zk:=(1.2*x1k/100)+1.4*x2k/100+3.3*x3k/100+0.6*x4k/100+0.995*x5k/100;            
z上:=(1.2*x1上/100)+1.4*x2上/100+3.3*x3上/100+0.6*x4上/100+0.995*x5上/100;
//表格
s1:=SYSPARAM(1);        s2:=SYSPARAM(2);        s3:=SYSPARAM(3);                   KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=ks/80;               X:=barpos=s2;           x1:=barpos=s2+ROUND(z*10);         x2:=barpos=s2+ROUND(z*32);
x3:=barpos=s2+ROUND(z*50);                      x4:=barpos=s2+ROUND(z*70);         x5:=barpos=s2+ROUND(z*80);
//横线
PARTLINE(1,100),COLORWHITE;          
PARTLINE(1,80),POINTDOT,COLORGRAY;           PARTLINE(1,70),POINTDOT,COLORGRAY;
PARTLINE(1,50),POINTDOT,COLORGRAY;           PARTLINE(1,60),POINTDOT,COLORGRAY;          
PARTLINE(1,40),POINTDOT,COLORGRAY;           PARTLINE(1,30),POINTDOT,COLORGRAY;    PARTLINE(1,20),POINTDOT,COLORGRAY;          
PARTLINE(1,0),COLORWHITE;
{竖线}
STICKLINE(x,100,0,0,0),COLORWHITE;  
STICKLINE(x1,100,20,0,0),LINEDOT,COLORGRAY;  STICKLINE(x2,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x3,100,20,0,0),LINEDOT,COLORGRAY;  STICKLINE(x4,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x5,100,0,0,0),COLORWHITE;
{填表}
drawtext(x,90,'  序号:'),Color00E9C7;
drawtext(x,76,'       X1'),Color00BBA9;
drawtext(x,66,'       X2'),Color00BBA9;
drawtext(x,56,'       X3'),Color00BBA9;
drawtext(x,46,'       X4'),Color00BBA9;
drawtext(x,36,'       X5'),Color00BBA9;
{}
drawtext(x1,90,'     指标说明'),Color00E9C7;
drawtext(x1,76,'     销shou现金/资产总额'),Color00BBA9;
drawtext(x1,66,'     未分利润/资产总额'),Color00BBA9;
drawtext(x1,56,'     税前收益/资产总额'),Color00BBA9;
drawtext(x1,46,'     主营收入/资产总额'),Color00BBA9;
drawtext(x1,36,'     股东权益/负债总额'),Color00BBA9;
drawtext(x1,26,'     Z值'),COLORWHITE;
{}
drawtext(x2,90,'        上年数'),Color00E9C7;
drawtext(x2,76,'        '+NUMTOSTR(x1上,2)),Color00BBA9;
drawtext(x2,66,'        '+NUMTOSTR(x2上,2)),Color00BBA9;
drawtext(x2,56,'        '+NUMTOSTR(x3上,2)),Color00BBA9;
drawtext(x2,46,'        '+NUMTOSTR(x4上,2)),Color00BBA9;
drawtext(x2,36,'        '+NUMTOSTR(x5上,2)),Color00BBA9;
drawtext(x2,26,'        '+NUMTOSTR(z上,4)),COLORWHITE;
{}
drawtext(x3,90,'         本年数'),Color00E9C7;
drawtext(x3,76,'         '+NUMTOSTR(x1k,2)),Color00BBA9;
drawtext(x3,66,'         '+NUMTOSTR(x2k,2)),Color00BBA9;
drawtext(x3,56,'         '+NUMTOSTR(x3k,2)),Color00BBA9;
drawtext(x3,46,'         '+NUMTOSTR(x4k,2)),Color00BBA9;
drawtext(x3,36,'         '+NUMTOSTR(x5k,2)),
[url=http://www.70822.com/soft/sort013/sort02/down-7414.html]资产安全表[/url]