amirghadiri1987
1 line
76 KiB
Plaintext
1 line
76 KiB
Plaintext
// MQL4&5-code
|
||
|
||
// Параллельное использование MT4 и MT5 ордерных систем.
|
||
// https://www.mql5.com/ru/code/16006
|
||
|
||
// Данный mqh-файл после соответствующего #include позволяет работать с ордерами в MQL5 (MT5-Hedge) точно так же, как в MQL4.
|
||
// Т.е. ордерная языковая система (ОЯС) становится идентичной MQL4. При этом сохраняется возможность ПАРАЛЛЕЛЬНО использовать
|
||
// MQL5-ордерную систему. В частности, стандартная MQL5-библиотека будет продолжать полноценно работать.
|
||
// Выбор между ордерными системами делать не нужно. Используйте их параллельно!
|
||
|
||
// При переводе MQL4 -> MQL5 ордерную систему трогать СОВСЕМ не требуется.
|
||
// Достаточно внести только одну строчку в начале (если исходник способен компилироваться в MT4 при #property strict):
|
||
|
||
// #include <MT4Orders.mqh> // если есть #include <Expert/Expert.mqh>, вставить эту строчку ПОСЛЕ
|
||
|
||
// Аналогично действуя (добавление одной строки) в своих MQL5-кодах, можно добавить к MT5-ОЯС еще и MT4-ОЯС, либо полностью заменить ее.
|
||
|
||
// Автор создавал такую возможность для себя, поэтому намеренно не проводил подобную же идею перехода "одной строкой"
|
||
// для таймсерий, графических объектов, индикаторов и т.д.
|
||
|
||
// Данная работа затрагивает ТОЛЬКО ордерную систему.
|
||
|
||
// Вопрос возможности создания подобной полной библиотеки, когда MQL4-код может работать в MT5 БЕЗ ИЗМЕНЕНИЙ, не решался.
|
||
|
||
// Что не реализовано:
|
||
// CloseBy-моменты - пока было не до этого. Возможно, в будущем, когда понадобится.
|
||
// Определение TP и SL закрытых позиций - на данный момент (build 1470) MQL5 этого делать не умеет.
|
||
// Учет DEAL_ENTRY_INOUT и DEAL_ENTRY_OUT_BY сделок.
|
||
|
||
// Особенности:
|
||
// В MT4 OrderSelect в режиме SELECT_BY_TICKET выбирает тикет независимо от MODE_TRADES/MODE_HISTORY,
|
||
// т.к. "Номер тикета является уникальным идентификатором ордера".
|
||
// В MT5 номер тикета НЕ уникален,
|
||
// поэтому OrderSelect в режиме SELECT_BY_TICKET имеет следующие приоритеты выбора при совпадающих тикетах:
|
||
// MODE_TRADES: существующая позиция > существующий ордер > сделка > отмененный ордер
|
||
// MODE_HISTORY: сделка > отмененный ордер > существующая позиция > существующий ордер
|
||
//
|
||
// Соответственно, OrderSelect в режиме SELECT_BY_TICKET в MT5 в редких случаях (в тестере) может выбрать не то, что задумывалось в MT4.
|
||
//
|
||
// Если вызвать OrdersTotal() со входным параметром, то возвращаемое значение будет соответствовать MT5-варианту.
|
||
|
||
// Список изменений:
|
||
// 03.08.2016:
|
||
// Релиз - писался и проверялся только на оффлайн-тестере.
|
||
// 29.09.2016:
|
||
// Add: возможность работы на бирже (SYMBOL_TRADE_EXECUTION_EXCHANGE). Учитывайте, что биржа - Netto(не Hedge)-mode.
|
||
// Add: Требование "если есть #include <Trade/Trade.mqh>, вставить эту строчку ПОСЛЕ"
|
||
// заменено на "если есть #include <Expert/Expert.mqh>, вставить эту строчку ПОСЛЕ".
|
||
// Fix: OrderSend маркет-ордеров возвращает тикет позиции, а не сделки.
|
||
// 13.11.2016:
|
||
// Add: Полная синхронизация OrderSend, OrderModify, OrderClose, OrderDelete с торговым окружением (реал-тайм и история) - как в MT4.
|
||
// Максимальное время синхронизации можно задать через MT4ORDERS::OrderSend_MaxPause в мкс. Среднее время синхронизации в MT5 ~1 мс.
|
||
// По-умолчанию максимальное время синхронизации равно одной секунде. MT4ORDERS::OrderSend_MaxPause = 0 - отсутствие синхронизации.
|
||
// Add: Поскольку параметр SlipPage (OrderSend, OrderClose) влияет на исполнение маркет-ордеров только в Instant-режиме,
|
||
// то через него теперь при желании можно задавать тип исполнения по остатку - ENUM_ORDER_TYPE_FILLING:
|
||
// ORDER_FILLING_FOK, ORDER_FILLING_IOC или ORDER_FILLING_RETURN.
|
||
// В случае ошибочного задания или не поддержки символом заданного типа исполнения автоматически будет выбран рабочий режим.
|
||
// Примеры:
|
||
// OrderSend(Symb, Type, Lots, Price, ORDER_FILLING_FOK, SL, TP) - отправить соответствующий ордер с типом исполнения ORDER_FILLING_FOK
|
||
// OrderSend(Symb, Type, Lots, Price, ORDER_FILLING_IOC, SL, TP) - отправить соответствующий ордер с типом исполнения ORDER_FILLING_IOC
|
||
// OrderClose(Ticket, Lots, Price, ORDER_FILLING_RETURN) - отправить соответствующий маркет-ордер с типом исполнения ORDER_FILLING_RETURN
|
||
// Add: OrdersHistoryTotal() и OrderSelect(Pos, SELECT_BY_POS, MODE_HISTORY) закешированы - работают максимально быстро.
|
||
// В библиотеке не осталось медленных реализаций.
|
||
// 08.02.2017:
|
||
// Add: Переменные MT4ORDERS::LastTradeRequest и MT4ORDERS::LastTradeResult содержат соответствующие данные MT5-OrderSend.
|
||
// 14.06.2017:
|
||
// Add: Включена изначально заложенная реализация определения SL/TP закрытых позиций (закрытых через OrderClose).
|
||
// Add: MagicNumber теперь имеет тип long - 8 байт (раньше был int - 4 байта).
|
||
// Add: Если в OrderSend, OrderClose или OrderModify цветовой входной параметр (самый последний) задать равным INT_MAX, то будет сформирован
|
||
// соответствующий торговый MT5-запрос (MT4ORDERS::LastTradeRequest), но отправлен он НЕ будет. Вместо этого будет проведена его MT5-проверка,
|
||
// результат которой станет доступен в MT4ORDERS::LastTradeCheckResult.
|
||
// В случае успешной проверки OrderModify и OrderClose вернут true, иначе - false.
|
||
// OrderSend вернет 0 в случае успеха, иначе - -1.
|
||
//
|
||
// Если же соответствующий цветовой входной параметр задать раным INT_MIN, то ТОЛЬКО в случае успешной MT5-проверки сформированного
|
||
// торгового запроса(как в случае с INT_MAX) он БУДЕТ отправлен.
|
||
// Add: Добавлены асинхронные аналоги MQL4-торговым функциям: OrderSendAsync, OrderModifyAsync, OrderCloseAsync, OrderDeleteAsync.
|
||
// Возвращают соответствующий Result.request_id в случае удачи, иначе - 0.
|
||
// 03.08.2017:
|
||
// Add: Добавлена OrderCloseBy.
|
||
// Add: Ускорена работа OrderSelect в MODE_TRADES-режиме. Теперь есть возможность получать данные выбранного ордера через
|
||
// соответствующие MT4-Order-функции, даже если MT5-позиция/ордер(не в истории) выбраны не через MT4Orders.
|
||
// Например, через MT5-PositionSelect*-функции или MT5-OrderSelect.
|
||
// Add: Добавлены OrderOpenPriceRequest() и OrderClosePriceRequest() - возращают цену торгового запроса при открытии/закрытии позиции.
|
||
// С помощью данных функций возможно вычислять соответствующие проскальзывания ордеров.
|
||
// 26.08.2017:
|
||
// Add: Добавлены OrderOpenTimeMsc() и OrderCloseTimeMsc() - соответствующее время в миллисекундах.
|
||
// Fix: Раньше все торговые тикеты имели тип int, как в MT4. Из-за появления случаев выхода за пределы int-типа в MT5, тип тикетов изменен на long.
|
||
// Соответственно, OrderTicket и OrderSend возвращают long-значения. Режим возврата того же типа, что и в MT4 (int), включается через
|
||
// прописывание следующей строки перед #include <MT4Orders.mqh>
|
||
|
||
// #define MT4_TICKET_TYPE // Обязываем OrderSend и OrderTicket возвращать значение такого же типа, как в MT4 - int.
|
||
// 03.09.2017:
|
||
// Add: Добавлены OrderTicketOpen() - тикет MT5-сделки открытия позиции
|
||
// OrderOpenReason() - причина проведения MT5-сделки открытия (причина открытия позиции)
|
||
// OrderCloseReason() - причина проведения MT5-сделки закрытия (причина закрытия позиции)
|
||
// 14.09.2017:
|
||
// Fix: Теперь библиотека не видит текущие MT5-ордера, которые не имеют состояние ORDER_STATE_PLACED.
|
||
// Чтобы библиотека видела все открытые MT5-ордера нужно ДО библиотеки прописать строку
|
||
//
|
||
// #define MT4ORDERS_SELECTFILTER_OFF // Обязываем MT4Orders.mqh видеть все текущие MT5-ордера
|
||
// 16.10.2017:
|
||
// Fix: OrdersHistoryTotal() реагирует на смену номера торгового счета во время выполнения.
|
||
// 13.02.2018
|
||
// Add: Добавлено логирование ошибочного выполнения MT5-OrderSend.
|
||
// Fix: Теперь "невидимы" только закрывающие MT5-ордера (SL/TP/SO, partial/full close).
|
||
// Fix: Механизм определения SL/TP закрытых позиций после OrderClose скорректирован - работает, если позволяет StopLevel.
|
||
// 15.02.2018
|
||
// Fix: Проверка синхронизации MT5-OrderSend теперь учитывает возможные особенности реализации ECN/STP.
|
||
// 06.03.2018
|
||
// Add: Добавлены TICKET_TYPE и MAGIC_TYPE, чтобы можно было писать единый кроссплатформенный код
|
||
// без предупреждений компиляторов (включая strict-режим MQL4).
|
||
// 30.05.2018
|
||
// Add: Ускорена работа с историей торговли, выбрана золотая середина реализаций между производительностью и
|
||
// потреблением памяти - важно для VPS. Используется стандартная Generic-библиотека.
|
||
// Если не хочется использовать Generic-библиотеку, то доступен старый режим работы с историей.
|
||
// Для этого нужно ДО MT4Orders-библиотеки прописать строку
|
||
//
|
||
// #define MT4ORDERS_FASTHISTORY_OFF // Выключаем быструю реализацию истории торговли - не используем Generic-библиотеку.
|
||
// 02.11.2018
|
||
// Fix: Цена открытия MT4-позиции до ее срабатывания теперь не может быть нулевой.
|
||
// Fix: Учтены редкие особенности исполнения некоторых торговых серверов.
|
||
// 26.11.2018
|
||
// Fix: Мэджик и комментарий закрытой MT4-позиции: приоритет у соответствующих полей открывающих сделок выше, чем у закрывающих.
|
||
// Fix: Учитывается редкое изменение MT5-OrdersTotal и MT5-PositionsTotal во время расчета MT4-OrdersTotal и MT4-OrderSelect.
|
||
// Fix: Ордера, которые открыли позицию, но не успели удалиться MT5, библиотекой больше не учитываются.
|
||
// 17.01.2019
|
||
// Fix: Исправлена досадная ошибка при выборе отложенных ордеров.
|
||
// 08.02.2019
|
||
// Add: Комментарий позиции сохраняется при частичном закрытии через OrderClose.
|
||
// Если нужно сменить комментарий открытой позиции при частичном закрытии, в OrderClose можно его задать.
|
||
// 20.02.2019
|
||
// Fix: В случае отсутствия MT5-ордера от существующей MT5-сделки библиотека будет ожидать синхронизации истории. В случае неудачи сообщит об этом.
|
||
|
||
|
||
#ifdef __MQL5__
|
||
#ifndef __MT4ORDERS__
|
||
|
||
#define __MT4ORDERS__
|
||
#define MT4ORDERS_SLTP_OLD // Включение старого механизма определения SL/TP закрытых позиций через OrderClose
|
||
|
||
#ifdef MT4_TICKET_TYPE
|
||
#define TICKET_TYPE int
|
||
#define MAGIC_TYPE int
|
||
|
||
#undef MT4_TICKET_TYPE
|
||
#else // MT4_TICKET_TYPE
|
||
#define TICKET_TYPE long
|
||
#define MAGIC_TYPE long
|
||
#endif // MT4_TICKET_TYPE
|
||
|
||
struct MT4_ORDER
|
||
{
|
||
long Ticket;
|
||
int Type;
|
||
|
||
long TicketOpen;
|
||
|
||
double Lots;
|
||
|
||
string Symbol;
|
||
string Comment;
|
||
|
||
double OpenPriceRequest;
|
||
double OpenPrice;
|
||
|
||
long OpenTimeMsc;
|
||
datetime OpenTime;
|
||
|
||
ENUM_DEAL_REASON OpenReason;
|
||
|
||
double StopLoss;
|
||
double TakeProfit;
|
||
|
||
double ClosePriceRequest;
|
||
double ClosePrice;
|
||
|
||
long CloseTimeMsc;
|
||
datetime CloseTime;
|
||
|
||
ENUM_DEAL_REASON CloseReason;
|
||
|
||
ENUM_ORDER_STATE State;
|
||
|
||
datetime Expiration;
|
||
|
||
long MagicNumber;
|
||
|
||
double Profit;
|
||
|
||
double Commission;
|
||
double Swap;
|
||
|
||
#define POSITION_SELECT (-1)
|
||
#define ORDER_SELECT (-2)
|
||
|
||
static const MT4_ORDER GetPositionData( void )
|
||
{
|
||
MT4_ORDER Res = {0};
|
||
|
||
Res.Ticket = ::PositionGetInteger(POSITION_TICKET);
|
||
Res.Type = (int)::PositionGetInteger(POSITION_TYPE);
|
||
|
||
Res.Lots = ::PositionGetDouble(POSITION_VOLUME);
|
||
|
||
Res.Symbol = ::PositionGetString(POSITION_SYMBOL);
|
||
// Res.Comment = NULL; // MT4ORDERS::CheckPositionCommissionComment();
|
||
|
||
Res.OpenPrice = ::PositionGetDouble(POSITION_PRICE_OPEN);
|
||
Res.OpenTime = (datetime)::PositionGetInteger(POSITION_TIME);
|
||
|
||
Res.StopLoss = ::PositionGetDouble(POSITION_SL);
|
||
Res.TakeProfit = ::PositionGetDouble(POSITION_TP);
|
||
|
||
Res.ClosePrice = ::PositionGetDouble(POSITION_PRICE_CURRENT);
|
||
Res.CloseTime = 0;
|
||
|
||
Res.Expiration = 0;
|
||
|
||
Res.MagicNumber = ::PositionGetInteger(POSITION_MAGIC);
|
||
|
||
Res.Profit = ::PositionGetDouble(POSITION_PROFIT);
|
||
|
||
Res.Swap = ::PositionGetDouble(POSITION_SWAP);
|
||
|
||
// Res.Commission = UNKNOWN_COMMISSION; // MT4ORDERS::CheckPositionCommissionComment();
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static const MT4_ORDER GetOrderData( void )
|
||
{
|
||
MT4_ORDER Res = {0};
|
||
|
||
Res.Ticket = ::OrderGetInteger(ORDER_TICKET);
|
||
Res.Type = (int)::OrderGetInteger(ORDER_TYPE);
|
||
|
||
Res.Lots = ::OrderGetDouble(ORDER_VOLUME_CURRENT);
|
||
|
||
Res.Symbol = ::OrderGetString(ORDER_SYMBOL);
|
||
Res.Comment = ::OrderGetString(ORDER_COMMENT);
|
||
|
||
Res.OpenPrice = ::OrderGetDouble(ORDER_PRICE_OPEN);
|
||
Res.OpenTime = (datetime)::OrderGetInteger(ORDER_TIME_SETUP);
|
||
|
||
Res.StopLoss = ::OrderGetDouble(ORDER_SL);
|
||
Res.TakeProfit = ::OrderGetDouble(ORDER_TP);
|
||
|
||
Res.ClosePrice = ::OrderGetDouble(ORDER_PRICE_CURRENT);
|
||
Res.CloseTime = 0; // (datetime)::OrderGetInteger(ORDER_TIME_DONE)
|
||
|
||
Res.Expiration = (datetime)::OrderGetInteger(ORDER_TIME_EXPIRATION);
|
||
|
||
Res.MagicNumber = ::OrderGetInteger(ORDER_MAGIC);
|
||
|
||
Res.Profit = 0;
|
||
|
||
Res.Commission = 0;
|
||
Res.Swap = 0;
|
||
|
||
if (!Res.OpenPrice)
|
||
Res.OpenPrice = Res.ClosePrice;
|
||
|
||
return(Res);
|
||
}
|
||
|
||
string ToString( void ) const
|
||
{
|
||
static const string Types[] = {"buy", "sell", "buy limit", "sell limit", "buy stop", "sell stop", "balance"};
|
||
const int digits = (int)::SymbolInfoInteger(this.Symbol, SYMBOL_DIGITS);
|
||
|
||
MT4_ORDER TmpOrder = {0};
|
||
|
||
if (this.Ticket == POSITION_SELECT)
|
||
{
|
||
TmpOrder = MT4_ORDER::GetPositionData();
|
||
|
||
TmpOrder.Comment = this.Comment;
|
||
TmpOrder.Commission = this.Commission;
|
||
}
|
||
else if (this.Ticket == ORDER_SELECT)
|
||
TmpOrder = MT4_ORDER::GetOrderData();
|
||
|
||
return(((this.Ticket == POSITION_SELECT) || (this.Ticket == ORDER_SELECT)) ? TmpOrder.ToString() :
|
||
("#" + (string)this.Ticket + " " +
|
||
(string)this.OpenTime + " " +
|
||
((this.Type < ::ArraySize(Types)) ? Types[this.Type] : "unknown") + " " +
|
||
::DoubleToString(this.Lots, 2) + " " +
|
||
this.Symbol + " " +
|
||
::DoubleToString(this.OpenPrice, digits) + " " +
|
||
::DoubleToString(this.StopLoss, digits) + " " +
|
||
::DoubleToString(this.TakeProfit, digits) + " " +
|
||
((this.CloseTime > 0) ? ((string)this.CloseTime + " ") : "") +
|
||
::DoubleToString(this.ClosePrice, digits) + " " +
|
||
::DoubleToString(this.Commission, 2) + " " +
|
||
::DoubleToString(this.Swap, 2) + " " +
|
||
::DoubleToString(this.Profit, 2) + " " +
|
||
((this.Comment == "") ? "" : (this.Comment + " ")) +
|
||
(string)this.MagicNumber +
|
||
(((this.Expiration > 0) ? (" expiration " + (string)this.Expiration): ""))));
|
||
}
|
||
};
|
||
|
||
#define RESERVE_SIZE 1000
|
||
#define DAY (24 * 3600)
|
||
#define HISTORY_PAUSE (MT4HISTORY::IsTester ? 0 : 5)
|
||
#define END_TIME D'31.12.3000 23:59:59'
|
||
#define THOUSAND 1000
|
||
#define LASTTIME(A) \
|
||
if (Time##A >= LastTimeMsc) \
|
||
{ \
|
||
const datetime TmpTime = (datetime)(Time##A / THOUSAND); \
|
||
\
|
||
if (TmpTime > this.LastTime) \
|
||
{ \
|
||
this.LastTotalOrders = 0; \
|
||
this.LastTotalDeals = 0; \
|
||
\
|
||
this.LastTime = TmpTime; \
|
||
LastTimeMsc = this.LastTime * THOUSAND; \
|
||
} \
|
||
\
|
||
this.LastTotal##A##s++; \
|
||
}
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
#include <Generic\HashMap.mqh>
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
|
||
class MT4HISTORY
|
||
{
|
||
private:
|
||
static const bool MT4HISTORY::IsTester;
|
||
// static long MT4HISTORY::AccountNumber;
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
CHashMap<ulong, ulong> DealsIn;
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
|
||
long Tickets[];
|
||
uint Amount;
|
||
|
||
datetime LastTime;
|
||
|
||
int LastTotalDeals;
|
||
int LastTotalOrders;
|
||
|
||
datetime LastInitTime;
|
||
|
||
bool RefreshHistory( void )
|
||
{
|
||
bool Res = false;
|
||
|
||
const datetime LastTimeCurrent = ::TimeCurrent();
|
||
|
||
if (!MT4HISTORY::IsTester && ((LastTimeCurrent >= this.LastInitTime + DAY)/* || (MT4HISTORY::AccountNumber != ::AccountInfoInteger(ACCOUNT_LOGIN))*/))
|
||
{
|
||
// MT4HISTORY::AccountNumber = ::AccountInfoInteger(ACCOUNT_LOGIN);
|
||
|
||
this.LastTime = 0;
|
||
|
||
this.LastTotalOrders = 0;
|
||
this.LastTotalDeals = 0;
|
||
|
||
this.Amount = 0;
|
||
|
||
::ArrayResize(this.Tickets, this.Amount, RESERVE_SIZE);
|
||
|
||
this.LastInitTime = LastTimeCurrent;
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
this.DealsIn.Clear();
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
}
|
||
|
||
const datetime LastTimeCurrentLeft = LastTimeCurrent - HISTORY_PAUSE;
|
||
|
||
if (::HistorySelect(this.LastTime, END_TIME)) // https://www.mql5.com/ru/forum/285631/page79#comment_9884935
|
||
{
|
||
const int TotalOrders = ::HistoryOrdersTotal();
|
||
const int TotalDeals = ::HistoryDealsTotal();
|
||
|
||
Res = ((TotalOrders > this.LastTotalOrders) || (TotalDeals > this.LastTotalDeals));
|
||
|
||
if (Res)
|
||
{
|
||
int iOrder = this.LastTotalOrders;
|
||
int iDeal = this.LastTotalDeals;
|
||
|
||
ulong TicketOrder = 0;
|
||
ulong TicketDeal = 0;
|
||
|
||
long TimeOrder = (iOrder < TotalOrders) ? ::HistoryOrderGetInteger((TicketOrder = ::HistoryOrderGetTicket(iOrder)), ORDER_TIME_DONE_MSC) : LONG_MAX;
|
||
long TimeDeal = (iDeal < TotalDeals) ? ::HistoryDealGetInteger((TicketDeal = ::HistoryDealGetTicket(iDeal)), DEAL_TIME_MSC) : LONG_MAX;
|
||
|
||
if (this.LastTime < LastTimeCurrentLeft)
|
||
{
|
||
this.LastTotalOrders = 0;
|
||
this.LastTotalDeals = 0;
|
||
|
||
this.LastTime = LastTimeCurrentLeft;
|
||
}
|
||
|
||
long LastTimeMsc = this.LastTime * THOUSAND;
|
||
|
||
while ((iDeal < TotalDeals) || (iOrder < TotalOrders))
|
||
if (TimeOrder < TimeDeal)
|
||
{
|
||
LASTTIME(Order)
|
||
|
||
if (MT4HISTORY::IsMT4Order(TicketOrder))
|
||
{
|
||
this.Amount = ::ArrayResize(this.Tickets, this.Amount + 1, RESERVE_SIZE);
|
||
|
||
this.Tickets[this.Amount - 1] = -(long)TicketOrder;
|
||
}
|
||
|
||
iOrder++;
|
||
|
||
TimeOrder = (iOrder < TotalOrders) ? ::HistoryOrderGetInteger((TicketOrder = ::HistoryOrderGetTicket(iOrder)), ORDER_TIME_DONE_MSC) : LONG_MAX;
|
||
}
|
||
else
|
||
{
|
||
LASTTIME(Deal)
|
||
|
||
if (MT4HISTORY::IsMT4Deal(TicketDeal))
|
||
{
|
||
this.Amount = ::ArrayResize(this.Tickets, this.Amount + 1, RESERVE_SIZE);
|
||
|
||
this.Tickets[this.Amount - 1] = (long)TicketDeal;
|
||
}
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
else if ((ENUM_DEAL_ENTRY)::HistoryDealGetInteger(TicketDeal, DEAL_ENTRY) == DEAL_ENTRY_IN)
|
||
this.DealsIn.Add(::HistoryDealGetInteger(TicketDeal, DEAL_POSITION_ID), TicketDeal);
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
|
||
iDeal++;
|
||
|
||
TimeDeal = (iDeal < TotalDeals) ? ::HistoryDealGetInteger((TicketDeal = ::HistoryDealGetTicket(iDeal)), DEAL_TIME_MSC) : LONG_MAX;
|
||
}
|
||
}
|
||
else if (LastTimeCurrentLeft > this.LastTime)
|
||
{
|
||
this.LastTime = LastTimeCurrentLeft;
|
||
|
||
this.LastTotalOrders = 0;
|
||
this.LastTotalDeals = 0;
|
||
}
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
public:
|
||
static bool IsMT4Deal( const ulong &Ticket )
|
||
{
|
||
const ENUM_DEAL_TYPE DealType = (ENUM_DEAL_TYPE)::HistoryDealGetInteger(Ticket, DEAL_TYPE);
|
||
const ENUM_DEAL_ENTRY DealEntry = (ENUM_DEAL_ENTRY)::HistoryDealGetInteger(Ticket, DEAL_ENTRY);
|
||
|
||
return(((DealType != DEAL_TYPE_BUY) && (DealType != DEAL_TYPE_SELL)) || // не торговая сделка
|
||
((DealEntry == DEAL_ENTRY_OUT) || (DealEntry == DEAL_ENTRY_OUT_BY))); // торговая
|
||
}
|
||
|
||
static bool IsMT4Order( const ulong &Ticket )
|
||
{
|
||
// Если отложенный ордер исполнился, его ORDER_POSITION_ID заполняется.
|
||
// https://www.mql5.com/ru/forum/170952/page70#comment_6543162
|
||
// https://www.mql5.com/ru/forum/93352/page19#comment_6646726
|
||
// Что делать в ситуации, когда лимитный ордер был частично исполнен, а затем удален?
|
||
return(/*(::HistoryOrderGetDouble(Ticket, ORDER_VOLUME_CURRENT) > 0) ||*/ !::HistoryOrderGetInteger(Ticket, ORDER_POSITION_ID));
|
||
}
|
||
|
||
MT4HISTORY( void ) : Amount(::ArrayResize(this.Tickets, 0, RESERVE_SIZE)),
|
||
LastTime(0), LastTotalDeals(0), LastTotalOrders(0), LastInitTime(0)
|
||
{
|
||
// this.RefreshHistory(); // Если история не используется, незачем забивать ресурсы.
|
||
}
|
||
|
||
ulong GetPositionDealIn( const ulong PositionIdentifier = -1 ) // 0 - нельзя, т.к. балансовая сделка тестера имеет ноль
|
||
{
|
||
ulong Ticket = 0;
|
||
|
||
if (PositionIdentifier == -1)
|
||
{
|
||
const ulong MyPositionIdentifier = ::PositionGetInteger(POSITION_IDENTIFIER);
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
if (!this.DealsIn.TryGetValue(MyPositionIdentifier, Ticket))
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
{
|
||
const datetime PosTime = (datetime)::PositionGetInteger(POSITION_TIME);
|
||
|
||
if (::HistorySelect(PosTime, PosTime))
|
||
{
|
||
const int Total = ::HistoryDealsTotal();
|
||
|
||
for (int i = 0; i < Total; i++)
|
||
{
|
||
const ulong TicketDeal = ::HistoryDealGetTicket(i);
|
||
|
||
if ((::HistoryDealGetInteger(TicketDeal, DEAL_POSITION_ID) == MyPositionIdentifier) /*&&
|
||
((ENUM_DEAL_ENTRY)::HistoryDealGetInteger(TicketDeal, DEAL_ENTRY) == DEAL_ENTRY_IN) */) // Первое упоминание и так будет DEAL_ENTRY_IN
|
||
{
|
||
Ticket = TicketDeal;
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
this.DealsIn.Add(MyPositionIdentifier, Ticket);
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
else if (PositionIdentifier && // PositionIdentifier балансовых сделок равен нулю
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
!this.DealsIn.TryGetValue(PositionIdentifier, Ticket) &&
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
::HistorySelectByPosition(PositionIdentifier) && (::HistoryDealsTotal() > 1)) // Почему > 1, а не > 0 ?!
|
||
{
|
||
Ticket = ::HistoryDealGetTicket(0); // Первое упоминание и так будет DEAL_ENTRY_IN
|
||
|
||
/*
|
||
const int Total = ::HistoryDealsTotal();
|
||
|
||
for (int i = 0; i < Total; i++)
|
||
{
|
||
const ulong TicketDeal = ::HistoryDealGetTicket(i);
|
||
|
||
if (TicketDeal > 0)
|
||
if ((ENUM_DEAL_ENTRY)::HistoryDealGetInteger(TicketDeal, DEAL_ENTRY) == DEAL_ENTRY_IN)
|
||
{
|
||
Ticket = TicketDeal;
|
||
|
||
break;
|
||
}
|
||
} */
|
||
|
||
#ifndef MT4ORDERS_FASTHISTORY_OFF
|
||
this.DealsIn.Add(PositionIdentifier, Ticket);
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
}
|
||
|
||
return(Ticket);
|
||
}
|
||
|
||
int GetAmount( void )
|
||
{
|
||
this.RefreshHistory();
|
||
|
||
return((int)this.Amount);
|
||
}
|
||
|
||
long operator []( const uint &Pos )
|
||
{
|
||
long Res = 0;
|
||
|
||
if ((Pos >= this.Amount)/* || (!MT4HISTORY::IsTester && (MT4HISTORY::AccountNumber != ::AccountInfoInteger(ACCOUNT_LOGIN)))*/)
|
||
{
|
||
this.RefreshHistory();
|
||
|
||
if (Pos < this.Amount)
|
||
Res = this.Tickets[Pos];
|
||
}
|
||
else
|
||
Res = this.Tickets[Pos];
|
||
|
||
return(Res);
|
||
}
|
||
};
|
||
|
||
static const bool MT4HISTORY::IsTester = ::MQLInfoInteger(MQL_TESTER);
|
||
// static long MT4HISTORY::AccountNumber = ::AccountInfoInteger(ACCOUNT_LOGIN);
|
||
|
||
#undef LASTTIME
|
||
#undef THOUSAND
|
||
#undef END_TIME
|
||
#undef HISTORY_PAUSE
|
||
#undef DAY
|
||
#undef RESERVE_SIZE
|
||
|
||
#define OP_BUY ORDER_TYPE_BUY
|
||
#define OP_SELL ORDER_TYPE_SELL
|
||
#define OP_BUYLIMIT ORDER_TYPE_BUY_LIMIT
|
||
#define OP_SELLLIMIT ORDER_TYPE_SELL_LIMIT
|
||
#define OP_BUYSTOP ORDER_TYPE_BUY_STOP
|
||
#define OP_SELLSTOP ORDER_TYPE_SELL_STOP
|
||
#define OP_BALANCE 6
|
||
|
||
#define SELECT_BY_POS 0
|
||
#define SELECT_BY_TICKET 1
|
||
|
||
#define MODE_TRADES 0
|
||
#define MODE_HISTORY 1
|
||
|
||
class MT4ORDERS
|
||
{
|
||
private:
|
||
static MT4_ORDER Order;
|
||
static MT4HISTORY History;
|
||
|
||
static const bool MT4ORDERS::IsTester;
|
||
static const bool MT4ORDERS::IsHedging;
|
||
|
||
static int OrderSendBug;
|
||
|
||
static bool HistorySelectOrder( const ulong &Ticket )
|
||
{
|
||
return((::HistoryOrderGetInteger(Ticket, ORDER_TICKET) == Ticket) || ::HistoryOrderSelect(Ticket));
|
||
}
|
||
|
||
static bool HistorySelectDeal( const ulong &Ticket )
|
||
{
|
||
return((::HistoryDealGetInteger(Ticket, DEAL_TICKET) == Ticket) || ::HistoryDealSelect(Ticket));
|
||
}
|
||
|
||
#define UNKNOWN_COMMISSION DBL_MIN
|
||
#define UNKNOWN_REQUEST_PRICE DBL_MIN
|
||
#define UNKNOWN_TICKET 0
|
||
// #define UNKNOWN_REASON (-1)
|
||
|
||
static bool CheckNewTicket( void )
|
||
{
|
||
static long PrevPosTimeUpdate = 0;
|
||
static long PrevPosTicket = 0;
|
||
|
||
const long PosTimeUpdate = ::PositionGetInteger(POSITION_TIME_UPDATE_MSC);
|
||
const long PosTicket = ::PositionGetInteger(POSITION_TICKET);
|
||
|
||
// На случай, если пользователь сделал выбор позиции не через MT4Orders
|
||
// Перегружать MQL5-PositionSelect* и MQL5-OrderSelect нерезонно.
|
||
// Этой проверки достаточно, т.к. несколько изменений позиции + PositionSelect в одну миллисекунду возможно только в тестере
|
||
const bool Res = ((PosTimeUpdate != PrevPosTimeUpdate) || (PosTicket != PrevPosTicket));
|
||
|
||
if (Res)
|
||
{
|
||
MT4ORDERS::GetPositionData();
|
||
|
||
PrevPosTimeUpdate = PosTimeUpdate;
|
||
PrevPosTicket = PosTicket;
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool CheckPositionTicketOpen( void )
|
||
{
|
||
if ((MT4ORDERS::Order.TicketOpen == UNKNOWN_TICKET) || MT4ORDERS::CheckNewTicket())
|
||
MT4ORDERS::Order.TicketOpen = (long)MT4ORDERS::History.GetPositionDealIn(); // Все из-за этой очень дорогой функции
|
||
|
||
return(true);
|
||
}
|
||
|
||
static bool CheckPositionCommissionComment( void )
|
||
{
|
||
if ((MT4ORDERS::Order.Commission == UNKNOWN_COMMISSION) || MT4ORDERS::CheckNewTicket())
|
||
{
|
||
MT4ORDERS::Order.Commission = ::PositionGetDouble(POSITION_COMMISSION); // Всегда ноль
|
||
MT4ORDERS::Order.Comment = ::PositionGetString(POSITION_COMMENT);
|
||
|
||
if (!MT4ORDERS::Order.Commission || (MT4ORDERS::Order.Comment == ""))
|
||
{
|
||
MT4ORDERS::CheckPositionTicketOpen();
|
||
|
||
const ulong Ticket = MT4ORDERS::Order.TicketOpen;
|
||
|
||
if ((Ticket > 0) && MT4ORDERS::HistorySelectDeal(Ticket))
|
||
{
|
||
if (!MT4ORDERS::Order.Commission)
|
||
{
|
||
const double LotsIn = ::HistoryDealGetDouble(Ticket, DEAL_VOLUME);
|
||
|
||
if (LotsIn > 0)
|
||
MT4ORDERS::Order.Commission = ::HistoryDealGetDouble(Ticket, DEAL_COMMISSION) * ::PositionGetDouble(POSITION_VOLUME) / LotsIn;
|
||
}
|
||
|
||
if (MT4ORDERS::Order.Comment == "")
|
||
MT4ORDERS::Order.Comment = ::HistoryDealGetString(Ticket, DEAL_COMMENT);
|
||
}
|
||
}
|
||
}
|
||
|
||
return(true);
|
||
}
|
||
/*
|
||
static bool CheckPositionOpenReason( void )
|
||
{
|
||
if ((MT4ORDERS::Order.OpenReason == UNKNOWN_REASON) || MT4ORDERS::CheckNewTicket())
|
||
{
|
||
MT4ORDERS::CheckPositionTicketOpen();
|
||
|
||
const ulong Ticket = MT4ORDERS::Order.TicketOpen;
|
||
|
||
if ((Ticket > 0) && (MT4ORDERS::IsTester || MT4ORDERS::HistorySelectDeal(Ticket)))
|
||
MT4ORDERS::Order.OpenReason = (ENUM_DEAL_REASON)::HistoryDealGetInteger(Ticket, DEAL_REASON);
|
||
}
|
||
|
||
return(true);
|
||
}
|
||
*/
|
||
static bool CheckPositionOpenPriceRequest( void )
|
||
{
|
||
const long PosTicket = ::PositionGetInteger(POSITION_TICKET);
|
||
|
||
if (((MT4ORDERS::Order.OpenPriceRequest == UNKNOWN_REQUEST_PRICE) || MT4ORDERS::CheckNewTicket()) &&
|
||
!(MT4ORDERS::Order.OpenPriceRequest = (::HistoryOrderSelect(PosTicket) &&
|
||
(MT4ORDERS::IsTester || (::PositionGetInteger(POSITION_TIME_MSC) ==
|
||
::HistoryOrderGetInteger(PosTicket, ORDER_TIME_DONE_MSC)))) // А нужна ли эта проверка?
|
||
? ::HistoryOrderGetDouble(PosTicket, ORDER_PRICE_OPEN)
|
||
: ::PositionGetDouble(POSITION_PRICE_OPEN)))
|
||
MT4ORDERS::Order.OpenPriceRequest = ::PositionGetDouble(POSITION_PRICE_OPEN); // На случай, если цена ордера нулевая
|
||
|
||
return(true);
|
||
}
|
||
|
||
static void GetPositionData( void )
|
||
{
|
||
MT4ORDERS::Order.Ticket = POSITION_SELECT;
|
||
|
||
MT4ORDERS::Order.Commission = UNKNOWN_COMMISSION; // MT4ORDERS::CheckPositionCommissionComment();
|
||
MT4ORDERS::Order.OpenPriceRequest = UNKNOWN_REQUEST_PRICE; // MT4ORDERS::CheckPositionOpenPriceRequest()
|
||
MT4ORDERS::Order.TicketOpen = UNKNOWN_TICKET;
|
||
// MT4ORDERS::Order.OpenReason = UNKNOWN_REASON;
|
||
|
||
return;
|
||
}
|
||
|
||
// #undef UNKNOWN_REASON
|
||
#undef UNKNOWN_TICKET
|
||
#undef UNKNOWN_REQUEST_PRICE
|
||
#undef UNKNOWN_COMMISSION
|
||
|
||
static void GetOrderData( void )
|
||
{
|
||
MT4ORDERS::Order.Ticket = ORDER_SELECT;
|
||
|
||
return;
|
||
}
|
||
|
||
static void GetHistoryOrderData( const ulong Ticket )
|
||
{
|
||
MT4ORDERS::Order.Ticket = ::HistoryOrderGetInteger(Ticket, ORDER_TICKET);
|
||
MT4ORDERS::Order.Type = (int)::HistoryOrderGetInteger(Ticket, ORDER_TYPE);
|
||
|
||
MT4ORDERS::Order.TicketOpen = MT4ORDERS::Order.Ticket;
|
||
|
||
MT4ORDERS::Order.Lots = ::HistoryOrderGetDouble(Ticket, ORDER_VOLUME_CURRENT);
|
||
|
||
if (!MT4ORDERS::Order.Lots)
|
||
MT4ORDERS::Order.Lots = ::HistoryOrderGetDouble(Ticket, ORDER_VOLUME_INITIAL);
|
||
|
||
MT4ORDERS::Order.Symbol = ::HistoryOrderGetString(Ticket, ORDER_SYMBOL);
|
||
MT4ORDERS::Order.Comment = ::HistoryOrderGetString(Ticket, ORDER_COMMENT);
|
||
|
||
MT4ORDERS::Order.OpenTimeMsc = ::HistoryOrderGetInteger(Ticket, ORDER_TIME_SETUP_MSC);
|
||
MT4ORDERS::Order.OpenTime = (datetime)(MT4ORDERS::Order.OpenTimeMsc / 1000);
|
||
|
||
MT4ORDERS::Order.OpenPrice = ::HistoryOrderGetDouble(Ticket, ORDER_PRICE_OPEN);
|
||
MT4ORDERS::Order.OpenPriceRequest = MT4ORDERS::Order.OpenPrice;
|
||
|
||
MT4ORDERS::Order.OpenReason = (ENUM_DEAL_REASON)::HistoryOrderGetInteger(Ticket, ORDER_REASON);
|
||
|
||
MT4ORDERS::Order.StopLoss = ::HistoryOrderGetDouble(Ticket, ORDER_SL);
|
||
MT4ORDERS::Order.TakeProfit = ::HistoryOrderGetDouble(Ticket, ORDER_TP);
|
||
|
||
MT4ORDERS::Order.CloseTimeMsc = ::HistoryOrderGetInteger(Ticket, ORDER_TIME_DONE_MSC);
|
||
MT4ORDERS::Order.CloseTime = (datetime)(MT4ORDERS::Order.CloseTimeMsc / 1000);
|
||
|
||
MT4ORDERS::Order.ClosePrice = ::HistoryOrderGetDouble(Ticket, ORDER_PRICE_CURRENT);
|
||
MT4ORDERS::Order.ClosePriceRequest = MT4ORDERS::Order.ClosePrice;
|
||
|
||
MT4ORDERS::Order.CloseReason = MT4ORDERS::Order.OpenReason;
|
||
|
||
MT4ORDERS::Order.State = (ENUM_ORDER_STATE)::HistoryOrderGetInteger(Ticket, ORDER_STATE);
|
||
|
||
MT4ORDERS::Order.Expiration = (datetime)::HistoryOrderGetInteger(Ticket, ORDER_TIME_EXPIRATION);
|
||
|
||
MT4ORDERS::Order.MagicNumber = ::HistoryOrderGetInteger(Ticket, ORDER_MAGIC);
|
||
|
||
MT4ORDERS::Order.Profit = 0;
|
||
|
||
MT4ORDERS::Order.Commission = 0;
|
||
MT4ORDERS::Order.Swap = 0;
|
||
|
||
return;
|
||
}
|
||
|
||
#define WHILE(A) while ((!(Res = (A))) && MT4ORDERS::Waiting())
|
||
|
||
#define TOSTR(A) #A + " = " + (string)(A) + "\n"
|
||
#define TOSTR2(A) #A + " = " + EnumToString(A) + " (" + (string)(A) + ")\n"
|
||
|
||
static void GetHistoryPositionData( const ulong Ticket )
|
||
{
|
||
MT4ORDERS::Order.Ticket = (long)Ticket;
|
||
MT4ORDERS::Order.Type = (int)::HistoryDealGetInteger(Ticket, DEAL_TYPE);
|
||
|
||
if ((MT4ORDERS::Order.Type > OP_SELL))
|
||
MT4ORDERS::Order.Type += (OP_BALANCE - OP_SELL - 1);
|
||
else
|
||
MT4ORDERS::Order.Type = 1 - MT4ORDERS::Order.Type;
|
||
|
||
MT4ORDERS::Order.Lots = ::HistoryDealGetDouble(Ticket, DEAL_VOLUME);
|
||
|
||
MT4ORDERS::Order.Symbol = ::HistoryDealGetString(Ticket, DEAL_SYMBOL);
|
||
MT4ORDERS::Order.Comment = ::HistoryDealGetString(Ticket, DEAL_COMMENT);
|
||
|
||
MT4ORDERS::Order.CloseTimeMsc = ::HistoryDealGetInteger(Ticket, DEAL_TIME_MSC);
|
||
MT4ORDERS::Order.CloseTime = (datetime)(MT4ORDERS::Order.CloseTimeMsc / 1000); // (datetime)::HistoryDealGetInteger(Ticket, DEAL_TIME);
|
||
|
||
MT4ORDERS::Order.ClosePrice = ::HistoryDealGetDouble(Ticket, DEAL_PRICE);
|
||
|
||
MT4ORDERS::Order.CloseReason = (ENUM_DEAL_REASON)::HistoryDealGetInteger(Ticket, DEAL_REASON);;
|
||
|
||
MT4ORDERS::Order.Expiration = 0;
|
||
|
||
MT4ORDERS::Order.MagicNumber = ::HistoryDealGetInteger(Ticket, DEAL_MAGIC);
|
||
|
||
MT4ORDERS::Order.Profit = ::HistoryDealGetDouble(Ticket, DEAL_PROFIT);
|
||
|
||
MT4ORDERS::Order.Commission = ::HistoryDealGetDouble(Ticket, DEAL_COMMISSION);
|
||
MT4ORDERS::Order.Swap = ::HistoryDealGetDouble(Ticket, DEAL_SWAP);
|
||
|
||
#ifndef MT4ORDERS_SLTP_OLD
|
||
MT4ORDERS::Order.StopLoss = ::HistoryDealGetDouble(Ticket, DEAL_SL);
|
||
MT4ORDERS::Order.TakeProfit = ::HistoryDealGetDouble(Ticket, DEAL_TP);
|
||
#else // MT4ORDERS_SLTP_OLD
|
||
MT4ORDERS::Order.StopLoss = 0;
|
||
MT4ORDERS::Order.TakeProfit = 0;
|
||
#endif // MT4ORDERS_SLTP_OLD
|
||
|
||
const ulong OrderTicket = ::HistoryDealGetInteger(Ticket, DEAL_ORDER);
|
||
const ulong PosTicket = ::HistoryDealGetInteger(Ticket, DEAL_POSITION_ID);
|
||
const ulong OpenTicket = (OrderTicket > 0) ? MT4ORDERS::History.GetPositionDealIn(PosTicket) : 0;
|
||
|
||
if (OpenTicket > 0)
|
||
{
|
||
const ENUM_DEAL_REASON Reason = (ENUM_DEAL_REASON)HistoryDealGetInteger(Ticket, DEAL_REASON);
|
||
const ENUM_DEAL_ENTRY DealEntry = (ENUM_DEAL_ENTRY)::HistoryDealGetInteger(Ticket, DEAL_ENTRY);
|
||
|
||
// История (OpenTicket и OrderTicket) подгружена, благодаря GetPositionDealIn, - HistorySelectByPosition
|
||
#ifdef MT4ORDERS_FASTHISTORY_OFF
|
||
const bool Res = true;
|
||
#else // MT4ORDERS_FASTHISTORY_OFF
|
||
// Частичное исполнение породит нужный ордер - https://www.mql5.com/ru/forum/227423/page2#comment_6543129
|
||
bool Res = MT4ORDERS::IsTester ? MT4ORDERS::HistorySelectOrder(OrderTicket) : MT4ORDERS::Waiting(true);
|
||
|
||
if (!Res)
|
||
WHILE(MT4ORDERS::HistorySelectOrder(OrderTicket)) // https://www.mql5.com/ru/forum/304239#comment_10710403
|
||
;
|
||
|
||
if (MT4ORDERS::HistorySelectDeal(OpenTicket)) // Обязательно сработает, т.к. OpenTicket гарантированно в истории.
|
||
#endif // MT4ORDERS_FASTHISTORY_OFF
|
||
{
|
||
MT4ORDERS::Order.TicketOpen = (long)OpenTicket;
|
||
|
||
MT4ORDERS::Order.OpenReason = Reason;
|
||
|
||
MT4ORDERS::Order.OpenPrice = ::HistoryDealGetDouble(OpenTicket, DEAL_PRICE);
|
||
|
||
MT4ORDERS::Order.OpenTimeMsc = ::HistoryDealGetInteger(OpenTicket, DEAL_TIME_MSC);
|
||
MT4ORDERS::Order.OpenTime = (datetime)(MT4ORDERS::Order.OpenTimeMsc / 1000);
|
||
|
||
const double OpenLots = ::HistoryDealGetDouble(OpenTicket, DEAL_VOLUME);
|
||
|
||
if (OpenLots > 0)
|
||
MT4ORDERS::Order.Commission += ::HistoryDealGetDouble(OpenTicket, DEAL_COMMISSION) * MT4ORDERS::Order.Lots / OpenLots;
|
||
|
||
// if (!MT4ORDERS::Order.MagicNumber) // Мэджик закрытой позиции всегда должен быть равен мэджику открывающей сделки.
|
||
const long Magic = ::HistoryDealGetInteger(OpenTicket, DEAL_MAGIC);
|
||
|
||
if (Magic)
|
||
MT4ORDERS::Order.MagicNumber = Magic;
|
||
|
||
// if (MT4ORDERS::Order.Comment == "") // Комментарий закрытой позиции всегда должен быть равен комментарию открывающей сделки.
|
||
const string StrComment = ::HistoryDealGetString(OpenTicket, DEAL_COMMENT);
|
||
|
||
if (StrComment != "")
|
||
MT4ORDERS::Order.Comment = StrComment;
|
||
|
||
if (Res)
|
||
{
|
||
#ifdef MT4ORDERS_SLTP_OLD
|
||
// Перевернуто - не ошибка: см. OrderClose.
|
||
MT4ORDERS::Order.StopLoss = ::HistoryOrderGetDouble(OrderTicket, (Reason == DEAL_REASON_SL) ? ORDER_PRICE_OPEN : ORDER_TP);
|
||
MT4ORDERS::Order.TakeProfit = ::HistoryOrderGetDouble(OrderTicket, (Reason == DEAL_REASON_TP) ? ORDER_PRICE_OPEN : ORDER_SL);
|
||
#endif // MT4ORDERS_SLTP_OLD
|
||
|
||
MT4ORDERS::Order.State = (ENUM_ORDER_STATE)::HistoryOrderGetInteger(OrderTicket, ORDER_STATE);
|
||
|
||
if (!(MT4ORDERS::Order.ClosePriceRequest = (DealEntry == DEAL_ENTRY_OUT_BY) ?
|
||
MT4ORDERS::Order.ClosePrice : ::HistoryOrderGetDouble(OrderTicket, ORDER_PRICE_OPEN)))
|
||
MT4ORDERS::Order.ClosePriceRequest = MT4ORDERS::Order.ClosePrice;
|
||
|
||
if (!(MT4ORDERS::Order.OpenPriceRequest = (MT4ORDERS::HistorySelectOrder(PosTicket) &&
|
||
// А нужна ли эта проверка?
|
||
(MT4ORDERS::IsTester || (::HistoryDealGetInteger(OpenTicket, DEAL_TIME_MSC) == ::HistoryOrderGetInteger(PosTicket, ORDER_TIME_DONE_MSC)))) ?
|
||
::HistoryOrderGetDouble(PosTicket, ORDER_PRICE_OPEN) : MT4ORDERS::Order.OpenPrice))
|
||
MT4ORDERS::Order.OpenPriceRequest = MT4ORDERS::Order.OpenPrice;
|
||
}
|
||
else
|
||
{
|
||
MT4ORDERS::Order.State = ORDER_STATE_FILLED;
|
||
|
||
MT4ORDERS::Order.ClosePriceRequest = MT4ORDERS::Order.ClosePrice;
|
||
MT4ORDERS::Order.OpenPriceRequest = MT4ORDERS::Order.OpenPrice;
|
||
}
|
||
}
|
||
|
||
if (!Res)
|
||
{
|
||
::Alert("HistoryOrderSelect(" + (string)OrderTicket + ") - BUG! MT4ORDERS - not Sync with History!");
|
||
::Alert("Please send the logs to the author - https://www.mql5.com/en/users/fxsaber");
|
||
|
||
::Print(TOSTR(::AccountInfoString(ACCOUNT_SERVER)) + TOSTR((bool)::TerminalInfoInteger(TERMINAL_CONNECTED)) +
|
||
TOSTR(::TerminalInfoInteger(TERMINAL_PING_LAST)) + TOSTR(::TerminalInfoDouble(TERMINAL_RETRANSMISSION)) +
|
||
TOSTR(::TerminalInfoInteger(TERMINAL_BUILD)) + TOSTR((bool)::TerminalInfoInteger(TERMINAL_X64)) +
|
||
TOSTR(MT4ORDERS::IsHedging) + TOSTR(Res) + TOSTR(MT4ORDERS::OrderSendBug) +
|
||
TOSTR(Ticket) + TOSTR(OrderTicket) + TOSTR(OpenTicket) + TOSTR(PosTicket) +
|
||
TOSTR(MT4ORDERS::HistorySelectOrder(OrderTicket)));
|
||
}
|
||
}
|
||
else
|
||
{
|
||
MT4ORDERS::Order.TicketOpen = MT4ORDERS::Order.Ticket;
|
||
|
||
MT4ORDERS::Order.OpenPrice = MT4ORDERS::Order.ClosePrice; // ::HistoryDealGetDouble(Ticket, DEAL_PRICE);
|
||
|
||
MT4ORDERS::Order.OpenTimeMsc = MT4ORDERS::Order.CloseTimeMsc;
|
||
MT4ORDERS::Order.OpenTime = MT4ORDERS::Order.CloseTime; // (datetime)::HistoryDealGetInteger(Ticket, DEAL_TIME);
|
||
|
||
MT4ORDERS::Order.OpenReason = MT4ORDERS::Order.CloseReason;
|
||
|
||
MT4ORDERS::Order.State = ORDER_STATE_FILLED;
|
||
|
||
MT4ORDERS::Order.ClosePriceRequest = MT4ORDERS::Order.ClosePrice;
|
||
MT4ORDERS::Order.OpenPriceRequest = MT4ORDERS::Order.OpenPrice;
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
static bool Waiting( const bool FlagInit = false )
|
||
{
|
||
static ulong StartTime = 0;
|
||
|
||
const bool Res = FlagInit ? false : (::GetMicrosecondCount() - StartTime < MT4ORDERS::OrderSend_MaxPause);
|
||
|
||
if (FlagInit)
|
||
{
|
||
StartTime = ::GetMicrosecondCount();
|
||
|
||
MT4ORDERS::OrderSendBug = 0;
|
||
}
|
||
else if (Res)
|
||
{
|
||
// ::Sleep(0); // https://www.mql5.com/ru/forum/170952/page100#comment_8750511
|
||
|
||
MT4ORDERS::OrderSendBug++;
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool EqualPrices( const double Price1, const double &Price2, const int &digits)
|
||
{
|
||
return(!::NormalizeDouble(Price1 - Price2, digits));
|
||
}
|
||
|
||
static bool HistoryDealSelect( MqlTradeResult &Result )
|
||
{
|
||
// Заменить HistorySelectByPosition на HistorySelect(PosTime, PosTime)
|
||
if (!Result.deal && Result.order && ::HistorySelectByPosition(::HistoryOrderGetInteger(Result.order, ORDER_POSITION_ID)))
|
||
for (int i = ::HistoryDealsTotal() - 1; i >= 0; i--)
|
||
{
|
||
const ulong DealTicket = ::HistoryDealGetTicket(i);
|
||
|
||
if (Result.order == ::HistoryDealGetInteger(DealTicket, DEAL_ORDER))
|
||
{
|
||
Result.deal = DealTicket;
|
||
Result.price = ::HistoryDealGetDouble(DealTicket, DEAL_PRICE);
|
||
|
||
break;
|
||
}
|
||
}
|
||
|
||
return(::HistoryDealSelect(Result.deal));
|
||
}
|
||
|
||
/*
|
||
#define MT4ORDERS_BENCHMARK Alert(MT4ORDERS::LastTradeRequest.symbol + " " + \
|
||
(string)MT4ORDERS::LastTradeResult.order + " " + \
|
||
MT4ORDERS::LastTradeResult.comment); \
|
||
Print(ToString(MT4ORDERS::LastTradeRequest) + \
|
||
ToString(MT4ORDERS::LastTradeResult));
|
||
*/
|
||
|
||
#define TMP_MT4ORDERS_BENCHMARK(A) \
|
||
static ulong Max##A = 0; \
|
||
\
|
||
if (Interval##A > Max##A) \
|
||
{ \
|
||
MT4ORDERS_BENCHMARK \
|
||
\
|
||
Max##A = Interval##A; \
|
||
}
|
||
|
||
static void OrderSend_Benchmark( const ulong &Interval1, const ulong &Interval2 )
|
||
{
|
||
#ifdef MT4ORDERS_BENCHMARK
|
||
TMP_MT4ORDERS_BENCHMARK(1)
|
||
TMP_MT4ORDERS_BENCHMARK(2)
|
||
#endif // MT4ORDERS_BENCHMARK
|
||
|
||
return;
|
||
}
|
||
|
||
#undef TMP_MT4ORDERS_BENCHMARK
|
||
|
||
static string ToString( const MqlTradeRequest &Request )
|
||
{
|
||
return(TOSTR2(Request.action) + TOSTR(Request.magic) + TOSTR(Request.order) +
|
||
TOSTR(Request.symbol) + TOSTR(Request.volume) + TOSTR(Request.price) +
|
||
TOSTR(Request.stoplimit) + TOSTR(Request.sl) + TOSTR(Request.tp) +
|
||
TOSTR(Request.deviation) + TOSTR2(Request.type) + TOSTR2(Request.type_filling) +
|
||
TOSTR2(Request.type_time) + TOSTR(Request.expiration) + TOSTR(Request.comment) +
|
||
TOSTR(Request.position) + TOSTR(Request.position_by));
|
||
}
|
||
|
||
static string ToString( const MqlTradeResult &Result )
|
||
{
|
||
return(TOSTR(Result.retcode) + TOSTR(Result.deal) + TOSTR(Result.order) +
|
||
TOSTR(Result.volume) + TOSTR(Result.price) + TOSTR(Result.bid) +
|
||
TOSTR(Result.ask) + TOSTR(Result.comment) + TOSTR(Result.request_id) +
|
||
TOSTR(Result.retcode_external));
|
||
}
|
||
|
||
static bool OrderSend( const MqlTradeRequest &Request, MqlTradeResult &Result )
|
||
{
|
||
const ulong StartTime1 = MT4ORDERS::IsTester ? 0 : ::GetMicrosecondCount();
|
||
|
||
bool Res = ::OrderSend(Request, Result);
|
||
|
||
const ulong Interval1 = MT4ORDERS::IsTester ? 0 : (::GetMicrosecondCount() - StartTime1);
|
||
|
||
const ulong StartTime2 = MT4ORDERS::IsTester ? 0 : ::GetMicrosecondCount();
|
||
|
||
if (Res && !MT4ORDERS::IsTester && (Result.retcode < TRADE_RETCODE_ERROR) && (MT4ORDERS::OrderSend_MaxPause > 0))
|
||
{
|
||
Res = (Result.retcode == TRADE_RETCODE_DONE);
|
||
MT4ORDERS::Waiting(true);
|
||
|
||
// TRADE_ACTION_CLOSE_BY отсутствует в перечне проверок
|
||
if (Request.action == TRADE_ACTION_DEAL)
|
||
{
|
||
if (!Result.deal)
|
||
{
|
||
WHILE(::OrderSelect(Result.order) || ::HistoryOrderSelect(Result.order))
|
||
;
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::OrderSelect(Result.order)) + TOSTR(::HistoryOrderSelect(Result.order)));
|
||
else if (::OrderSelect(Result.order) && !(Res = ((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE) == ORDER_STATE_PLACED) ||
|
||
((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE) == ORDER_STATE_PARTIAL)))
|
||
::Print(TOSTR(::OrderSelect(Result.order)) + TOSTR2((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE)));
|
||
}
|
||
|
||
// Если после частичного исполнения оставшаяся часть осталась висеть - false.
|
||
if (Res)
|
||
{
|
||
const bool ResultDeal = (!Result.deal) && (!MT4ORDERS::OrderSendBug);
|
||
|
||
if (MT4ORDERS::OrderSendBug && (!Result.deal))
|
||
::Print("Before ::HistoryOrderSelect(Result.order):\n" + TOSTR(MT4ORDERS::OrderSendBug) + TOSTR(Result.deal));
|
||
|
||
WHILE(::HistoryOrderSelect(Result.order))
|
||
;
|
||
|
||
// Если ранее не было OrderSend-бага и был Result.deal == 0
|
||
if (ResultDeal)
|
||
MT4ORDERS::OrderSendBug = 0;
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::HistoryOrderSelect(Result.order)));
|
||
// Если исторический ордер не исполнился (отклонили) - false
|
||
else if (!(Res = ((ENUM_ORDER_STATE)::HistoryOrderGetInteger(Result.order, ORDER_STATE) == ORDER_STATE_FILLED) ||
|
||
((ENUM_ORDER_STATE)::HistoryOrderGetInteger(Result.order, ORDER_STATE) == ORDER_STATE_PARTIAL)))
|
||
::Print(TOSTR2((ENUM_ORDER_STATE)::HistoryOrderGetInteger(Result.order, ORDER_STATE)));
|
||
}
|
||
|
||
if (Res)
|
||
{
|
||
const bool ResultDeal = (!Result.deal) && (!MT4ORDERS::OrderSendBug);
|
||
|
||
if (MT4ORDERS::OrderSendBug && (!Result.deal))
|
||
::Print("Before MT4ORDERS::HistoryDealSelect(Result):\n" + TOSTR(MT4ORDERS::OrderSendBug) + TOSTR(Result.deal));
|
||
|
||
WHILE(MT4ORDERS::HistoryDealSelect(Result))
|
||
;
|
||
|
||
// Если ранее не было OrderSend-бага и был Result.deal == 0
|
||
if (ResultDeal)
|
||
MT4ORDERS::OrderSendBug = 0;
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(MT4ORDERS::HistoryDealSelect(Result)));
|
||
}
|
||
}
|
||
else if (Request.action == TRADE_ACTION_PENDING)
|
||
{
|
||
if (Res)
|
||
{
|
||
WHILE(::OrderSelect(Result.order))
|
||
;
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::OrderSelect(Result.order)));
|
||
else if (!(Res = ((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE) == ORDER_STATE_PLACED) ||
|
||
((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE) == ORDER_STATE_PARTIAL)))
|
||
::Print(TOSTR2((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE)));
|
||
}
|
||
else
|
||
{
|
||
WHILE(::HistoryOrderSelect(Result.order))
|
||
;
|
||
|
||
::Print(TOSTR(::HistoryOrderSelect(Result.order)));
|
||
|
||
Res = false;
|
||
}
|
||
}
|
||
else if (Request.action == TRADE_ACTION_SLTP)
|
||
{
|
||
if (Res)
|
||
{
|
||
const int digits = (int)::SymbolInfoInteger(Request.symbol, SYMBOL_DIGITS);
|
||
|
||
bool EqualSL = false;
|
||
bool EqualTP = false;
|
||
|
||
do
|
||
if (Request.position ? ::PositionSelectByTicket(Request.position) : ::PositionSelect(Request.symbol))
|
||
{
|
||
EqualSL = MT4ORDERS::EqualPrices(::PositionGetDouble(POSITION_SL), Request.sl, digits);
|
||
EqualTP = MT4ORDERS::EqualPrices(::PositionGetDouble(POSITION_TP), Request.tp, digits);
|
||
}
|
||
WHILE(EqualSL && EqualTP);
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::PositionGetDouble(POSITION_SL)) + TOSTR(::PositionGetDouble(POSITION_TP)) +
|
||
TOSTR(EqualSL) + TOSTR(EqualTP) +
|
||
TOSTR(Request.position ? ::PositionSelectByTicket(Request.position) : ::PositionSelect(Request.symbol)));
|
||
}
|
||
}
|
||
else if (Request.action == TRADE_ACTION_MODIFY)
|
||
{
|
||
if (Res)
|
||
{
|
||
const int digits = (int)::SymbolInfoInteger(Request.symbol, SYMBOL_DIGITS);
|
||
|
||
bool EqualSL = false;
|
||
bool EqualTP = false;
|
||
bool EqualPrice = false;
|
||
|
||
do
|
||
if (::OrderSelect(Result.order) && ((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE) != ORDER_STATE_REQUEST_MODIFY))
|
||
{
|
||
EqualSL = MT4ORDERS::EqualPrices(::OrderGetDouble(ORDER_SL), Request.sl, digits);
|
||
EqualTP = MT4ORDERS::EqualPrices(::OrderGetDouble(ORDER_TP), Request.tp, digits);
|
||
EqualPrice = MT4ORDERS::EqualPrices(::OrderGetDouble(ORDER_PRICE_OPEN), Request.price, digits);
|
||
}
|
||
WHILE((EqualSL && EqualTP && EqualPrice));
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::OrderGetDouble(ORDER_SL)) + TOSTR(Request.sl)+
|
||
TOSTR(::OrderGetDouble(ORDER_TP)) + TOSTR(Request.tp) +
|
||
TOSTR(::OrderGetDouble(ORDER_PRICE_OPEN)) + TOSTR(Request.price) +
|
||
TOSTR(EqualSL) + TOSTR(EqualTP) + TOSTR(EqualPrice) +
|
||
TOSTR(::OrderSelect(Result.order)) +
|
||
TOSTR2((ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE)));
|
||
}
|
||
}
|
||
else if (Request.action == TRADE_ACTION_REMOVE)
|
||
{
|
||
if (Res)
|
||
WHILE(::HistoryOrderSelect(Result.order))
|
||
;
|
||
|
||
if (!Res)
|
||
::Print(TOSTR(::HistoryOrderSelect(Result.order)));
|
||
}
|
||
|
||
const ulong Interval2 = ::GetMicrosecondCount() - StartTime2;
|
||
|
||
Result.comment += " " + ::DoubleToString(Interval1 / 1000.0, 3) + " + " +
|
||
::DoubleToString(Interval2 / 1000.0, 3) + " (" + (string)MT4ORDERS::OrderSendBug + ") ms.";
|
||
|
||
if (!Res || MT4ORDERS::OrderSendBug)
|
||
{
|
||
::Alert(Res ? "OrderSend(" + (string)Result.order + ") - BUG!" : "MT4ORDERS - not Sync with History!");
|
||
::Alert("Please send the logs to the author - https://www.mql5.com/en/users/fxsaber");
|
||
|
||
::Print(TOSTR(::AccountInfoString(ACCOUNT_SERVER)) + TOSTR((bool)::TerminalInfoInteger(TERMINAL_CONNECTED)) +
|
||
TOSTR(::TerminalInfoInteger(TERMINAL_PING_LAST)) + TOSTR(::TerminalInfoDouble(TERMINAL_RETRANSMISSION)) +
|
||
TOSTR(::TerminalInfoInteger(TERMINAL_BUILD)) + TOSTR((bool)::TerminalInfoInteger(TERMINAL_X64)) +
|
||
TOSTR(MT4ORDERS::IsHedging) + TOSTR(Res) + TOSTR(MT4ORDERS::OrderSendBug) +
|
||
MT4ORDERS::ToString(Request) + MT4ORDERS::ToString(Result));
|
||
}
|
||
else
|
||
MT4ORDERS::OrderSend_Benchmark(Interval1, Interval2);
|
||
}
|
||
else if (!MT4ORDERS::IsTester)
|
||
{
|
||
Result.comment += " " + ::DoubleToString(Interval1 / 1000.0, 3) + " ms";
|
||
|
||
::Print(MT4ORDERS::ToString(Request) + MT4ORDERS::ToString(Result));
|
||
|
||
// ExpertRemove();
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
#undef TOSTR2
|
||
#undef TOSTR
|
||
#undef WHILE
|
||
|
||
static ENUM_DAY_OF_WEEK GetDayOfWeek( const datetime &time )
|
||
{
|
||
MqlDateTime sTime = {0};
|
||
|
||
::TimeToStruct(time, sTime);
|
||
|
||
return((ENUM_DAY_OF_WEEK)sTime.day_of_week);
|
||
}
|
||
|
||
static bool SessionTrade( const string &Symb )
|
||
{
|
||
datetime TimeNow = ::TimeCurrent();
|
||
|
||
const ENUM_DAY_OF_WEEK DayOfWeek = MT4ORDERS::GetDayOfWeek(TimeNow);
|
||
|
||
TimeNow %= 24 * 60 * 60;
|
||
|
||
bool Res = false;
|
||
datetime From, To;
|
||
|
||
for (int i = 0; (!Res) && ::SymbolInfoSessionTrade(Symb, DayOfWeek, i, From, To); i++)
|
||
Res = ((From <= TimeNow) && (TimeNow < To));
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool SymbolTrade( const string &Symb )
|
||
{
|
||
MqlTick Tick;
|
||
|
||
return(::SymbolInfoTick(Symb, Tick) ? (Tick.bid && Tick.ask && MT4ORDERS::SessionTrade(Symb) /* &&
|
||
((ENUM_SYMBOL_TRADE_MODE)::SymbolInfoInteger(Symb, SYMBOL_TRADE_MODE) == SYMBOL_TRADE_MODE_FULL) */) : false);
|
||
}
|
||
|
||
static bool CorrectResult( void )
|
||
{
|
||
::ZeroMemory(MT4ORDERS::LastTradeResult);
|
||
|
||
MT4ORDERS::LastTradeResult.retcode = MT4ORDERS::LastTradeCheckResult.retcode;
|
||
MT4ORDERS::LastTradeResult.comment = MT4ORDERS::LastTradeCheckResult.comment;
|
||
|
||
return(false);
|
||
}
|
||
|
||
static bool NewOrderCheck( void )
|
||
{
|
||
return((::OrderCheck(MT4ORDERS::LastTradeRequest, MT4ORDERS::LastTradeCheckResult) &&
|
||
(MT4ORDERS::IsTester || MT4ORDERS::SymbolTrade(MT4ORDERS::LastTradeRequest.symbol))) ||
|
||
(!MT4ORDERS::IsTester && MT4ORDERS::CorrectResult()));
|
||
}
|
||
|
||
static bool NewOrderSend( const int &Check )
|
||
{
|
||
return((Check == INT_MAX) ? MT4ORDERS::NewOrderCheck() :
|
||
(((Check != INT_MIN) || MT4ORDERS::NewOrderCheck()) && MT4ORDERS::OrderSend(MT4ORDERS::LastTradeRequest, MT4ORDERS::LastTradeResult) ? MT4ORDERS::LastTradeResult.retcode < TRADE_RETCODE_ERROR : false));
|
||
}
|
||
|
||
static bool ModifyPosition( const long &Ticket, MqlTradeRequest &Request )
|
||
{
|
||
const bool Res = ::PositionSelectByTicket(Ticket);
|
||
|
||
if (Res)
|
||
{
|
||
Request.action = TRADE_ACTION_SLTP;
|
||
|
||
Request.position = Ticket;
|
||
Request.symbol = ::PositionGetString(POSITION_SYMBOL); // указания одного тикета не достаточно!
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static ENUM_ORDER_TYPE_FILLING GetFilling( const string &Symb, const uint Type = ORDER_FILLING_FOK )
|
||
{
|
||
static ENUM_ORDER_TYPE_FILLING Res = ORDER_FILLING_FOK;
|
||
static string LastSymb = NULL;
|
||
static uint LastType = ORDER_FILLING_FOK;
|
||
|
||
const bool SymbFlag = (LastSymb != Symb);
|
||
|
||
if (SymbFlag || (LastType != Type)) // Можно немного ускорить, поменяв очередность проверки условия.
|
||
{
|
||
LastType = Type;
|
||
|
||
if (SymbFlag)
|
||
LastSymb = Symb;
|
||
|
||
const ENUM_SYMBOL_TRADE_EXECUTION ExeMode = (ENUM_SYMBOL_TRADE_EXECUTION)::SymbolInfoInteger(Symb, SYMBOL_TRADE_EXEMODE);
|
||
const int FillingMode = (int)::SymbolInfoInteger(Symb, SYMBOL_FILLING_MODE);
|
||
|
||
Res = (!FillingMode || (Type >= ORDER_FILLING_RETURN) || ((FillingMode & (Type + 1)) != Type + 1)) ?
|
||
(((ExeMode == SYMBOL_TRADE_EXECUTION_EXCHANGE) || (ExeMode == SYMBOL_TRADE_EXECUTION_INSTANT)) ?
|
||
ORDER_FILLING_RETURN : ((FillingMode == SYMBOL_FILLING_IOC) ? ORDER_FILLING_IOC : ORDER_FILLING_FOK)) :
|
||
(ENUM_ORDER_TYPE_FILLING)Type;
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static ENUM_ORDER_TYPE_TIME GetExpirationType( const string &Symb, uint Expiration = ORDER_TIME_GTC )
|
||
{
|
||
static ENUM_ORDER_TYPE_TIME Res = ORDER_TIME_GTC;
|
||
static string LastSymb = NULL;
|
||
static uint LastExpiration = ORDER_TIME_GTC;
|
||
|
||
const bool SymbFlag = (LastSymb != Symb);
|
||
|
||
if ((LastExpiration != Expiration) || SymbFlag)
|
||
{
|
||
LastExpiration = Expiration;
|
||
|
||
if (SymbFlag)
|
||
LastSymb = Symb;
|
||
|
||
const int ExpirationMode = (int)::SymbolInfoInteger(Symb, SYMBOL_EXPIRATION_MODE);
|
||
|
||
if ((Expiration > ORDER_TIME_SPECIFIED_DAY) || (!((ExpirationMode >> Expiration) & 1)))
|
||
{
|
||
if ((Expiration < ORDER_TIME_SPECIFIED) || (ExpirationMode < SYMBOL_EXPIRATION_SPECIFIED))
|
||
Expiration = ORDER_TIME_GTC;
|
||
else if (Expiration > ORDER_TIME_DAY)
|
||
Expiration = ORDER_TIME_SPECIFIED;
|
||
|
||
uint i = 1 << Expiration;
|
||
|
||
while ((Expiration <= ORDER_TIME_SPECIFIED_DAY) && ((ExpirationMode & i) != i))
|
||
{
|
||
i <<= 1;
|
||
Expiration++;
|
||
}
|
||
}
|
||
|
||
Res = (ENUM_ORDER_TYPE_TIME)Expiration;
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool ModifyOrder( const long &Ticket, const double &Price, const datetime &Expiration, MqlTradeRequest &Request )
|
||
{
|
||
const bool Res = ::OrderSelect(Ticket);
|
||
|
||
if (Res)
|
||
{
|
||
Request.action = TRADE_ACTION_MODIFY;
|
||
Request.order = Ticket;
|
||
|
||
Request.price = Price;
|
||
|
||
Request.symbol = ::OrderGetString(ORDER_SYMBOL);
|
||
|
||
// https://www.mql5.com/ru/forum/1111/page1817#comment_4087275
|
||
// Request.type_filling = (ENUM_ORDER_TYPE_FILLING)::OrderGetInteger(ORDER_TYPE_FILLING);
|
||
Request.type_filling = MT4ORDERS::GetFilling(Request.symbol);
|
||
Request.type_time = MT4ORDERS::GetExpirationType(Request.symbol, (uint)Expiration);
|
||
|
||
if (Expiration > ORDER_TIME_DAY)
|
||
Request.expiration = Expiration;
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool SelectByPosHistory( const int Index )
|
||
{
|
||
const long Ticket = MT4ORDERS::History[Index];
|
||
const bool Res = (Ticket > 0) ? ::HistoryDealSelect(Ticket) : ((Ticket < 0) ? ::HistoryOrderSelect(-Ticket) : false);
|
||
|
||
if (Res)
|
||
{
|
||
if (Ticket > 0)
|
||
MT4ORDERS::GetHistoryPositionData(Ticket);
|
||
else
|
||
MT4ORDERS::GetHistoryOrderData(-Ticket);
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
// https://www.mql5.com/ru/forum/227960#comment_6603506
|
||
static bool OrderVisible( void )
|
||
{
|
||
/* const ENUM_ORDER_STATE OrderState = (ENUM_ORDER_STATE)::OrderGetInteger(ORDER_STATE);
|
||
|
||
return((OrderState == ORDER_STATE_PLACED) || (OrderState == ORDER_STATE_PARTIAL));
|
||
*/
|
||
bool Res = !::OrderGetInteger(ORDER_POSITION_ID);
|
||
|
||
if (Res)
|
||
{
|
||
const long Ticket = ::PositionGetInteger(POSITION_TICKET);
|
||
|
||
if (::PositionSelectByTicket(::OrderGetInteger(ORDER_TICKET))) // Ордер и его позиция могут быть одновременно - данное условие поможет только на Hedge-счетах
|
||
{
|
||
if (Ticket && (::PositionGetInteger(POSITION_TICKET) != Ticket))
|
||
::PositionSelectByTicket(Ticket);
|
||
|
||
Res = false;
|
||
}
|
||
}
|
||
return(Res);
|
||
}
|
||
|
||
static ulong OrderGetTicket( const int Index )
|
||
{
|
||
ulong Res;
|
||
int PrevTotal;
|
||
const long PrevTicket = ::OrderGetInteger(ORDER_TICKET);
|
||
|
||
do
|
||
{
|
||
Res = 0;
|
||
PrevTotal = ::OrdersTotal();
|
||
|
||
if ((Index >= 0) && (Index < PrevTotal))
|
||
{
|
||
int Count = 0;
|
||
|
||
for (int i = 0; i < PrevTotal; i++)
|
||
{
|
||
const int Total = ::OrdersTotal();
|
||
|
||
// Во время перебора может измениться количество ордеров
|
||
if (Total != PrevTotal)
|
||
{
|
||
PrevTotal = Total;
|
||
|
||
Count = 0;
|
||
i = -1;
|
||
}
|
||
else
|
||
{
|
||
const ulong Ticket = ::OrderGetTicket(i);
|
||
|
||
if (Ticket && MT4ORDERS::OrderVisible())
|
||
{
|
||
if (Count == Index)
|
||
{
|
||
Res = Ticket;
|
||
|
||
break;
|
||
}
|
||
|
||
Count++;
|
||
}
|
||
}
|
||
}
|
||
|
||
// При неудаче выбираем тот ордер, что был выбран ранее.
|
||
if (!Res && PrevTicket && (::OrderGetInteger(ORDER_TICKET) != PrevTicket))
|
||
const bool AntiWarning = ::OrderSelect(PrevTicket);
|
||
}
|
||
} while (PrevTotal != ::OrdersTotal()); // Во время перебора может измениться количество ордеров
|
||
|
||
return(Res);
|
||
}
|
||
|
||
// С одним и тем же тикетом приоритет выбора позиции выше ордера
|
||
static bool SelectByPos( const int Index )
|
||
{
|
||
const int Total = ::PositionsTotal();
|
||
const bool Flag = (Index < Total);
|
||
|
||
const bool Res = (Flag) ? ::PositionGetTicket(Index) :
|
||
#ifdef MT4ORDERS_SELECTFILTER_OFF
|
||
::OrderGetTicket(Index - Total);
|
||
#else // MT4ORDERS_SELECTFILTER_OFF
|
||
(MT4ORDERS::IsTester ? ::OrderGetTicket(Index - Total) : MT4ORDERS::OrderGetTicket(Index - Total));
|
||
#endif //MT4ORDERS_SELECTFILTER_OFF
|
||
|
||
if (Res)
|
||
{
|
||
if (Flag)
|
||
MT4ORDERS::GetPositionData();
|
||
else
|
||
MT4ORDERS::GetOrderData();
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool SelectByHistoryTicket( const long &Ticket )
|
||
{
|
||
bool Res = ::HistoryDealSelect(Ticket) ? MT4HISTORY::IsMT4Deal(Ticket) : false;
|
||
|
||
if (Res)
|
||
MT4ORDERS::GetHistoryPositionData(Ticket);
|
||
else
|
||
{
|
||
Res = ::HistoryOrderSelect(Ticket) ? MT4HISTORY::IsMT4Order(Ticket) : false;
|
||
|
||
if (Res)
|
||
MT4ORDERS::GetHistoryOrderData(Ticket);
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool SelectByExistingTicket( const long &Ticket )
|
||
{
|
||
bool Res = true;
|
||
|
||
if (::PositionSelectByTicket(Ticket))
|
||
MT4ORDERS::GetPositionData();
|
||
else if (::OrderSelect(Ticket))
|
||
MT4ORDERS::GetOrderData();
|
||
else
|
||
Res = false;
|
||
|
||
return(Res);
|
||
}
|
||
|
||
// С одним и тем же тикетом приоритеты выбора:
|
||
// MODE_TRADES: существующая позиция > существующий ордер > сделка > отмененный ордер
|
||
// MODE_HISTORY: сделка > отмененный ордер > существующая позиция > существующий ордер
|
||
static bool SelectByTicket( const long &Ticket, const int &Pool )
|
||
{
|
||
return((Pool == MODE_TRADES) ?
|
||
(MT4ORDERS::SelectByExistingTicket(Ticket) ? true : MT4ORDERS::SelectByHistoryTicket(Ticket)) :
|
||
(MT4ORDERS::SelectByHistoryTicket(Ticket) ? true : MT4ORDERS::SelectByExistingTicket(Ticket)));
|
||
}
|
||
|
||
#ifdef MT4ORDERS_SLTP_OLD
|
||
static void CheckPrices( double &MinPrice, double &MaxPrice, const double Min, const double Max )
|
||
{
|
||
if (MinPrice && (MinPrice >= Min))
|
||
MinPrice = 0;
|
||
|
||
if (MaxPrice && (MaxPrice <= Max))
|
||
MaxPrice = 0;
|
||
|
||
return;
|
||
}
|
||
#endif // MT4ORDERS_SLTP_OLD
|
||
|
||
static int OrdersTotal( void )
|
||
{
|
||
int Res = 0;
|
||
const long PrevTicket = ::OrderGetInteger(ORDER_TICKET);
|
||
int PrevTotal;
|
||
|
||
do
|
||
{
|
||
PrevTotal = ::OrdersTotal();
|
||
|
||
for (int i = PrevTotal - 1; i >= 0; i--)
|
||
{
|
||
const int Total = ::OrdersTotal();
|
||
|
||
// Во время перебора может измениться количество ордеров
|
||
if (Total != PrevTotal)
|
||
{
|
||
PrevTotal = Total;
|
||
|
||
Res = 0;
|
||
i = PrevTotal;
|
||
}
|
||
else if (::OrderGetTicket(i) && MT4ORDERS::OrderVisible())
|
||
Res++;
|
||
}
|
||
} while (PrevTotal != ::OrdersTotal()); // Во время перебора может измениться количество ордеров
|
||
|
||
if (PrevTicket && (::OrderGetInteger(ORDER_TICKET) != PrevTicket))
|
||
const bool AntiWarning = ::OrderSelect(PrevTicket);
|
||
|
||
return(Res);
|
||
}
|
||
|
||
public:
|
||
static uint OrderSend_MaxPause; // максимальное время на синхронизацию в мкс.
|
||
|
||
static MqlTradeResult LastTradeResult;
|
||
static MqlTradeRequest LastTradeRequest;
|
||
static MqlTradeCheckResult LastTradeCheckResult;
|
||
|
||
static bool MT4OrderSelect( const long &Index, const int &Select, const int &Pool )
|
||
{
|
||
return((Select == SELECT_BY_POS) ?
|
||
((Pool == MODE_TRADES) ? MT4ORDERS::SelectByPos((int)Index) : MT4ORDERS::SelectByPosHistory((int)Index)) :
|
||
MT4ORDERS::SelectByTicket(Index, Pool));
|
||
}
|
||
|
||
// Такая "перегрузка" позволяет использоваться совместно и MT5-вариант OrderSelect
|
||
static bool MT4OrderSelect( const ulong &Ticket )
|
||
{
|
||
return(::OrderSelect(Ticket));
|
||
}
|
||
|
||
static int MT4OrdersTotal( void )
|
||
{
|
||
#ifdef MT4ORDERS_SELECTFILTER_OFF
|
||
return(::OrdersTotal() + + ::PositionsTotal());
|
||
#else // MT4ORDERS_SELECTFILTER_OFF
|
||
int Res;
|
||
|
||
if (MT4ORDERS::IsTester)
|
||
return(::OrdersTotal() + + ::PositionsTotal());
|
||
else
|
||
{
|
||
int PrevTotal;
|
||
|
||
do
|
||
{
|
||
PrevTotal = ::PositionsTotal();
|
||
|
||
Res = MT4ORDERS::OrdersTotal() + PrevTotal;
|
||
|
||
} while (PrevTotal != ::PositionsTotal()); // Отслеживаем только изменение позиций, т.к. ордера отслеживаются в MT4ORDERS::OrdersTotal()
|
||
}
|
||
|
||
return(Res); // https://www.mql5.com/ru/forum/290673#comment_9493241
|
||
#endif //MT4ORDERS_SELECTFILTER_OFF
|
||
}
|
||
|
||
// Такая "перегрузка" позволяет использоваться совместно и MT5-вариант OrdersTotal
|
||
static int MT4OrdersTotal( const bool )
|
||
{
|
||
return(::OrdersTotal());
|
||
}
|
||
|
||
static int MT4OrdersHistoryTotal( void )
|
||
{
|
||
return(MT4ORDERS::History.GetAmount());
|
||
}
|
||
|
||
static long MT4OrderSend( const string &Symb, const int &Type, const double &dVolume, const double &Price, const int &SlipPage, const double &SL, const double &TP,
|
||
const string &comment, const MAGIC_TYPE &magic, const datetime &dExpiration, const color &arrow_color )
|
||
|
||
{
|
||
::ZeroMemory(MT4ORDERS::LastTradeRequest);
|
||
|
||
MT4ORDERS::LastTradeRequest.action = (((Type == OP_BUY) || (Type == OP_SELL)) ? TRADE_ACTION_DEAL : TRADE_ACTION_PENDING);
|
||
MT4ORDERS::LastTradeRequest.magic = magic;
|
||
|
||
MT4ORDERS::LastTradeRequest.symbol = ((Symb == NULL) ? ::Symbol() : Symb);
|
||
MT4ORDERS::LastTradeRequest.volume = dVolume;
|
||
MT4ORDERS::LastTradeRequest.price = Price;
|
||
|
||
MT4ORDERS::LastTradeRequest.tp = TP;
|
||
MT4ORDERS::LastTradeRequest.sl = SL;
|
||
MT4ORDERS::LastTradeRequest.deviation = SlipPage;
|
||
MT4ORDERS::LastTradeRequest.type = (ENUM_ORDER_TYPE)Type;
|
||
|
||
MT4ORDERS::LastTradeRequest.type_filling = MT4ORDERS::GetFilling(MT4ORDERS::LastTradeRequest.symbol, (uint)MT4ORDERS::LastTradeRequest.deviation);
|
||
|
||
if (MT4ORDERS::LastTradeRequest.action == TRADE_ACTION_PENDING)
|
||
{
|
||
MT4ORDERS::LastTradeRequest.type_time = MT4ORDERS::GetExpirationType(MT4ORDERS::LastTradeRequest.symbol, (uint)dExpiration);
|
||
|
||
if (dExpiration > ORDER_TIME_DAY)
|
||
MT4ORDERS::LastTradeRequest.expiration = dExpiration;
|
||
}
|
||
|
||
if (comment != NULL)
|
||
MT4ORDERS::LastTradeRequest.comment = comment;
|
||
|
||
return((arrow_color == INT_MAX) ? (MT4ORDERS::NewOrderCheck() ? 0 : -1) :
|
||
((((int)arrow_color != INT_MIN) || MT4ORDERS::NewOrderCheck()) &&
|
||
MT4ORDERS::OrderSend(MT4ORDERS::LastTradeRequest, MT4ORDERS::LastTradeResult) ?
|
||
(MT4ORDERS::IsHedging ? (long)MT4ORDERS::LastTradeResult.order : // PositionID == Result.order - особенность MT5-Hedge
|
||
((MT4ORDERS::LastTradeRequest.action == TRADE_ACTION_DEAL) ?
|
||
(MT4ORDERS::IsTester ? (::PositionSelect(MT4ORDERS::LastTradeRequest.symbol) ? PositionGetInteger(POSITION_TICKET) : 0) :
|
||
// HistoryDealSelect в MT4ORDERS::OrderSend
|
||
::HistoryDealGetInteger(MT4ORDERS::LastTradeResult.deal, DEAL_POSITION_ID)) :
|
||
(long)MT4ORDERS::LastTradeResult.order)) : -1));
|
||
}
|
||
|
||
static bool MT4OrderModify( const long &Ticket, const double &Price, const double &SL, const double &TP, const datetime &Expiration, const color &Arrow_Color )
|
||
{
|
||
::ZeroMemory(MT4ORDERS::LastTradeRequest);
|
||
|
||
// Учитывается случай, когда присутствуют ордер и позиция с одним и тем же тикетом
|
||
bool Res = ((Ticket != MT4ORDERS::Order.Ticket) || (MT4ORDERS::Order.Ticket <= OP_SELL)) ?
|
||
(MT4ORDERS::ModifyPosition(Ticket, MT4ORDERS::LastTradeRequest) ? true : MT4ORDERS::ModifyOrder(Ticket, Price, Expiration, MT4ORDERS::LastTradeRequest)) :
|
||
(MT4ORDERS::ModifyOrder(Ticket, Price, Expiration, MT4ORDERS::LastTradeRequest) ? true : MT4ORDERS::ModifyPosition(Ticket, MT4ORDERS::LastTradeRequest));
|
||
|
||
// if (Res) // Игнорируем проверку - есть OrderCheck
|
||
{
|
||
MT4ORDERS::LastTradeRequest.tp = TP;
|
||
MT4ORDERS::LastTradeRequest.sl = SL;
|
||
|
||
Res = MT4ORDERS::NewOrderSend(Arrow_Color);
|
||
}
|
||
|
||
return(Res);
|
||
}
|
||
|
||
static bool MT4OrderClose( const long &Ticket, const double &dLots, const double &Price, const int &SlipPage, const color &Arrow_Color, const string &comment )
|
||
{
|
||
// Есть MT4ORDERS::LastTradeRequest и MT4ORDERS::LastTradeResult, поэтому на результат не влияет, но нужно для PositionGetString ниже
|
||
::PositionSelectByTicket(Ticket);
|
||
|
||
::ZeroMemory(MT4ORDERS::LastTradeRequest);
|
||
|
||
MT4ORDERS::LastTradeRequest.action = TRADE_ACTION_DEAL;
|
||
MT4ORDERS::LastTradeRequest.position = Ticket;
|
||
|
||
MT4ORDERS::LastTradeRequest.symbol = ::PositionGetString(POSITION_SYMBOL);
|
||
|
||
// Сохраняем комментарий при частичном закрытии позиции
|
||
// if (dLots < ::PositionGetDouble(POSITION_VOLUME))
|
||
MT4ORDERS::LastTradeRequest.comment = (comment == NULL) ? ::PositionGetString(POSITION_COMMENT) : comment;
|
||
|
||
// Правильно ли не задавать мэджик при закрытии? -Правильно!
|
||
MT4ORDERS::LastTradeRequest.volume = dLots;
|
||
MT4ORDERS::LastTradeRequest.price = Price;
|
||
|
||
#ifdef MT4ORDERS_SLTP_OLD
|
||
// Нужно для определения SL/TP-уровней у закрытой позиции. Перевернуто - не ошибка
|
||
// SYMBOL_SESSION_PRICE_LIMIT_MIN и SYMBOL_SESSION_PRICE_LIMIT_MAX проверять не требуется, т.к. исходные SL/TP уже установлены
|
||
MT4ORDERS::LastTradeRequest.tp = ::PositionGetDouble(POSITION_SL);
|
||
MT4ORDERS::LastTradeRequest.sl = ::PositionGetDouble(POSITION_TP);
|
||
|
||
if (MT4ORDERS::LastTradeRequest.tp || MT4ORDERS::LastTradeRequest.sl)
|
||
{
|
||
const double StopLevel = ::SymbolInfoInteger(MT4ORDERS::LastTradeRequest.symbol, SYMBOL_TRADE_STOPS_LEVEL) *
|
||
::SymbolInfoDouble(MT4ORDERS::LastTradeRequest.symbol, SYMBOL_POINT);
|
||
|
||
const bool FlagBuy = (::PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY);
|
||
const double CurrentPrice = SymbolInfoDouble(MT4ORDERS::LastTradeRequest.symbol, FlagBuy ? SYMBOL_ASK : SYMBOL_BID);
|
||
|
||
if (CurrentPrice)
|
||
{
|
||
if (FlagBuy)
|
||
MT4ORDERS::CheckPrices(MT4ORDERS::LastTradeRequest.tp, MT4ORDERS::LastTradeRequest.sl, CurrentPrice - StopLevel, CurrentPrice + StopLevel);
|
||
else
|
||
MT4ORDERS::CheckPrices(MT4ORDERS::LastTradeRequest.sl, MT4ORDERS::LastTradeRequest.tp, CurrentPrice - StopLevel, CurrentPrice + StopLevel);
|
||
}
|
||
else
|
||
{
|
||
MT4ORDERS::LastTradeRequest.tp = 0;
|
||
MT4ORDERS::LastTradeRequest.sl = 0;
|
||
}
|
||
}
|
||
#endif // MT4ORDERS_SLTP_OLD
|
||
|
||
MT4ORDERS::LastTradeRequest.deviation = SlipPage;
|
||
|
||
MT4ORDERS::LastTradeRequest.type = (ENUM_ORDER_TYPE)(1 - ::PositionGetInteger(POSITION_TYPE));
|
||
|
||
MT4ORDERS::LastTradeRequest.type_filling = MT4ORDERS::GetFilling(MT4ORDERS::LastTradeRequest.symbol, (uint)MT4ORDERS::LastTradeRequest.deviation);
|
||
|
||
return(MT4ORDERS::NewOrderSend(Arrow_Color));
|
||
}
|
||
|
||
static bool MT4OrderCloseBy( const long &Ticket, const long &Opposite, const color &Arrow_Color )
|
||
{
|
||
::ZeroMemory(MT4ORDERS::LastTradeRequest);
|
||
|
||
MT4ORDERS::LastTradeRequest.action = TRADE_ACTION_CLOSE_BY;
|
||
MT4ORDERS::LastTradeRequest.position = Ticket;
|
||
MT4ORDERS::LastTradeRequest.position_by = Opposite;
|
||
|
||
if ((!MT4ORDERS::IsTester) && ::PositionSelectByTicket(Ticket)) // нужен для MT4ORDERS::SymbolTrade()
|
||
MT4ORDERS::LastTradeRequest.symbol = ::PositionGetString(POSITION_SYMBOL);
|
||
|
||
return(MT4ORDERS::NewOrderSend(Arrow_Color));
|
||
}
|
||
|
||
static bool MT4OrderDelete( const long &Ticket, const color &Arrow_Color )
|
||
{
|
||
// bool Res = ::OrderSelect(Ticket); // Надо ли это, когда нужны MT4ORDERS::LastTradeRequest и MT4ORDERS::LastTradeResult ?
|
||
|
||
::ZeroMemory(MT4ORDERS::LastTradeRequest);
|
||
|
||
MT4ORDERS::LastTradeRequest.action = TRADE_ACTION_REMOVE;
|
||
MT4ORDERS::LastTradeRequest.order = Ticket;
|
||
|
||
if ((!MT4ORDERS::IsTester) && ::OrderSelect(Ticket)) // нужен для MT4ORDERS::SymbolTrade()
|
||
MT4ORDERS::LastTradeRequest.symbol = ::OrderGetString(ORDER_SYMBOL);
|
||
|
||
return(MT4ORDERS::NewOrderSend(Arrow_Color));
|
||
}
|
||
|
||
#define MT4_ORDERFUNCTION(NAME,T,A,B,C) \
|
||
static T MT4Order##NAME( void ) \
|
||
{ \
|
||
return(POSITION_ORDER((T)(A), (T)(B), MT4ORDERS::Order.NAME, C)); \
|
||
}
|
||
|
||
#define POSITION_ORDER(A,B,C,D) (((MT4ORDERS::Order.Ticket == POSITION_SELECT) && (D)) ? (A) : ((MT4ORDERS::Order.Ticket == ORDER_SELECT) ? (B) : (C)))
|
||
|
||
MT4_ORDERFUNCTION(Ticket, long, ::PositionGetInteger(POSITION_TICKET), ::OrderGetInteger(ORDER_TICKET), true)
|
||
MT4_ORDERFUNCTION(Type, int, ::PositionGetInteger(POSITION_TYPE), ::OrderGetInteger(ORDER_TYPE), true)
|
||
MT4_ORDERFUNCTION(Lots, double, ::PositionGetDouble(POSITION_VOLUME), ::OrderGetDouble(ORDER_VOLUME_CURRENT), true)
|
||
MT4_ORDERFUNCTION(OpenPrice, double, ::PositionGetDouble(POSITION_PRICE_OPEN), (::OrderGetDouble(ORDER_PRICE_OPEN) ? ::OrderGetDouble(ORDER_PRICE_OPEN) : ::OrderGetDouble(ORDER_PRICE_CURRENT)), true)
|
||
MT4_ORDERFUNCTION(OpenTimeMsc, long, ::PositionGetInteger(POSITION_TIME_MSC), ::OrderGetInteger(ORDER_TIME_SETUP_MSC), true)
|
||
MT4_ORDERFUNCTION(OpenTime, datetime, ::PositionGetInteger(POSITION_TIME), ::OrderGetInteger(ORDER_TIME_SETUP), true)
|
||
MT4_ORDERFUNCTION(StopLoss, double, ::PositionGetDouble(POSITION_SL), ::OrderGetDouble(ORDER_SL), true)
|
||
MT4_ORDERFUNCTION(TakeProfit, double, ::PositionGetDouble(POSITION_TP), ::OrderGetDouble(ORDER_TP), true)
|
||
MT4_ORDERFUNCTION(ClosePrice, double, ::PositionGetDouble(POSITION_PRICE_CURRENT), ::OrderGetDouble(ORDER_PRICE_CURRENT), true)
|
||
MT4_ORDERFUNCTION(CloseTimeMsc, long, 0, 0, true)
|
||
MT4_ORDERFUNCTION(CloseTime, datetime, 0, 0, true)
|
||
MT4_ORDERFUNCTION(Expiration, datetime, 0, ::OrderGetInteger(ORDER_TIME_EXPIRATION), true)
|
||
MT4_ORDERFUNCTION(MagicNumber, long, ::PositionGetInteger(POSITION_MAGIC), ::OrderGetInteger(ORDER_MAGIC), true)
|
||
MT4_ORDERFUNCTION(Profit, double, ::PositionGetDouble(POSITION_PROFIT), 0, true)
|
||
MT4_ORDERFUNCTION(Swap, double, ::PositionGetDouble(POSITION_SWAP), 0, true)
|
||
MT4_ORDERFUNCTION(Symbol, string, ::PositionGetString(POSITION_SYMBOL), ::OrderGetString(ORDER_SYMBOL), true)
|
||
MT4_ORDERFUNCTION(Comment, string, MT4ORDERS::Order.Comment, ::OrderGetString(ORDER_COMMENT), MT4ORDERS::CheckPositionCommissionComment())
|
||
MT4_ORDERFUNCTION(Commission, double, MT4ORDERS::Order.Commission, 0, MT4ORDERS::CheckPositionCommissionComment())
|
||
|
||
MT4_ORDERFUNCTION(OpenPriceRequest, double, MT4ORDERS::Order.OpenPriceRequest, ::OrderGetDouble(ORDER_PRICE_OPEN), MT4ORDERS::CheckPositionOpenPriceRequest())
|
||
MT4_ORDERFUNCTION(ClosePriceRequest, double, ::PositionGetDouble(POSITION_PRICE_CURRENT), ::OrderGetDouble(ORDER_PRICE_CURRENT), true)
|
||
|
||
MT4_ORDERFUNCTION(TicketOpen, long, MT4ORDERS::Order.TicketOpen, ::OrderGetInteger(ORDER_TICKET), MT4ORDERS::CheckPositionTicketOpen())
|
||
// MT4_ORDERFUNCTION(OpenReason, ENUM_DEAL_REASON, MT4ORDERS::Order.OpenReason, ::OrderGetInteger(ORDER_REASON), MT4ORDERS::CheckPositionOpenReason())
|
||
MT4_ORDERFUNCTION(OpenReason, ENUM_DEAL_REASON, ::PositionGetInteger(POSITION_REASON), ::OrderGetInteger(ORDER_REASON), true)
|
||
MT4_ORDERFUNCTION(CloseReason, ENUM_DEAL_REASON, 0, ::OrderGetInteger(ORDER_REASON), true)
|
||
|
||
#undef POSITION_ORDER
|
||
#undef MT4_ORDERFUNCTION
|
||
|
||
static void MT4OrderPrint( void )
|
||
{
|
||
if (MT4ORDERS::Order.Ticket == POSITION_SELECT)
|
||
MT4ORDERS::CheckPositionCommissionComment();
|
||
|
||
::Print(MT4ORDERS::Order.ToString());
|
||
|
||
return;
|
||
}
|
||
|
||
#undef ORDER_SELECT
|
||
#undef POSITION_SELECT
|
||
};
|
||
|
||
// #define OrderToString MT4ORDERS::MT4OrderToString
|
||
|
||
static MT4_ORDER MT4ORDERS::Order = {0};
|
||
|
||
static MT4HISTORY MT4ORDERS::History;
|
||
|
||
static const bool MT4ORDERS::IsTester = ::MQLInfoInteger(MQL_TESTER);
|
||
|
||
// Если переключить счет, это значение у советников все равно пересчитается
|
||
// https://www.mql5.com/ru/forum/170952/page61#comment_6132824
|
||
static const bool MT4ORDERS::IsHedging = ((ENUM_ACCOUNT_MARGIN_MODE)::AccountInfoInteger(ACCOUNT_MARGIN_MODE) ==
|
||
ACCOUNT_MARGIN_MODE_RETAIL_HEDGING);
|
||
|
||
static int MT4ORDERS::OrderSendBug = 0;
|
||
|
||
static uint MT4ORDERS::OrderSend_MaxPause = 1000000; // максимальное время на синхронизацию в мкс.
|
||
|
||
static MqlTradeResult MT4ORDERS::LastTradeResult = {0};
|
||
static MqlTradeRequest MT4ORDERS::LastTradeRequest = {0};
|
||
static MqlTradeCheckResult MT4ORDERS::LastTradeCheckResult = {0};
|
||
|
||
bool OrderClose( const long Ticket, const double dLots, const double Price, const int SlipPage, const color Arrow_Color = clrNONE, const string comment = NULL )
|
||
{
|
||
return(MT4ORDERS::MT4OrderClose(Ticket, dLots, Price, SlipPage, Arrow_Color, comment));
|
||
}
|
||
|
||
bool OrderModify( const long Ticket, const double Price, const double SL, const double TP, const datetime Expiration, const color Arrow_Color = clrNONE )
|
||
{
|
||
return(MT4ORDERS::MT4OrderModify(Ticket, Price, SL, TP, Expiration, Arrow_Color));
|
||
}
|
||
|
||
bool OrderCloseBy( const long Ticket, const long Opposite, const color Arrow_Color = clrNONE )
|
||
{
|
||
return(MT4ORDERS::MT4OrderCloseBy(Ticket, Opposite, Arrow_Color));
|
||
}
|
||
|
||
bool OrderDelete( const long Ticket, const color Arrow_Color = clrNONE )
|
||
{
|
||
return(MT4ORDERS::MT4OrderDelete(Ticket, Arrow_Color));
|
||
}
|
||
|
||
void OrderPrint( void )
|
||
{
|
||
MT4ORDERS::MT4OrderPrint();
|
||
|
||
return;
|
||
}
|
||
|
||
#define MT4_ORDERGLOBALFUNCTION(NAME,T) \
|
||
T Order##NAME( void ) \
|
||
{ \
|
||
return((T)MT4ORDERS::MT4Order##NAME()); \
|
||
}
|
||
|
||
MT4_ORDERGLOBALFUNCTION(sHistoryTotal, int)
|
||
MT4_ORDERGLOBALFUNCTION(Ticket, TICKET_TYPE)
|
||
MT4_ORDERGLOBALFUNCTION(Type, int)
|
||
MT4_ORDERGLOBALFUNCTION(Lots, double)
|
||
MT4_ORDERGLOBALFUNCTION(OpenPrice, double)
|
||
MT4_ORDERGLOBALFUNCTION(OpenTimeMsc, long)
|
||
MT4_ORDERGLOBALFUNCTION(OpenTime, datetime)
|
||
MT4_ORDERGLOBALFUNCTION(StopLoss, double)
|
||
MT4_ORDERGLOBALFUNCTION(TakeProfit, double)
|
||
MT4_ORDERGLOBALFUNCTION(ClosePrice, double)
|
||
MT4_ORDERGLOBALFUNCTION(CloseTimeMsc, long)
|
||
MT4_ORDERGLOBALFUNCTION(CloseTime, datetime)
|
||
MT4_ORDERGLOBALFUNCTION(Expiration, datetime)
|
||
MT4_ORDERGLOBALFUNCTION(MagicNumber, MAGIC_TYPE)
|
||
MT4_ORDERGLOBALFUNCTION(Profit, double)
|
||
MT4_ORDERGLOBALFUNCTION(Commission, double)
|
||
MT4_ORDERGLOBALFUNCTION(Swap, double)
|
||
MT4_ORDERGLOBALFUNCTION(Symbol, string)
|
||
MT4_ORDERGLOBALFUNCTION(Comment, string)
|
||
|
||
MT4_ORDERGLOBALFUNCTION(OpenPriceRequest, double)
|
||
MT4_ORDERGLOBALFUNCTION(ClosePriceRequest, double)
|
||
|
||
MT4_ORDERGLOBALFUNCTION(TicketOpen, long)
|
||
MT4_ORDERGLOBALFUNCTION(OpenReason, ENUM_DEAL_REASON)
|
||
MT4_ORDERGLOBALFUNCTION(CloseReason, ENUM_DEAL_REASON)
|
||
|
||
#undef MT4_ORDERGLOBALFUNCTION
|
||
|
||
// Перегруженные стандартные функции
|
||
#define OrdersTotal MT4ORDERS::MT4OrdersTotal // ПОСЛЕ Expert/Expert.mqh - идет вызов MT5-OrdersTotal()
|
||
|
||
bool OrderSelect( const long Index, const int Select, const int Pool = MODE_TRADES )
|
||
{
|
||
return(MT4ORDERS::MT4OrderSelect(Index, Select, Pool));
|
||
}
|
||
|
||
TICKET_TYPE OrderSend( const string Symb, const int Type, const double dVolume, const double Price, const int SlipPage, const double SL, const double TP,
|
||
const string comment = NULL, const MAGIC_TYPE magic = 0, const datetime dExpiration = 0, color arrow_color = clrNONE )
|
||
{
|
||
return((TICKET_TYPE)MT4ORDERS::MT4OrderSend(Symb, Type, dVolume, Price, SlipPage, SL, TP, comment, magic, dExpiration, arrow_color));
|
||
}
|
||
|
||
#define RETURN_ASYNC(A) return((A) && ::OrderSendAsync(MT4ORDERS::LastTradeRequest, MT4ORDERS::LastTradeResult) && \
|
||
(MT4ORDERS::LastTradeResult.retcode == TRADE_RETCODE_PLACED) ? MT4ORDERS::LastTradeResult.request_id : 0);
|
||
|
||
uint OrderCloseAsync( const long Ticket, const double dLots, const double Price, const int SlipPage, const color Arrow_Color = clrNONE )
|
||
{
|
||
RETURN_ASYNC(OrderClose(Ticket, dLots, Price, SlipPage, INT_MAX))
|
||
}
|
||
|
||
uint OrderModifyAsync( const long Ticket, const double Price, const double SL, const double TP, const datetime Expiration, const color Arrow_Color = clrNONE )
|
||
{
|
||
RETURN_ASYNC(OrderModify(Ticket, Price, SL, TP, Expiration, INT_MAX))
|
||
}
|
||
|
||
uint OrderDeleteAsync( const long Ticket, const color Arrow_Color = clrNONE )
|
||
{
|
||
RETURN_ASYNC(OrderDelete(Ticket, INT_MAX))
|
||
}
|
||
|
||
uint OrderSendAsync( const string Symb, const int Type, const double dVolume, const double Price, const int SlipPage, const double SL, const double TP,
|
||
const string comment = NULL, const MAGIC_TYPE magic = 0, const datetime dExpiration = 0, color arrow_color = clrNONE )
|
||
{
|
||
RETURN_ASYNC(!OrderSend(Symb, Type, dVolume, Price, SlipPage, SL, TP, comment, magic, dExpiration, INT_MAX))
|
||
}
|
||
|
||
#undef RETURN_ASYNC
|
||
|
||
#undef MT4ORDERS_SLTP_OLD
|
||
|
||
// #undef TICKET_TYPE
|
||
#endif // __MT4ORDERS__
|
||
#else // __MQL5__
|
||
#define TICKET_TYPE int
|
||
#define MAGIC_TYPE int
|
||
#endif // __MQL5__ |