|
//+

---

+
void OnTimer()
{
//---

OnTick();
}
//It's all, Folks!

void info_balans()
{

int eiOffsetY = 23; // Смещение текста по вертикали
int eiStepY = 12; // Шаг смещения текста по вертикали
int eiX1Row=943; // Координата X первой колонки
int eiX2Row = 1085; // Координата X второй колонки
int eiX3Row = 1150; // Координата X третей колонки
int eiX4Row = 1225; // Координата X четвёртой колонки
color ecText = clrGray; // Цвет текста
color ecProfit = clrGreen; // Цвет прибыли
color ecLoss = clrFireBrick; // Цвет убытка
datetime d0,d1,d2,d3,d4,d5,d6,d7,d8;

d0=StrToTime(TimeToStr(TimeCurrent(),TIME_DATE));
while(TimeDayOfWeek(d0)<1 || TimeDayOfWeek(d0)>5) d0-=24*60*60;
d1=d0-24*60*60;
while(TimeDayOfWeek(d1)<1 || TimeDayOfWeek(d1)>5) d1-=24*60*60;
d2=d1-24*60*60;
while(TimeDayOfWeek(d2)<1 || TimeDayOfWeek(d2)>5) d2-=24*60*60;
d3=d2-24*60*60;
while(TimeDayOfWeek(d3)<1 || TimeDayOfWeek(d3)>5) d3-=24*60*60;
d4=d3-24*60*60;
while(TimeDayOfWeek(d4)<1 || TimeDayOfWeek(d4)>5) d4-=24*60*60;
d5=DateOfMonday();
d6=StrToTime(IntegerToString(Year())+"."+IntegerToString(Month())+".01");
d7=DateBeginQuarter();
d8=StrToTime(IntegerToString(Year())+".01.01");

double tu=GetProfitOpenPosInPoint();
double u0=GetProfitFromDateInPoint("", -1, -1, d0);
double u1=GetProfitFromDateInPoint("", -1, -1, d1)-u0;
double u2=GetProfitFromDateInPoint("", -1, -1, d2)-u1-u0;
double u3=GetProfitFromDateInPoint("", -1, -1, d3)-u2-u1-u0;
double u4=GetProfitFromDateInPoint("", -1, -1, d4)-u3-u2-u1-u0;
double u5=GetProfitFromDateInPoint("", -1, -1, d5);
double u6=GetProfitFromDateInPoint("", -1, -1, d6);
double u7=GetProfitFromDateInPoint("", -1, -1, d7);
double u8=GetProfitFromDateInPoint("", -1, -1, d8);

double tb=AccountBalance(), tp=AccountProfit();
double p0=GetProfitFromDateInCurrency("", -1, -1, d0);
double p1=GetProfitFromDateInCurrency("", -1, -1, d1)-p0;
double p2=GetProfitFromDateInCurrency("", -1, -1, d2)-p1-p0;
double p3=GetProfitFromDateInCurrency("", -1, -1, d3)-p2-p1-p0;
double p4=GetProfitFromDateInCurrency("", -1, -1, d4)-p3-p2-p1-p0;
double p5=GetProfitFromDateInCurrency("", -1, -1, d5);
double p6=GetProfitFromDateInCurrency("", -1, -1, d6);
double p7=GetProfitFromDateInCurrency("", -1, -1, d7);
double p8=GetProfitFromDateInCurrency("", -1, -1, d8);

string st;
switch(eiPercent)
{
case 0 : st="текущего"; break;
case 1 : tb-=p0; st="на начало дня"; break;
case 2 : tb-=p5; st="на начало недели"; break;
case 3 : tb-=p6; st="на начало месяца"; break;
case 4 : tb-=p7; st="на начало квартала"; break;
default: tb-=p8; st="на начало года"; break;
}
double tr=tp*100/tb;
double r0=p0*100/tb;
double r1=p1*100/tb;
double r2=p2*100/tb;
double r3=p3*100/tb;
double r4=p4*100/tb;
double r5=p5*100/tb;
double r6=p6*100/tb;
double r7=p7*100/tb;
double r8=p8*100/tb;

SetLabel("iProfit05","Прибыль",ecText,eiX1Row+25,eiOffsetY);
SetLabel("iProfit06","в пунктах",ecText,eiX2Row-15,eiOffsetY);
SetLabel("iProfit07","в валюте",ecText,eiX3Row+35,eiOffsetY);

SetLabel("iProfit11","Текущая прибыль",ecText,eiX1Row,eiOffsetY+1*eiStepY);
SetLabel("iProfit21","Прибыль за сегодня",ecText,eiX1Row,eiOffsetY+2*eiStepY);
SetLabel("iProfit31","Прибыль за "+TimeToStr(d1,TIME_DATE),ecText,eiX1Row,eiOffsetY+3*eiStepY);
SetLabel("iProfit41","Прибыль за "+TimeToStr(d2,TIME_DATE),ecText,eiX1Row,eiOffsetY+4*eiStepY);
SetLabel("iProfit51","Прибыль за "+TimeToStr(d3,TIME_DATE),ecText,eiX1Row,eiOffsetY+5*eiStepY);
SetLabel("iProfit61","Прибыль за "+TimeToStr(d4,TIME_DATE),ecText,eiX1Row,eiOffsetY+6*eiStepY);
SetLabel("iProfit71","Прибыль за неделю",ecText,eiX1Row,eiOffsetY+7*eiStepY);
SetLabel("iProfit81","Прибыль за месяц",ecText,eiX1Row,eiOffsetY+8*eiStepY);
SetLabel("iProfit91","Прибыль за квартал",ecText,eiX1Row,eiOffsetY+9*eiStepY);
SetLabel("iProfit01","Прибыль за год",ecText,eiX1Row,eiOffsetY+10*eiStepY);

SetLabel("iProfit12",DoubleToStr(tu,0),ColorOnSign(tp),eiX2Row,eiOffsetY+1*eiStepY);
SetLabel("iProfit22",DoubleToStr(u0,0),ColorOnSign(u0),eiX2Row,eiOffsetY+2*eiStepY);
SetLabel("iProfit32",DoubleToStr(u1,0),ColorOnSign(u1),eiX2Row,eiOffsetY+3*eiStepY);
SetLabel("iProfit42",DoubleToStr(u2,0),ColorOnSign(u2),eiX2Row,eiOffsetY+4*eiStepY);
SetLabel("iProfit52",DoubleToStr(u3,0),ColorOnSign(u3),eiX2Row,eiOffsetY+5*eiStepY);
SetLabel("iProfit62",DoubleToStr(u4,0),ColorOnSign(u4),eiX2Row,eiOffsetY+6*eiStepY);
SetLabel("iProfit72",DoubleToStr(u5,0),ColorOnSign(u5),eiX2Row,eiOffsetY+7*eiStepY);
SetLabel("iProfit82",DoubleToStr(u6,0),ColorOnSign(u6),eiX2Row,eiOffsetY+8*eiStepY);
SetLabel("iProfit92",DoubleToStr(u7,0),ColorOnSign(u7),eiX2Row,eiOffsetY+9*eiStepY);
SetLabel("iProfit02",DoubleToStr(u8,0),ColorOnSign(u8),eiX2Row,eiOffsetY+10*eiStepY);

SetLabel("iProfit13",DoubleToStr(tp,2),ColorOnSign(tp),eiX3Row,eiOffsetY+1*eiStepY);
SetLabel("iProfit23",DoubleToStr(p0,2),ColorOnSign(p0),eiX3Row,eiOffsetY+2*eiStepY);
SetLabel("iProfit33",DoubleToStr(p1,2),ColorOnSign(p1),eiX3Row,eiOffsetY+3*eiStepY);
SetLabel("iProfit43",DoubleToStr(p2,2),ColorOnSign(p2),eiX3Row,eiOffsetY+4*eiStepY);
SetLabel("iProfit53",DoubleToStr(p3,2),ColorOnSign(p3),eiX3Row,eiOffsetY+5*eiStepY);
SetLabel("iProfit63",DoubleToStr(p4,2),ColorOnSign(p4),eiX3Row,eiOffsetY+6*eiStepY);
SetLabel("iProfit73",DoubleToStr(p5,2),ColorOnSign(p5),eiX3Row,eiOffsetY+7*eiStepY);
SetLabel("iProfit83",DoubleToStr(p6,2),ColorOnSign(p6),eiX3Row,eiOffsetY+8*eiStepY);
SetLabel("iProfit93",DoubleToStr(p7,2),ColorOnSign(p7),eiX3Row,eiOffsetY+9*eiStepY);
SetLabel("iProfit03",DoubleToStr(p8,2),ColorOnSign(p