VR---CLOSE---ALL

//--------------------------------------------------------------------------------------------------------//
//|                                     VR---CLOSE---ALL.mq4                                               |
//|                                         Trading - Go                                                   |
//|                                 http://www.trading-go.ru                                               |
//--------------------------------------------------------------------------------------------------------//
#property copyright "Copyright 2013, Trading - Go."
#property link      "http://www.trading-go.ru "
//--------------------------------------------------------------------------------------------------------//
#property show_inputs
extern int slip  = 30 ;
extern int Magic = 0  ;// 0-ðó÷íûå, -1 âñå, èëè âûáðàííûé ìåäæèê
int start()
  {
double price = 0 ;
   for(int i=OrdersTotal()-1; i>=0; i--)
   if(OrderSelect(i, SELECT_BY_POS)==true) 
   if (OrderMagicNumber()==Magic||Magic==-1)
   if(OrderType()<2&&IsTradeAllowed()==true)
     {
      if (OrderType()==0)
      price=NormalizeDouble(MarketInfo(OrderSymbol(),MODE_BID),Digits); else 
      price=NormalizeDouble(MarketInfo(OrderSymbol(),MODE_ASK),Digits);
      if ( OrderClose(OrderTicket(),OrderLots(),price,slip,Red)==true )
      {
      Comment("\n"," Îðäåð çàêðûò !!! ");
      }else  Comment(Error(GetLastError()));
     }   
  }
//--------------------------------------------------------------------------------------------------------//
///    Îïèñàíèå îøèáîê
//--------------------------------------------------------------------------------------------------------//
string Error(int error_code)
  {
   string error_string;
   switch(error_code)
     {
      case 6:   error_string="Íåò ñâÿçè ñ òîðãîâûì ñåðâåðîì";                                  break;
      case 7:   error_string="Íåäîñòàòî÷íî ïðàâ";                                              break;
      case 64:  error_string="Ñ÷åò çàáëîêèðîâàí";                                              break;
      case 65:  error_string="Íåïðàâèëüíûé íîìåð ñ÷åòà";                                       break;
      case 128: error_string="Èñòåê ñðîê îæèäàíèÿ ñîâåðøåíèÿ ñäåëêè";                          break;
      case 129: error_string="Íåïðàâèëüíàÿ öåíà";                                              break;
      case 130: error_string="Íåïðàâèëüíûå ñòîïû";                                             break;
      case 131: error_string="Íåïðàâèëüíûé îáúåì";                                             break;
      case 132: error_string="Ðûíîê çàêðûò";                                                   break;
      case 133: error_string="Òîðãîâëÿ çàïðåùåíà";                                             break;  
      case 134: error_string="Íåäîñòàòî÷íî äåíåã äëÿ ñîâåðøåíèÿ îïåðàöèè";                     break;
      case 135: error_string="Öåíà èçìåíèëàñü";                                                break;
      case 136: error_string="Íåò öåí";                                                        break;
      case 137: error_string="Áðîêåð çàíÿò";                                                   break;
      case 138: error_string="Íîâûå öåíû";                                                     break;
      case 139: error_string="Îðäåð çàáëîêèðîâàí è óæå îáðàáàòûâàåòñÿ";                        break;
      case 145: error_string="Ìîäèôèêàöèÿ çàïðåùåíà, òàê êàê îðäåð ñëèøêîì áëèçîê ê ðûíêó";    break;
      case 146: error_string="Ïîäñèñòåìà òîðãîâëè çàíÿòà";                                     break;
      case 147: error_string="Èñïîëüçîâàíèå äàòû èñòå÷åíèÿ îðäåðà çàïðåùåíî áðîêåðîì";         break;
      case 148: error_string="Êîëè÷åñòâî îòêðûòûõ è îòëîæåííûõ îðäåðîâ äîñòèãëî ïðåäåëà, óñòàíîâëåííîãî áðîêåðîì.";break;
      case 4067: error_string="Îøèáêà ïðè âûïîëíåíèè òîðãîâîé îïåðàöèè";                         break;
      case 4110: error_string="Äëèííûå ïîçèöèè íå ðàçðåøåíû. Íåîáõîäèìî ïðîâåðèòü ñâîéñòâà ýêñïåðòà.";           break;
      case 4111: error_string="Êîðîòêèå ïîçèöèè íå ðàçðåøåíû. Íåîáõîäèìî ïðîâåðèòü ñâîéñòâà ýêñïåðòà.";          break;
      default:   error_string="Îøèáêà ïðè ðàáîòå ñ îáúåêòîì";
     }
   return(error_string);
  }
//--------------------------------------------------------------------------------------------------------//