ONLINE Business - Trading System

Close all multi currency open orders and cancel pending orders
according to various scenarios. Slippage for open orders is calculated
for each currency.
Choose only one scenario per visit, the script processes the first menu item selected.


//+------------------------------------------------------------------+
//| _CloseOpenOrders.mq4 |
//| Copyright © 2007, sx ted |
//| Purpose: Close all multi currency open orders for Rich. |
//| Slippage is calculated for each currency. |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, sx ted"
#property show_confirm // Rich remove this line to make it faster but be careful to select the right script
 
//+------------------------------------------------------------------+
//| EX4 imports |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
 
//+------------------------------------------------------------------+
//| global variables to program: |
//+------------------------------------------------------------------+
double Price[2];
int giSlippage;
 
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
void start() {
 int iOrders=OrdersTotal()-1, i;
 
 for(i=iOrders; i>=0; i--) {
 if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()<=OP_SELL) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) OrderError();
 }
}
 
//+------------------------------------------------------------------+
//| Function..: OrderError |
//+------------------------------------------------------------------+
void OrderError() {
 int iError=GetLastError();
 Print("Order:",OrderTicket()," GetLastError()=",iError," ",ErrorDescription(iError));
}
 
//+------------------------------------------------------------------+
//| Function..: GetMarketInfo |
//| Returns...: bool Success. |
//+------------------------------------------------------------------+
bool GetMarketInfo() {
 RefreshRates();
 Price[0]=MarketInfo(OrderSymbol(),MODE_ASK);
 Price[1]=MarketInfo(OrderSymbol(),MODE_BID);
 double dPoint=MarketInfo(OrderSymbol(),MODE_POINT);
 if(dPoint==0) return(false);
 giSlippage=(Price[0]-Price[1])/dPoint;
 return(Price[0]>0.0 && Price[1]>0.0);
}
//+------------------------------------------------------------------+