//+------------------------------------------------------------------+
//| Copyright © 2012, Vladimir Hlystov |
//| Закрывает все ордера при определенном профите |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2012, http://cmillion.narod.ru"
#property link "[email protected]"
//--------------------------------------------------------------------
extern datetime TimeSet = D'2011.12.10 17:47'; //Время выставления ордеров, если текущее время больше установленного, то выставляются сразу
extern bool Stop = true; //открыть стоп ордера
extern bool Limit = true; //открыть лимитные ордера
extern bool SELL = true; //открыть ордера SELL
extern bool BUY = true; //открыть ордера BUY
extern string __ = "";
extern double FirstBuyStop = 0; //цена выставления первого BuyStop ордера, если 0 то первый BuyStop будет выставлен по цене Ask+FirstStop
extern double FirstSellStop = 0; //цена выставления первого SellStop ордера, если 0 то первый SellStop будет выставлен по цене Bid-FirstStop
extern double FirstBuyLimit = 0; //цена выставления первого BuyLimit ордера, если 0 то первый BuyLimit будет выставлен по цене Bid-FirstStop
extern double FirstSellLimit = 0; //цена выставления первого SellLimit ордера, если 0 то первый SellLimit будет выставлен по цене Ask+FirstStop
extern int FirstStop = 100; //расстояние (в пунктах) от текущей цены до первого Stop ордера в случае First..Stop=0
extern int FirstLimit = 50; //расстояние (в пунктах) от текущей цены до первого Limit ордера в случае First..Limit=0
extern int StepStop = 30; //расстояние (в пунктах) между Stop ордерами
extern double K_StepStop = 1; //коэффициент расширения сетки
extern int StepLimit = 30; //расстояние (в пунктах) между Limit ордерами
extern double K_StepLimit = 1; //коэффициент расширения сетки
extern string _ = "";
extern int Orders = 5; //кол-во ордеров сетки
extern double LotStop = 0.5; //объем первого Stop ордера
extern double K_LotStop = 1; //умножение лота Stop ордеров
extern double Plus_LotStop = 0; //добавление лота Stop ордеров
extern double LotLimit = 0.1; //объем первого Limit ордера
extern double K_LotLimit = 2; //умножение лота Limit ордеров
extern double Plus_LotLimit = 0; //добавление лота Limit ордеров
extern int stoploss = 50; //уровень выставления SL, если 0, то SL не выставляется
extern int takeprofit = 100; //уровень выставления TP, если 0, то TP не выставляется
extern int Expiration = 1440; //Срок истечения отложенного ордера в минутах, если 0, то срок не ограничен (1440 - сутки)
extern int attempts = 10; //кол-во попыток открытия ордера
extern int Magic = 0; //уникальный номер ордера
//--------------------------------------------------------------------
string txt;
int n,slippage=3,STOPLEVEL;
datetime expiration;
//--------------------------------------------------------------------
//-------------------------------------------------------------------
extern double ProfitClose = 10; //закрывать все ордера при получении профита в валюте депозита
extern double LossClose = 1000; //закрывать все ордера при получении убытка
extern bool AllSymbol = false;//учитывать все инструменты или только тот, на котором стоит советник
//extern int Magic = 0; //0 - учитывать все ордера (с любым Magic номером)
//-------------------------------------------------------------------
//string txt;
int init()
{
ObjectCreate("Balance", OBJ_LABEL, 0, 0, 0);
ObjectSet("Balance", OBJPROP_CORNER, 1);
ObjectSet("Balance", OBJPROP_XDISTANCE, 5);
ObjectSet("Balance", OBJPROP_YDISTANCE, 15);
ObjectCreate("Equity", OBJ_LABEL, 0, 0, 0);
ObjectSet("Equity", OBJPROP_CORNER, 1);
ObjectSet("Equity", OBJPROP_XDISTANCE, 5);
ObjectSet("Equity", OBJPROP_YDISTANCE, 25);
ObjectCreate("Profit", OBJ_LABEL, 0, 0, 0);
ObjectSet("Profit", OBJPROP_CORNER, 1);
ObjectSet("Profit", OBJPROP_XDISTANCE, 5);
ObjectSet("Profit", OBJPROP_YDISTANCE, 35);
ObjectCreate("Copyright", OBJ_LABEL, 0, 0, 0);
ObjectSet("Copyright", OBJPROP_CORNER, 3);
ObjectSet("Copyright", OBJPROP_XDISTANCE, 5);
ObjectSet("Copyright", OBJPROP_YDISTANCE, 5);
ObjectSetText("Copyright","CloseProfit Copyright © 2011, http://cmillion.narod.ru\n",8,"Arial",Gold);
if (AllSymbol) txt = "По всем инструментам счета";
if (Magic==0) txt = StringConcatenate(txt,"\nПо всем Magic");
txt = StringConcatenate(txt,"\nПо Magic = ",Magic);
return(0);
}
//-------------------------------------------------------------------
int deinit()
{
ObjectDelete("Balance");
ObjectDelete("Equity");
ObjectDelete("Profit");
ObjectDelete("Copyright");
return(0);
}
//-------------------------------------------------------------------
int start()
{
OpenGrid();
double Profit,LB,LS,OL;
int b,s,OT;
for (int i=OrdersTotal()-1; i>=0; i--)
{
if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if ((OrderSymbol() == Symbol() || AllSymbol) && (Magic==0 || Magic==OrderMagicNumber()))
{
OT = OrderType();
OL = OrderLots();
Profit+=OrderProfit()+OrderCommission()+OrderSwap();
if (OT==OP_BUY)
{
b++;LB+= OL;
}
if (OT==OP_SELL)
{
s++;LS+= OL;
}
}
}
}
Comment(txt,"\nBuy ",b,"\nSell ",s);
//---
if (Profit>=ProfitClose)
{
Alert("Достигнут уровень профита = "+DoubleToStr(Profit,2));
CloseAll();
}
if (Profit<=-LossClose)
{
Alert("Достигнут уровень максимального убытка "+DoubleToStr(Profit,2));
CloseAll();
}
ObjectSetText("Balance",StringConcatenate("Balance ",DoubleToStr(AccountBalance(),2)),8,"Arial",Gold);
ObjectSetText("Equity",StringConcatenate("Equity ",DoubleToStr(AccountEquity(),2)),8,"Arial",Gold);
string txt2;
if (LB>0 || LS>0)
{
if (AllSymbol) txt2 = StringConcatenate("Profit All Symbol ",DoubleToStr(Profit,2));
else txt2 = StringConcatenate("Profit ",Symbol()," ",DoubleToStr(Profit,2));
}
if (LB>0) txt2 = StringConcatenate(txt2," Lot Buy = ",DoubleToStr(LB,2));
if (LS>0) txt2 = StringConcatenate(txt2," Lot Sell = ",DoubleToStr(LS,2));
ObjectSetText("Profit",txt2,12,"Arial",Color(Profit));
return;
}
//------------------------------------------------------------------
color Color(double P)
{
if (P>0) return(Green);
if (P<0) return(Red);
if (P==0) return(Green);
}
//------------------------------------------------------------------
bool CloseAll()
{
bool error=true;
int err,nn,OT;
string Symb;
while(true)
{
for (int j = OrdersTotal()-1; j >= 0; j--)
{
if (OrderSelect(j, SELECT_BY_POS))
{
Symb = OrderSymbol();
if ((Symb == Symbol() || AllSymbol) && (Magic==0 || Magic==OrderMagicNumber()))
{
OT = OrderType();
if (OT>1)
{
OrderDelete(OrderTicket());
}
if (OT==OP_BUY)
{
error=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(MarketInfo(Symb,MODE_BID),MarketInfo(Symb,MODE_DIGITS)),3,Blue);
if (error) Alert(Symb," Закрыт ордер N ",OrderTicket()," прибыль ",OrderProfit(),
" ",TimeToStr(TimeCurrent(),TIME_SECONDS));
}
if (OT==OP_SELL)
{
error=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(MarketInfo(Symb,MODE_ASK),MarketInfo(Symb,MODE_DIGITS)),3,Red);
if (error) Alert(Symb," Закрыт ордер N ",OrderTicket()," прибыль ",OrderProfit(),
" ",TimeToStr(TimeCurrent(),TIME_SECONDS));
}
if (!error)
{
err = GetLastError();
if (err<2) continue;
if (err==129)
{ Comment("Неправильная цена ",TimeToStr(TimeCurrent(),TIME_MINUTES));
Sleep(5000);
RefreshRates();
continue;
}
if (err==146)
{
if (IsTradeContextBusy()) Sleep(2000);
continue;
}
Comment("Ошибка ",err," закрытия ордера N ",OrderTicket(),
" ",TimeToStr(TimeCurrent(),TIME_MINUTES));
}
}
}
}
int n=0;
for (j = 0; j < OrdersTotal(); j++)
{
if (OrderSelect(j, SELECT_BY_POS))
{
if ((OrderSymbol() == Symbol() || AllSymbol) && (Magic==0 || Magic==OrderMagicNumber()))
{
OT = OrderType();
if (OT==OP_BUY || OT==OP_SELL) n++;
}
}
}
if (n==0) break;
nn++;
if (nn>10) {Alert(Symb," Не удалось закрыть все сделки, осталось еще ",n);return(0);}
Sleep(1000);
RefreshRates();
}
return(1);
}
//--------------------------------------------------------------------
void OpenGrid()
{
//===========================================================================================================================================
//===========================================================================================================================================
//===========================================================================================================================================
/*============================================*/if (IsTesting() && OrdersTotal()>0) return;/*===============================================*/
//===========================================================================================================================================
//===========================================================================================================================================
//===========================================================================================================================================
if (Expiration>0) expiration=TimeCurrent()+Expiration*60; else expiration=0;
Comment("Запуск скрипта OpenStopOrderNetTime ",TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS));
STOPLEVEL=MarketInfo(Symbol(),MODE_STOPLEVEL);
if (Digits==3 || Digits==5) slippage=30;
while (TimeCurrent()attempts) return;
}
return;
}
//--------------------------------------------------------------------