//+------------------------------------------------------------------+
//| Установка ордера                                                 |
//+------------------------------------------------------------------+
void PutOrderReal(int type,double price)
  {
   int r=0,err=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0)
         sl=NormalizeDouble(price+StopLoss*Point,_Digits);
      if(TakeProfit>0)
         tp=NormalizeDouble(price-TakeProfit*Point,_Digits);
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
      if(StopLoss>0)
         sl=NormalizeDouble(price-StopLoss*Point,_Digits);
      if(TakeProfit>0)
         tp=NormalizeDouble(price+TakeProfit*Point,_Digits);
     }

   if(AccountFreeMarginCheck(Symbol(),type,Lot(type))<=0)
     {
      Print("No enough money!");
      trade=false;
      return;
     }

   for(int k=1; k<=MaxEntry; k++)
     {
      if(!IsTesting() && (!IsExpertEnabled() || IsStopped()))
         break;
      while(!IsTradeAllowed())
         Sleep(5000);
      RefreshRates();

      r=OrderSend(NULL,type,Lots,NormalizeDouble(price,_Digits),Slip,sl,tp,"",Magic,0,clr);
      if(r>0)
        {
         Print("Order is placed successfully: "+" OOP: ",price," SL: ",sl," TP: ",tp);
         break;
        }
      else
        {
         err=GetLastError();
         Print("Error(",err,") Order delete error: ",ErrorDescription(err));

         // Блокировка работы советника
         if(ErrorsAction(err)==2)
           {
            trade=false;
            Print("Stop the Advisor!");
            return;
           }
         // Длительная пауза
         if(ErrorsAction(err)==1)
           {
            Sleep(1000*LongPause);
           }
         //  Небольшая пауза
         if(ErrorsAction(err)==0)
           {
            Sleep(1000*ShortPause);
           }
        }
     }
   return;
  }

<code>

   r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp," Момент ",Magic,TimeCurrent()+Expir*60*60,clr);//
   Sleep (5000);
   
   co=GetLastError();
   if (co==0)Alot=0;
   if (r==0)
   {if ( co==128||co==4||co==6||co==129||co==128||co==135||co==136||co==137||co==138||co==141||co==146||co==4107)
   PutOrder(type,price, stoploss, takeprofit, Alot);
   if(co!=0)Print("Текущая ошибка ", co,", Модель: ",Magic);
   }
</code>

//+----------------------------------------------------------------------------+
//|  Автор    : Ким Игорь В. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Версия   : 10.04.2008                                                     |
//|  Описание : Открывает позицию по рыночной цене.                            |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    sy - наименование инструмента   (NULL или "" - текущий символ)          |
//|    op - операция                                                           |
//|    ll - лот                                                                |
//|    sl - уровень стоп                                                       |
//|    tp - уровень тейк                                                       |
//|    mn - MagicNumber                                                        |
//|    co - комментарий                                                        |
//+----------------------------------------------------------------------------+
void OpenPosition(string sy, int op, double ll, double sl=0, double tp=0, int mn=0, string co="") {
  color    clOpen;
  datetime ot;
  double   pp, pa, pb;
  int      dg, err, it, ticket=0;

  if (sy=="" || sy=="0") sy=Symbol();
  if (op==OP_BUY) clOpen=clOpenBuy; else clOpen=clOpenSell;
  if (co=="") co=WindowExpertName()+" "+GetNameTF(Period());
  for (it=1; it<=NumberOfTry; it++) {
    if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) {
      Print("OpenPosition(): Остановка работы функции");
      break;
    }
    while (!IsTradeAllowed()) Sleep(5000);
    RefreshRates();
    dg=MarketInfo(sy, MODE_DIGITS);
    pa=MarketInfo(sy, MODE_ASK);
    pb=MarketInfo(sy, MODE_BID);
    if (op==OP_BUY) pp=pa; else pp=pb;
    pp=NormalizeDouble(pp, dg);
    ot=TimeCurrent();
    if (MarketWatch)
      ticket=OrderSend(sy, op, ll, pp, Slippage, 0, 0, co, mn, 0, clOpen);
    else
      ticket=OrderSend(sy, op, ll, pp, Slippage, sl, tp, co, mn, 0, clOpen);
    if (ticket>0) {
      if (UseSound) PlaySound(SoundSuccess); break;
    } else {
      err=GetLastError();
      if (UseSound) PlaySound(SoundError);
      if (pa==0 && pb==0) Message("Проверьте в Обзоре рынка наличие символа "+sy);
      // Вывод сообщения об ошибке
      Print("Error(",err,") opening position: ",ErrorDescription(err),", try ",it);
      Print("Ask=",pa," Bid=",pb," sy=",sy," ll=",ll," op=",GetNameOP(op),
            " pp=",pp," sl=",sl," tp=",tp," mn=",mn);
      // Блокировка работы советника
      if (err==2 || err==64 || err==65 || err==133) {
        gbDisabled=True; break;
      }
      // Длительная пауза
      if (err==4 || err==131 || err==132) {
        Sleep(1000*300); break;
      }
      if (err==128 || err==142 || err==143) {
        Sleep(1000*66.666);
        if (ExistPositions(sy, op, mn, ot)) {
          if (UseSound) PlaySound(SoundSuccess); break;
        }
      }
      if (err==140 || err==148 || err==4110 || err==4111) break;
      if (err==141) Sleep(1000*100);
      if (err==145) Sleep(1000*17);
      if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
      if (err!=135 && err!=138) Sleep(1000*7.7);
    }
  }
  if (MarketWatch && ticket>0 && (sl>0 || tp>0)) {
    if (OrderSelect(ticket, SELECT_BY_TICKET)) ModifyOrder(-1, sl, tp);
  }
}

