#property show_inputs
#property copyright "expforex"
#property link "http://expforex.at.ua"
//+------------------------------------------------------------------+
//| EX4 imports |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
#property show_inputs
extern string Ðàçðàáîò÷èê="http://expforex.at.ua";
extern string òåêñò="0-Çàêðûòü âñå îðäåðà";
extern string òåêñò2="1-Çàêðûòü âñå îðäåðà Buy";
extern string òåêñò3="2-Çàêðûòü âñå îðäåðà Sell";
extern string òåêñò4="3-Çàêðûòü âñå îðäåðà BuyStop";
extern string òåêñò5="4-Çàêðûòü âñå îðäåðà Sellstop";
extern string òåêñò6="5-Çàêðûòü âñå îðäåðà ñ ïðîôèòîì";
extern string òåêñò7="6-Çàêðûòü âñå îðäåðà ñ óáûòêîì";
extern int Ñïîñîáçàêðûòèÿ=0;
extern bool AllSymbols=true;
//+------------------------------------------------------------------+
//| global variables to program: |
//+------------------------------------------------------------------+
double Price[2];
int giSlippage;
bool CloseOpenOrders = true;
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
void init()
{
Stamp();
start();
}
void start() {
int iOrders=OrdersTotal()-1, i;
if (AllSymbols==true){
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==2||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
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)) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==1||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUY) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1],giSlippage)) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó Stop |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==3||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUYSTOP) && !OrderDelete(OrderTicket())) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó Stop |
//+-------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==4||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUYSTOP) && !OrderDelete(OrderTicket())) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â ïðîôèòå |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==5){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderProfit() >= 0)) {
if((OrderType()<=OP_SELL) && GetMarketInfo()) {
if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
}
}
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â óáûòêå |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==6){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderProfit() < 0)) {
if((OrderType()<=OP_SELL) && GetMarketInfo()) {
if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
}
}
}
}
}}
//************************************************************************************************
if (AllSymbols==false){
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==2||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()<=OP_SELL) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==1||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUY) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1],giSlippage)) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó Stop |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==3||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUYSTOP) && !OrderDelete(OrderTicket())) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó Stop |
//+-------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==4||Ñïîñîáçàêðûòèÿ==0){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUYSTOP) && !OrderDelete(OrderTicket())) Print(OrderError());
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â ïðîôèòå |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==5){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderProfit() >= 0)) {
if((OrderType()<=OP_SELL) && GetMarketInfo()) {
if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
}
}
}
}
}
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â óáûòêå |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==6){
if(CloseOpenOrders) {
for(i=iOrders; i>=0; i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderProfit() < 0)) {
if((OrderType()<=OP_SELL) && GetMarketInfo()) {
if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
}
}
}
}
}}
}
//+------------------------------------------------------------------+
//| Function..: OrderError |
//+------------------------------------------------------------------+
string OrderError() {
int iError=GetLastError();
return(StringConcatenate("Order:",OrderTicket()," GetLastError()=",iError," ",ErrorDescription(iError)));
}
//+------------------------------------------------------------------+
//| Function..: GetMarketInfo |
//+------------------------------------------------------------------+
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);
}
//+------------------------------------------------------------------+
void Stamp(){
ObjectCreate("Original", OBJ_LABEL, 0, 0, 0);
ObjectSetText("Original", " ---http://Expforex.at.ua---", 10, "Arial Bold", Red);
ObjectSet("Original", OBJPROP_CORNER, 2);
ObjectSet("Original", OBJPROP_XDISTANCE, 200);
ObjectSet("Original", OBJPROP_YDISTANCE, 10);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
Other Features: