131 lines
5.7 KiB
MQL5
131 lines
5.7 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| CustomOrderCheck.mq5 |
|
|
//| Copyright 2022, MetaQuotes Ltd. |
|
|
//| https://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "2022, MetaQuotes Ltd."
|
|
#property link "https://www.mql5.com"
|
|
#property description "Construct MqlTradeRequest from user input and call OrderCheck for it."
|
|
|
|
#include "..\..\Include\PRTF.mqh"
|
|
#include "..\..\Include\StructPrint.mqh"
|
|
#include "..\..\Include\TradeRetcode.mqh"
|
|
|
|
input ENUM_TRADE_REQUEST_ACTIONS Action = TRADE_ACTION_DEAL;
|
|
input ulong Magic;
|
|
input ulong Order;
|
|
input string Symbol; // Symbol (empty = current _Symbol)
|
|
input double Volume; // Volume (0 = minimal lot)
|
|
input double Price; // Price (0 = current Ask)
|
|
input double StopLimit;
|
|
input double SL;
|
|
input double TP;
|
|
input ulong Deviation;
|
|
input ENUM_ORDER_TYPE Type;
|
|
input ENUM_ORDER_TYPE_FILLING Filling;
|
|
input ENUM_ORDER_TYPE_TIME ExpirationType;
|
|
input datetime ExpirationTime;
|
|
input string Comment;
|
|
input ulong Position;
|
|
input ulong PositionBy;
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Expert initialization function |
|
|
//+------------------------------------------------------------------+
|
|
void OnInit()
|
|
{
|
|
// setup timer for postponed execution
|
|
EventSetTimer(1);
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Timer event handler |
|
|
//+------------------------------------------------------------------+
|
|
void OnTimer()
|
|
{
|
|
// once executed do nothing, wait for another setup from user
|
|
EventKillTimer();
|
|
|
|
// output current account state for reference
|
|
PRTF(AccountInfoDouble(ACCOUNT_EQUITY));
|
|
PRTF(AccountInfoDouble(ACCOUNT_PROFIT));
|
|
PRTF(AccountInfoDouble(ACCOUNT_MARGIN));
|
|
PRTF(AccountInfoDouble(ACCOUNT_MARGIN_FREE));
|
|
PRTF(AccountInfoDouble(ACCOUNT_MARGIN_LEVEL));
|
|
|
|
// initialize structs with zeros
|
|
MqlTradeRequest request = {};
|
|
MqlTradeCheckResult result = {};
|
|
|
|
// default values
|
|
const bool kindOfBuy = (Type & 1) == 0 && Type < ORDER_TYPE_CLOSE_BY;
|
|
const string symbol = StringLen(Symbol) == 0 ? _Symbol : Symbol;
|
|
const double volume = Volume == 0 ? SymbolInfoDouble(symbol, SYMBOL_VOLUME_MIN) : Volume;
|
|
const double price = Price == 0 ? SymbolInfoDouble(symbol, kindOfBuy ? SYMBOL_ASK : SYMBOL_BID) : Price;
|
|
|
|
// fill the struct
|
|
request.action = Action;
|
|
request.magic = Magic;
|
|
request.order = Order;
|
|
request.symbol = symbol;
|
|
request.volume = volume;
|
|
request.price = price;
|
|
request.stoplimit = StopLimit;
|
|
request.sl = SL;
|
|
request.tp = TP;
|
|
request.deviation = Deviation;
|
|
request.type = Type;
|
|
request.type_filling = Filling;
|
|
request.type_time = ExpirationType;
|
|
request.expiration = ExpirationTime;
|
|
request.comment = Comment;
|
|
request.position = Position;
|
|
request.position_by = PositionBy;
|
|
|
|
// check-up and print out results
|
|
ResetLastError();
|
|
PRTF(OrderCheck(request, result));
|
|
StructPrint(request, ARRAYPRINT_HEADER);
|
|
Print(TRCSTR(result.retcode));
|
|
StructPrint(result, ARRAYPRINT_HEADER, 2);
|
|
|
|
// call OrderCalcMargin for reference
|
|
double margin = 0;
|
|
ResetLastError();
|
|
PRTF(OrderCalcMargin(Type, symbol, volume, price, margin));
|
|
PRTF(margin);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
/*
|
|
example output:
|
|
|
|
AccountInfoDouble(ACCOUNT_EQUITY)=15565.22 / ok
|
|
AccountInfoDouble(ACCOUNT_PROFIT)=0.0 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN)=0.0 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN_FREE)=15565.22 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN_LEVEL)=0.0 / ok
|
|
OrderCheck(request,result)=true / ok
|
|
[action] [magic] [order] [symbol] [volume] [price] [stoplimit] [sl] [tp] [deviation] [type] [type_filling] [type_time] [expiration] [comment] [position] [position_by] [reserved]
|
|
1 0 0 "XAUUSD" 0.01 1899.97 0.00 0.00 0.00 0 0 0 0 1970.01.01 00:00:00 "" 0 0 0
|
|
OK_0
|
|
[retcode] [balance] [equity] [profit] [margin] [margin_free] [margin_level] [comment] [reserved]
|
|
0 15565.22 15565.22 0.00 19.00 15546.22 81922.21 "Done" 0
|
|
OrderCalcMargin(Type,symbol,volume,price,margin)=true / ok
|
|
margin=19.0 / ok
|
|
|
|
AccountInfoDouble(ACCOUNT_EQUITY)=9999.540000000001 / ok
|
|
AccountInfoDouble(ACCOUNT_PROFIT)=-0.83 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN)=79.22 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN_FREE)=9920.32 / ok
|
|
AccountInfoDouble(ACCOUNT_MARGIN_LEVEL)=12622.49431961626 / ok
|
|
OrderCheck(request,result)=true / ok
|
|
[action] [magic] [order] [symbol] [volume] [price] [stoplimit] [sl] [tp] [deviation] [type] [type_filling] [type_time] [expiration] [comment] [position] [position_by] [reserved]
|
|
1 0 0 "PLZL.MM" 1.0 12642.0 0.0 0.0 0.0 0 0 0 0 1970.01.01 00:00:00 " " 0 0 0
|
|
OK_0
|
|
[retcode] [balance] [equity] [profit] [margin] [margin_free] [margin_level] [comment] [reserved]
|
|
0 10000.87 9999.54 -0.83 158.26 9841.28 6318.43 "Done" 0
|
|
OrderCalcMargin(Type,symbol,volume,price,margin)=true / ok
|
|
margin=79.04000000000001 / ok
|
|
|
|
*/
|
|
//+------------------------------------------------------------------+
|