//-------------------------------------------------------------------------
bool SendOrder(int tip, double lot, string com)
{
   for (int i=0; i<OrdersTotal(); i++) 
   {  
      if (OrderSelect(i, SELECT_BY_POS))
      {  
         if (OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         {
            if (OrderComment()==com) return(0);
         }
      }
   }
   int error,nn;
   while(true)
   {
      RefreshRates();
      if (tip==OP_BUY) error = OrderSend(Symbol(),OP_BUY,lot,NormalizeDouble(Ask,Digits),slippage,0,0,com,Magic,0,Blue);
      
      if (tip==OP_SELL) error = OrderSend(Symbol(),OP_SELL,lot,NormalizeDouble(Bid,Digits),slippage,0,0,com,Magic,0,Red);
      
      if (error==-1)
      {
         Print("OrderSend Error ",GetLastError()," Lot ",lot);
         Sleep(1000);
      }
      else return(1);
      nn++;
      if (nn>10) return(0);
   }
   return(1);
}
//-------------------------------------------------------------------

//+----------------------------------------------------------------------------+
//|  Автор    : Ким Игорь В. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Версия   : 19.02.2008                                                     |
//|  Описание : Возвращает время открытия последней открытой позиций.          |
//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    sy - наименование инструмента   (""   - любой символ,                   |
//|                                     NULL - текущий символ)                 |
//|    op - операция                   (-1   - любая позиция)                  |
//|    mn - MagicNumber                (-1   - любой магик)                    |
//+----------------------------------------------------------------------------+
datetime TimeOpenLastPos(string sy="", int op=-1, int mn=-1) {
  datetime t;
  int      i, k=OrdersTotal();

  if (sy=="0") sy=Symbol();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==sy || sy=="") {
        if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
          if (op<0 || OrderType()==op) {
            if (mn<0 || OrderMagicNumber()==mn) {
              if (t<OrderOpenTime()) t=OrderOpenTime();
            }
          }
        }
      }
    }
  }
  return(t);
}

//+----------------------------------------------------------------------------+
//|                                                           b-Positions.mqh  |
//|                                                                            |
//|                                                    Ким Игорь В. aka KimIV  |
//|                                                       http://www.kimiv.ru  |
//|                                                                            |
//|  08.11.2006  Библиотека функций для работы с позициями.                    |
//+----------------------------------------------------------------------------+
#property library

// ClosePosBySelect                Закрытие одной предварительно выбранной позиции
// ClosePosBySizeLossInCurrency    Закрытие тех позиций, у которых убыток в валюте депозита превысил некоторое значение
// ClosePosBySizeProfitInCurrency  Закрытие тех позиций, у которых профит в валюте депозита превысил некоторое значение
// ClosePosBySortLots              Закрытие позиций в порядке сортировки по размерам лотов
// ClosePosExceptTicket            Закрытие позиций по рыночной цене за исключением одной с переданным тикетом
// ClosePosFirstProfit             Закрытие позиций по рыночной цене сначала прибыльных
// ClosePositions                  Закрытие позиций по рыночной цене
// ClosePosWithMaxProfitInCurrency Закрытие позиции с максимальным положительным профитом в валюте депозита
// DistMarketAndPos                Расстояние в пунктах между рынком и ближайшей позицей
// ExistInHistoryCloseBetween      Существование в истории позиции или ордера, закрытой (удалённого) между датами.
// ExistInHistoryOpenBetween       Существование в истории позиции или ордера, открытой (установленного) между датами.
// ExistInHistoryToDay      Существование ордера или позиции в истории за сегодня
// ExistOPNearMarket        Существование позиции или ордера около рынка
// ExistPosByPrice          Существование позиций по цене открытия
// ExistPositions           Существование позиций
// GetAmountLotFromOpenPos  Сумма лотов открытых позиций
// GetIndexLastPos          Индекс последней открытой позиции или -1
// GetLotLastClosePos       Возвращает размер лота последней закрытой позиции или -1
// GetLotLastPos            Возвращает размер лота последней открытой позиции или -1
// GetMaxLotFromOpenPos         Максимальный размер лота из открытых позиций
// GetMinLotFromOpenPos         Минимальный размер лота из открытых позиций
// GetProfitFromDateInCurrency  Суммарный профит в валюте депозита закрытых с определённой даты позиций
// GetProfitOpenPosInCurrency   Суммарный профит открытых позиций в валюте депозита
// GetProfitOpenPosInPoint      Суммарный профит открытых позиций в пунктах
// GetTicketLastPos             Тикет последней открытой позиции или -1
// GetTypeLastClosePos      Тип последней закрытой позиции или -1
// GetTypeLastOpenPos       Тип последней открытой позиции или -1
// isCloseLastPosByStop     Флаг закрытия последней позиции по стопу
// isCloseLastPosByTake     Флаг закрытия последней позиции по тейку
// isLossLastPos            Флаг убыточности последней позиции
// isTradeToDay             Возвращает флаг торгов сегодня
// MovingInWL               Перенос уровня стопа в безубыток
// NumberOfBarCloseLastPos  Номер бара закрытия последней позиции или -1
// NumberOfBarOpenLastPos   Номер бара открытия последней позиции или -1
// NumberOfLossPosToday     Количество убыточных позиций, закрытых сегодня
// NumberOfPositions        Количество позиций
// OpenPosition             Открытие позиции
// PriceCloseLastPos        Цена закрытия последней закрытой позиций
// PriceOpenLastClosePos    Цена открытия последней закрытой позиций
// PriceOpenLastPos         Цена открытия последней открытой позиций
// PriceOpenNearPos         Цена открытия ближайшей позиции
// SecondsAfterCloseLastPos Количество секунд после закрытия последней позиций
// SecondsAfterOpenLastPos  Количество секунд после открытия последней позиций
// SimpleTrailing           Сопровождение позиций простым тралом
// TakeProfitLastClosePos   Возвращает цену TakeProfit последней закрытой позиций или -1
// TakeProfitLastPos        Возвращает цену TakeProfit последней открытой позиций или -1
// TicketNearPos            Тикет ближайшей к рынку позиции по цене открытия или 0
// TimeOpenLastPos          Время открытия последней открытой позиций
// TypeNearPos              Возвращает тип ближайшей к рынку позиции или -1

//+------------------------------------------------------------------+
//| расчёт лота                                                      |
//+------------------------------------------------------------------+
double MoneyManagement()
  {
   double DynamicLot=0;
   double Free_Equity=MathMax( AccountEquity(),AccountBalance());
   if(Free_Equity<=0)return(0);
   double TickValue=MarketInfo(Symbol(),MODE_TICKVALUE);
   double LotStep=MarketInfo(Symbol(),MODE_LOTSTEP);
   double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
   double MxLot=MarketInfo(Symbol(),MODE_MAXLOT);
   if (TickValue*LotStep!=0) DynamicLot=MathFloor((Free_Equity*MathMin(AutoLot/100,100)/100000)/TickValue/LotStep)*LotStep; 
   //Print(DynamicLot,"DynamicLot");
   if(DynamicLot<MinLot)DynamicLot=MinLot;
   if(DynamicLot>MxLot)DynamicLot=MxLot;
   return(DynamicLot);
  }

//+------------------------------------------------------------------
//| Смотрим историю
//+------------------------------------------------------------------
  
bool Histori(int year,int month, int day, int hour)//
{    
   
   for ( i = OrdersTotal()-1; i>=0; i--)
   {
     if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
         {
         if(year==TimeYear(OrderOpenTime()))
          {
            if(month==TimeMonth(OrderOpenTime()))
             {
               if(day==TimeDay(OrderOpenTime()))
                {
                  if(hour==TimeHour(OrderOpenTime()))
                   {
                     return(true);
                   }
                }
             } 
          }
        }
      }        
   }  
   return(false);
}
  

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type, double price, double stoploss, double takeprofit, double Alot)
  {
   int r=0,co=0;
   color clr=Green;
   double sl=0,tp=0;
   

   if(type==1 || type==3 || type==5)
     {//устанавливаем параметры для ордеров
      clr=Red;
      if(stoploss>0) sl=NormalizeDouble(price+stoploss*Point,Digits);
      if(takeprofit>0) tp=NormalizeDouble(price-takeprofit*Point,Digits);
     }

   if(type==0 || type==2 || type==4)
     {//устанавливаем параметры для ордеров
      clr=Blue;
      if(stoploss>0) sl=NormalizeDouble(price-stoploss*Point,Digits);
      if(takeprofit>0) tp=NormalizeDouble(price+takeprofit*Point,Digits);
     }
     
   if(Alot==0)//Проверяем А-лот. Если А-лот больше нуля, то ордер не выставился в первый раз. Если А-лот равен нулю, значит выставляем ордер в первый раз и нужно задать параметр автолота.
   {
   if(AutoLot<=0){lot=Lots;}
   if(AutoLot>0){lot=MoneyManagement();}
   
   up=CountOrders(0);
   dn=CountOrders(1);
   
   //закрываем ордера, ставим множитель по мартингейлу
   if(type==0&&dn>0){lot=NormalizeDouble(lot*Klot*dn,Digits);CloseAll(1);}
   if(type==1&&up>0){lot=NormalizeDouble(lot*Klot*up,Digits);CloseAll(0);}
   if(lot<MarketInfo(Symbol(),MODE_MINLOT))lot=MarketInfo(Symbol(),MODE_MINLOT);
   if(lot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
   Sleep(10000);
   
   
   //всё хорошо, все ордера закрылись, теперь запоминаем размер А-лота на всякий случай
   Alot=lot;
   }
   
   //На всякий случай А-лот запомнили не зря
   else 
   {
   lot=Alot;
   
   
   //закрываем ордера, ставим множитель по мартингейлу
   if(type==0&&dn>0){lot=NormalizeDouble(lot*Klot*dn,Digits);CloseAll(1);}
   if(type==1&&up>0){lot=NormalizeDouble(lot*Klot*up,Digits);CloseAll(0);}
   if(lot<MarketInfo(Symbol(),MODE_MINLOT))lot=MarketInfo(Symbol(),MODE_MINLOT);
   if(lot>MarketInfo(Symbol(),MODE_MAXLOT))lot=MarketInfo(Symbol(),MODE_MAXLOT);
   Sleep(10000);
   
   //всё хорошо, все ордера закрылись, теперь запоминаем размер А-лота на всякий случай
   if(Alot<lot)Alot=lot;
   }
   
   //если ордера остались, то повторяем цикл через выставление ордера без выставления ордера
   up=CountOrders(0);
   dn=CountOrders(1);
   if(type==0&&dn>0)PutOrder(type,price, stoploss, takeprofit, Alot);
   if(type==1&&up>0)PutOrder(type,price, stoploss, takeprofit, Alot);
   
   
   
   
   r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp," Момент ",Magic,TimeCurrent()+Expir*60*60,clr);//
   Sleep (10000);//ждём 10 секунд
   
   co=GetLastError();//тут проверяем есть ли ошибка
   if (co==0)Alot=0;
   if (r==0)//если ордера нету и есть ошибка, пробуем выставлять ордер повторно
   {if ( co==4||co==6||co==129||co==128||co==135||co==136||co==137||co==138||co==141||co==145||co==146||co==4107)
   PutOrder(type,price, stoploss, takeprofit, Alot);
   }
   
   //выводим на экран номер ошибки и номер робота по меджик номеру
   if(co!=0)Alert("Текущая ошибка ", co,"\r\n" ,", Модель: ",Magic);
   
   //последний аванпост по защите сделки
   Sleep (1000*60*5);//на всякий случай ждём 5 минут, проверяем терминал на наличие выставленого ордера и если его нет , то выставляем ордер
   if(Histori(Year(),Month(),Day(),Hour())==false)PutOrder(type,price, stoploss, takeprofit, Alot);
   
   //Ура! Ордер есть ! Продолжаем работу!
   return;
  }