RoyFaldo/MQLArticles
Watch
1
0
Fork
You've already forked MQLArticles
 0
forked from nique_372/MQLArticles
Code Pull requests Activity
MQLArticles/RM/AccountStatus.mqh
Nique_372 a9148870a6
2026-03-02 12:39:28 -05:00

1095 lines
83 KiB
MQL5
RawPermalinkBlameHistory

//+------------------------------------------------------------------+
//| AccountStatus.mqh |
//| Copyright 2025, Niquel Mendoza. |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2025, Niquel Mendoza."
#property link "https://www.mql5.com"
#property strict
#ifndef MQLARTICLES_RM_ACCOUNTSTATUS_MQH
#define MQLARTICLES_RM_ACCOUNTSTATUS_MQH
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
#include "RM_Functions.mqh"
#include <Math/Stat/Stat.mqh>
//+------------------------------------------------------------------+
//| Defines |
//+------------------------------------------------------------------+
//--- Events
#define ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION (8)
#define ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY (16)
#define ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD (32)
#define ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE (64)
#define ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE (128)
#define ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT (256)
#define ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT (512)
#define ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS (1024)
#define ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT (2048)
//--- All events
#define ACCOUNT_STATUS_REG_FLAG_ALL (ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION | \
ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY | \
ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD | \
ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE | \
ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE | \
ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT | \
ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT | \
ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS | \
ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT)
//---
#define ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_TP 1
#define ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_SL 2
#define ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_TP_SL (ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_TP|ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_SL)
//---
#define ACCOUNT_STATUS_FLAG_FREE (1)
#define ACCOUNT_STATUS_FLAG_INIT (2)
//+------------------------------------------------------------------+
//| Global Variables |
//+------------------------------------------------------------------+
double account_status_curr_profit; // Profit en flotante - profit in float
bool account_status_positions_open; // Flag indicating if there are open positions in the account
//+------------------------------------------------------------------+
//| Class for account management |
//+------------------------------------------------------------------+
class CAccountStatus : public CAllClassEventsBasic
{
private:
//---
uint8_t m_flags;
//--- Event Subscribers Arrays
CAccountGestor* m_on_open_close_position[];
int m_on_open_close_position_size;
CAccountGestor* m_on_position_modify[];
int m_on_position_modify_size;
CAccountGestor* m_on_order_add[];
int m_on_order_add_size;
CAccountGestor* m_on_order_update[];
int m_on_order_update_size;
CAccountGestor* m_on_order_delete[];
int m_on_order_delete_size;
CAccountGestor* m_on_new_profit[];
int m_on_new_profit_size;
CAccountGestor* m_on_withdrawal_deposit[];
int m_on_withdrawal_deposit_size;
CAccountGestor* m_on_init_new_pos[];
int m_on_init_new_pos_size;
CAccountGestor* m_on_loss_profit[];
int m_on_loss_profit_size;
//---
CTicketsInfo* open_positions; // CTicketsInfo type object for efficient ticket management
//---
double account_daily_profit; // Account profit (adding EAs and user etc, total) daily
double account_weekly_profit; // Account profit (adding EAs and user etc, total) weekly
double account_monthly_profit; // Account profit (adding EAs and user etc, total) monthly
double account_gross_profit; // Account profit (adding EAs and user etc, total) total
//---
ROrder last_order_struct;
//--- Most recent structure of the opened or closed position
ROnOpenClosePosition last_struct;
// Variables that store a property of the last deal (when adding a deal, TRADE_TRANSACTION_DEAL_ADD)
ulong last_deal_ticket; // Ticket
ENUM_DEAL_TYPE last_deal_type; // Deal type
ulong last_deal_magic; // Magic
// Variable that stores the last symbol for specific events (TRADE_TRANSACTION_DEAL_ADD, TRADE_TRANSACTION_ORDER_DELETE)
string last_trans_symbol; // Symbol
//--- Function to update profits
void UpdateProfitInit();
void UpdateProfit(const double new_profit);
//---
void RemoveFromArrayFast(CAccountGestor* &array[], int &size, CAccountGestor* &ptr);
public:
CAccountStatus();
~CAccountStatus();
//--- Tipos (publcios para facil acceso.. recuerda NO modificar)
datetime last_day_time; // Opening time of the current daily candle
datetime last_weekly_time; // Opening time of the current weekly candle
datetime last_monthly_time; // Opening time of the current monthly candle
//--- Event Registration Method
void RegisterEvents(CAccountGestor* ptr, const int flags);
void UnregisterEvents(CAccountGestor* ptr, const int flags);
void UnregisterEvent(CAccountGestor* ptr, const int event);
void RegisterEvent(CAccountGestor* ptr, const int event);
//--- Getter
//- Tickets
__forceinline Position GetPosition(ulong ticket) { return open_positions.GetByTicket(ticket); } // Get Position by ticket
__forceinline int16_t GetPositionsTotal() const { return open_positions.Total(); } // Get total number of open positions
__forceinline bool TheTicketExists(const ulong ticket) const { return open_positions.Exists(ticket); } // Check if ticket exists in positions array
//- Profits
inline double AccountGrossProfit() const { return account_gross_profit; }
inline double AccountDailyProfit() const { return account_daily_profit; }
inline double AccountWeeklyProfit() const { return account_weekly_profit; }
inline double AccountMonthlyProfit() const { return account_monthly_profit; }
//- Esta iniciado ?
__forceinline bool IsInitialized() const { return (m_flags & ACCOUNT_STATUS_FLAG_INIT) != 0; }
//- Aun esta activo?? (util para deinciacion en destrucotr de herederos de CAccountGestor)
__forceinline bool IsActive() const { return (m_flags & ACCOUNT_STATUS_FLAG_FREE) == 0; }
//- Ultima transaccion
inline string LastTransctionSymbol() const { return last_trans_symbol; }
__forceinline ROnOpenClosePosition LastStructPosition() const { return last_struct; }
__forceinline Position LastPosition() const { return last_struct.position; }
//- Deals (solo en DEAL_TRANSACTION_ADD)
__forceinline ulong LastDealMagic() const { return last_deal_magic; }
__forceinline ulong LastDealTicket() const { return last_deal_ticket; }
//--- Events
void OnTradeTransactionEvent(const MqlTradeTransaction& trans); // Should be executed in OnTradeTransaction
void OnInitEvent(); // Should be executed in OnInit, at the end
void OnNewDay(const datetime curr_time) override final; // The function should be called every new day
void OnNewWeek(const datetime curr_time) override final; // The function should be called every new week
void OnNewMonth(const datetime curr_time) override final; // The function should be called every new month
//--- Info functions
void PrintLastOrder();
void PrintLastPosition();
//---
void Deinit(const int reason);
};
//+------------------------------------------------------------------+
//| Constructor |
//+------------------------------------------------------------------+
CAccountStatus::CAccountStatus(void)
:
account_daily_profit(0.00), account_weekly_profit(0.00), account_gross_profit(0.00), account_monthly_profit(0.00),
m_on_open_close_position_size(0), m_on_position_modify_size(0), m_on_order_add_size(0), m_on_order_update_size(0),
m_on_order_delete_size(0), m_on_new_profit_size(0), m_on_withdrawal_deposit_size(0), m_on_init_new_pos_size(0), m_on_loss_profit_size(0),
m_flags(0)
{
//---
account_status_curr_profit = 0.00;
account_status_positions_open = false;
//---
open_positions = new CTicketsInfo();
AddLogger(open_positions);
}
//+------------------------------------------------------------------+
//| Destructor |
//+------------------------------------------------------------------+
CAccountStatus::~CAccountStatus()
{
//Print("Entrando");
CleanItems("AccountStatus");
// CBasicEvents::Unregister(CAllClassEventsBasic *ptr,const uchar flags) no tiene sentido. dado que es global...
// Entonces es eliminar cuando se elimina... asi que dejemos que mql5 haga loq eu tenga que hacer
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void CAccountStatus_Deinit(const int reason)
{
// WRapper para poder pasarlo
account_status.Deinit(reason);
}
//+------------------------------------------------------------------+
void CAccountStatus::Deinit(const int reason)
{
//--- Limpiamos todos los arrays
// SOlo ejecutamos en caso la clase solo tenga la benadera de incilzaicon
// En caso tenga otra bandera como free entonces no se ejeucta
if((m_flags & ACCOUNT_STATUS_FLAG_INIT) == ACCOUNT_STATUS_FLAG_INIT)
{
//---
m_on_open_close_position_size = ArrayResize(m_on_open_close_position, 0);
m_on_position_modify_size = ArrayResize(m_on_position_modify, 0);
m_on_order_add_size = ArrayResize(m_on_order_add, 0);
m_on_order_update_size = ArrayResize(m_on_order_update, 0);
m_on_order_delete_size = ArrayResize(m_on_order_delete, 0);
m_on_new_profit_size = ArrayResize(m_on_new_profit, 0);
m_on_withdrawal_deposit_size = ArrayResize(m_on_withdrawal_deposit, 0);
m_on_init_new_pos_size = ArrayResize(m_on_init_new_pos, 0);
m_on_loss_profit_size = ArrayResize(m_on_loss_profit, 0);
//---
m_flags |= ACCOUNT_STATUS_FLAG_FREE;
}
}
//+------------------------------------------------------------------+
//| Registro y De-Registro |
//+------------------------------------------------------------------+
void CAccountStatus::RegisterEvents(CAccountGestor* ptr, const int flags)
{
//---
if(!CheckPointer(ptr))
{
LogFatalError("Puntero invalido registrado", FUNCION_ACTUAL);
Remover();
return;
}
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION) != 0)
m_on_open_close_position[ArrayResize(m_on_open_close_position, (++m_on_open_close_position_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY) != 0)
m_on_position_modify[ArrayResize(m_on_position_modify, (++m_on_position_modify_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD) != 0)
m_on_order_add[ArrayResize(m_on_order_add, (++m_on_order_add_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE) != 0)
m_on_order_update[ArrayResize(m_on_order_update, (++m_on_order_update_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE) != 0)
m_on_order_delete[ArrayResize(m_on_order_delete, (++m_on_order_delete_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT) != 0)
m_on_new_profit[ArrayResize(m_on_new_profit, (++m_on_new_profit_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT) != 0)
m_on_withdrawal_deposit[ArrayResize(m_on_withdrawal_deposit, (++m_on_withdrawal_deposit_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS) != 0)
m_on_init_new_pos[ArrayResize(m_on_init_new_pos, (++m_on_init_new_pos_size)) - 1] = ptr;
//---
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT) != 0)
m_on_loss_profit[ArrayResize(m_on_loss_profit, (++m_on_loss_profit_size)) - 1] = ptr;
}
//+------------------------------------------------------------------+
void CAccountStatus::RegisterEvent(CAccountGestor* ptr, const int event)
{
//---
if(!CheckPointer(ptr))
{
LogFatalError("Puntero invalido registrado", FUNCION_ACTUAL);
Remover();
return;
}
//---
if(event == ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION)
m_on_open_close_position[ArrayResize(m_on_open_close_position, (++m_on_open_close_position_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY)
m_on_position_modify[ArrayResize(m_on_position_modify, (++m_on_position_modify_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD)
m_on_order_add[ArrayResize(m_on_order_add, (++m_on_order_add_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE)
m_on_order_update[ArrayResize(m_on_order_update, (++m_on_order_update_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE)
m_on_order_delete[ArrayResize(m_on_order_delete, (++m_on_order_delete_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT)
m_on_new_profit[ArrayResize(m_on_new_profit, (++m_on_new_profit_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT)
m_on_withdrawal_deposit[ArrayResize(m_on_withdrawal_deposit, (++m_on_withdrawal_deposit_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS)
m_on_init_new_pos[ArrayResize(m_on_init_new_pos, (++m_on_init_new_pos_size)) - 1] = ptr;
//---
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT)
m_on_loss_profit[ArrayResize(m_on_loss_profit, (++m_on_loss_profit_size)) - 1] = ptr;
}
//+------------------------------------------------------------------+
//| De-Suscribirse |
//+------------------------------------------------------------------+
void CAccountStatus::UnregisterEvents(CAccountGestor* ptr, const int flags)
{
if(!CheckPointer(ptr))
{
LogError("Invalid pointer for unregister", FUNCION_ACTUAL);
return;
}
//--- OnOpenClosePosition
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION) != 0)
RemoveFromArrayFast(m_on_open_close_position, m_on_open_close_position_size, ptr);
//--- OnPositionModify
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY) != 0)
RemoveFromArrayFast(m_on_position_modify, m_on_position_modify_size, ptr);
//--- OnOrderAdd
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD) != 0)
RemoveFromArrayFast(m_on_order_add, m_on_order_add_size, ptr);
//--- OnOrderUpdate
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE) != 0)
RemoveFromArrayFast(m_on_order_update, m_on_order_update_size, ptr);
//--- OnOrderDelete
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE) != 0)
RemoveFromArrayFast(m_on_order_delete, m_on_order_delete_size, ptr);
//--- OnNewProfit
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT) != 0)
RemoveFromArrayFast(m_on_new_profit, m_on_new_profit_size, ptr);
//--- OnWithdrawalDeposit
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT) != 0)
RemoveFromArrayFast(m_on_withdrawal_deposit, m_on_withdrawal_deposit_size, ptr);
//--- OnInitNewPos
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS) != 0)
RemoveFromArrayFast(m_on_init_new_pos, m_on_init_new_pos_size, ptr);
//--- OnLossProfit
if((flags & ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT) != 0)
RemoveFromArrayFast(m_on_loss_profit, m_on_loss_profit_size, ptr);
}
//+------------------------------------------------------------------+
void CAccountStatus::UnregisterEvent(CAccountGestor* ptr, const int event)
{
if(!CheckPointer(ptr))
{
LogError("Invalid pointer for unregister", FUNCION_ACTUAL);
return;
}
//--- OnOpenClosePosition
if(event == ACCOUNT_STATUS_REG_FLAG_ON_OPEN_CLOSE_POSITION)
RemoveFromArrayFast(m_on_open_close_position, m_on_open_close_position_size, ptr);
//--- OnPositionModify
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_POSITION_MODIFY)
RemoveFromArrayFast(m_on_position_modify, m_on_position_modify_size, ptr);
//--- OnOrderAdd
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_ADD)
RemoveFromArrayFast(m_on_order_add, m_on_order_add_size, ptr);
//--- OnOrderUpdate
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_UPDATE)
RemoveFromArrayFast(m_on_order_update, m_on_order_update_size, ptr);
//--- OnOrderDelete
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_ORDER_DELETE)
RemoveFromArrayFast(m_on_order_delete, m_on_order_delete_size, ptr);
//--- OnNewProfit
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_NEW_PROFIT)
RemoveFromArrayFast(m_on_new_profit, m_on_new_profit_size, ptr);
//--- OnWithdrawalDeposit
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_WITHDRAWAL_DEPOSIT)
RemoveFromArrayFast(m_on_withdrawal_deposit, m_on_withdrawal_deposit_size, ptr);
//--- OnInitNewPos
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_INIT_NEW_POS)
RemoveFromArrayFast(m_on_init_new_pos, m_on_init_new_pos_size, ptr);
//--- OnLossProfit
else
if(event == ACCOUNT_STATUS_REG_FLAG_ON_LOSS_PROFIT)
RemoveFromArrayFast(m_on_loss_profit, m_on_loss_profit_size, ptr);
}
//+------------------------------------------------------------------+
void CAccountStatus::RemoveFromArrayFast(CAccountGestor* &array[], int &size, CAccountGestor* &ptr)
{
for(int i = 0; i < size; i++)
{
if(array[i] == ptr)
{
array[i] = array[size - 1];
ArrayResize(array, (--size));
//LogInfo(StringFormat("Event subscriber removed (size now: %d)", size), FUNCION_ACTUAL);
return;
}
}
//LogWarning("Pointer not found in event array", FUNCION_ACTUAL);
}
//+------------------------------------------------------------------+
//| Function that executes every new day |
//+------------------------------------------------------------------+
void CAccountStatus::OnNewDay(const datetime curr_time)
{
this.last_day_time = curr_time - (curr_time % 86400);
this.account_daily_profit = 0.0;
}
//+------------------------------------------------------------------+
//| Function that executes every new month |
//+------------------------------------------------------------------+
void CAccountStatus::OnNewMonth(const datetime curr_time)
{
if((m_flags & ACCOUNT_STATUS_FLAG_INIT) == 0)
{
LogError("Account status no INICIADO", FUNCION_ACTUAL);
Remover();
return;
}
this.last_monthly_time = CTimeUtils::StartOfMonth(curr_time);
this.account_monthly_profit = 0.0;
}
//+------------------------------------------------------------------+
//| Function that executes weekly |
//+------------------------------------------------------------------+
void CAccountStatus::OnNewWeek(const datetime curr_time)
{
this.last_weekly_time = CTimeUtils::StartOfWeek(curr_time, true);
this.account_weekly_profit = 0.0;
}
//+------------------------------------------------------------------+
//| Function that executes in OnInit |
//+------------------------------------------------------------------+
void CAccountStatus::OnInitEvent()
{
//---
if((m_flags & ACCOUNT_STATUS_FLAG_INIT) != 0)
{
LogWarning("Clase ya iniciada", FUNCION_ACTUAL);
return;
}
//---
const datetime curr_time = TimeCurrent();
//--- Initialize the profit collection variables
this.last_day_time = curr_time - (curr_time % 86400);
this.last_weekly_time = CTimeUtils::StartOfWeek(curr_time, true);
this.last_monthly_time = CTimeUtils::StartOfMonth(curr_time);
this.m_flags |= ACCOUNT_STATUS_FLAG_INIT;
//--- Registramos para que reciba el evento
CBasicEvents::Register(&this, BASICEVENT_REG_ALL_FLAG);
//--- Initialize the managers with the new profit
UpdateProfitInit();
//---
ROnOpenClosePosition profit;
profit.account_balance = AccountInfoDouble(ACCOUNT_BALANCE);
profit.account_profit_diario = this.account_daily_profit;
profit.account_profit_mensual = this.account_monthly_profit;
profit.account_profit_semanal = this.account_weekly_profit;
profit.account_profit_total = this.account_gross_profit;
//--- Notify OnNewProfit subscribers
for(int i = 0; i < m_on_new_profit_size; i++)
m_on_new_profit[i].OnNewProfit(profit, curr_time);
//--- Check if there are open trades
const int pos_total = PositionsTotal();
//--- If there are open positions we add them
if(pos_total > 0)
{
for(int i = pos_total - 1; i >= 0; i--)
{
const ulong position_ticket = PositionGetTicket(i);
if(!PositionSelectByTicket(position_ticket))
continue;
//---
last_trans_symbol = PositionGetString(POSITION_SYMBOL);
//---
static Position new_pos;
new_pos.type = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
new_pos.ticket = position_ticket;
new_pos.profit = GetTotalPositionProfitNoCurrent(position_ticket);
new_pos.magic = (ulong)PositionGetInteger(POSITION_MAGIC);
new_pos.tp = PositionGetDouble(POSITION_TP);
new_pos.sl = PositionGetDouble(POSITION_SL);
new_pos.open_time = (datetime)PositionGetInteger(POSITION_TIME);
new_pos.open_price = PositionGetDouble(POSITION_PRICE_OPEN);
new_pos.volume = PositionGetDouble(POSITION_VOLUME);
open_positions.Add(new_pos);
//---
profit.position = new_pos;
//--- Notify OnInitNewPos subscribers
for(int k = 0; k < m_on_init_new_pos_size; k++)
m_on_init_new_pos[k].OnInitNewPos(profit);
}
}
}
//+------------------------------------------------------------------+
//| Function to update profits |
//+------------------------------------------------------------------+
void CAccountStatus::UpdateProfit(const double new_profit)
{
//---
this.account_gross_profit += new_profit;
this.account_daily_profit += new_profit;
this.account_weekly_profit += new_profit;
this.account_monthly_profit += new_profit;
//---
if(IsInfoLogEnabled())
{
FastLog(FUNCION_ACTUAL, INFO_TEXT, "New profits:");
Print("Daily profit: ", this.account_daily_profit);
Print("Weekly profit: ", this.account_weekly_profit);
Print("Monthly profit: ", this.account_monthly_profit);
Print("Gross profit: ", this.account_gross_profit);
}
//--- Notify OnLossProfit subscribers
for(int i = 0; i < m_on_loss_profit_size; i++)
m_on_loss_profit[i].OnLossProfit(new_profit);
}
//+------------------------------------------------------------------+
void CAccountStatus::UpdateProfitInit()
{
//---
this.account_gross_profit = GetNetProfitSince(true, 0, D'1972.01.01 00:00');
this.account_daily_profit = GetNetProfitSince(true, 0, this.last_day_time);
this.account_weekly_profit = GetNetProfitSince(true, 0, this.last_weekly_time);
this.account_monthly_profit = GetNetProfitSince(true, 0, this.last_monthly_time);
//---
if(IsInfoLogEnabled())
{
FastLog(FUNCION_ACTUAL, INFO_TEXT, "New profits:");
Print("Daily profit: ", this.account_daily_profit);
Print("Weekly profit: ", this.account_weekly_profit);
Print("Monthly profit: ", this.account_monthly_profit);
Print("Gross profit: ", this.account_gross_profit);
}
}
//+------------------------------------------------------------------+
//| Function to execute in OnTick |
//+------------------------------------------------------------------+
#define CAccountStatus_OnTickEvent account_status_curr_profit = AccountInfoDouble(ACCOUNT_EQUITY) - AccountInfoDouble(ACCOUNT_BALANCE);
//+------------------------------------------------------------------+
//| OnTradeTransaction event |
//+------------------------------------------------------------------+
//--- Activa el evento de OnOrderAdd
//#define CACCOUNT_STATUS_ACTIVE_ON_ORDER_ADD
//--- Activa el evento de OnOrderUpdate
//#define CACCOUNT_STATUS_ACTIVE_ON_ORDER_UPDATE
//--- Activa el evento de OnOrderDelete
//#define CACCOUNT_STATUS_ACTIVE_ON_ORDER_DELETE
//--- Activa el evento de OnPositionModifed
//#define CACCOUNT_STATUS_ACTIVE_ON_POSITION_MODIFIED
//--- En los evenots de ordenes, su definicion activa que tamiben cuenten las ordenes de compra y venta
//#define CACCOUNT_STATUS_COUNT_ORDERS_BUY_SELL
//---
void CAccountStatus::OnTradeTransactionEvent(const MqlTradeTransaction &trans)
{
//---
switch(trans.type)
{
//---
case TRADE_TRANSACTION_ORDER_ADD: // 0
{
#ifdef CACCOUNT_STATUS_ACTIVE_ON_ORDER_ADD
#ifndef CACCOUNT_STATUS_COUNT_ORDERS_BUY_SELL
if(!EsUnaOrderPendiente[trans.order_type])
return;
#endif // CACCOUNT_STATUS_COUNT_ORDERS_BUY_SELL
//---
if(OrderSelect(trans.order))
{
//---
last_trans_symbol = trans.symbol;
//---
last_order_struct.order_open_price = trans.price;
last_order_struct.order_stop_loss = trans.price_sl;
last_order_struct.order_take_profit = trans.price_tp;
last_order_struct.order_magic = OrderGetInteger(ORDER_MAGIC);
last_order_struct.order_ticket = trans.order;
last_order_struct.order_time_expiration = trans.time_expiration;
last_order_struct.order_reason = (ENUM_ORDER_REASON)OrderGetInteger(ORDER_REASON);
last_order_struct.order_type = trans.order_type;
last_order_struct.order_state = trans.order_state;
last_order_struct.order_type_time = trans.time_type;
//--- Notify OnOrderAdd subscribers
for(int i = 0; i < m_on_order_add_size; i++)
m_on_order_add[i].OnOrderAdd(last_order_struct);
}
else
{
LogError(StringFormat("Error al seleccionar la orden %I64u", trans.order), FUNCION_ACTUAL);
}
#endif // CACCOUNT_STATUS_ACTIVE_ON_ORDER_ADD
//---
break;
}
//---
case TRADE_TRANSACTION_ORDER_UPDATE: // 1
{
#ifdef CACCOUNT_STATUS_ACTIVE_ON_ORDER_UPDATE
#ifndef CACCOUNT_STATUS_COUNT_ORDERS_BUY_SELL
if(!EsUnaOrderPendiente[trans.order_type])
return;
#endif // CACCOUNT_STATUS_COUNT_ORDERS_BUY_SELL
//---
if(OrderSelect(trans.order))
{
//---
last_trans_symbol = trans.symbol;
//---
last_order_struct.order_open_price = trans.price;
last_order_struct.order_stop_loss = trans.price_sl;
last_order_struct.order_take_profit = trans.price_tp;
last_order_struct.order_magic = OrderGetInteger(ORDER_MAGIC);
last_order_struct.order_ticket = trans.order;
last_order_struct.order_time_expiration = trans.time_expiration;
last_order_struct.order_reason = (ENUM_ORDER_REASON)OrderGetInteger(ORDER_REASON);
last_order_struct.order_type = trans.order_type;
last_order_struct.order_state = trans.order_state;
last_order_struct.order_type_time = trans.time_type;
//--- Notify OnOrderUpdate subscribers
for(int i = 0; i < m_on_order_update_size; i++)
m_on_order_update[i].OnOrderUpdate(last_order_struct);
}
else
{
LogError(StringFormat("Error al seleccionar la orden %I64u", trans.order), FUNCION_ACTUAL);
}
#endif // CACCOUNT_STATUS_ACTIVE_ON_ORDER_UPDATE
//---
break;
}
//---
case TRADE_TRANSACTION_ORDER_DELETE: // 2
{
//---
break;
}
//---
case TRADE_TRANSACTION_HISTORY_ADD: // 3
{
#ifdef CACCOUNT_STATUS_ACTIVE_ON_ORDER_DELETE
//---
if(EsUnaOrderPendiente[trans.order_type])
{
if(HistoryOrderSelect(trans.order))
{
// Se llama antes que historyadd
//---
last_trans_symbol = trans.symbol;
//---
last_order_struct.order_open_price = trans.price;
last_order_struct.order_stop_loss = trans.price_sl;
last_order_struct.order_take_profit = trans.price_tp;
last_order_struct.order_magic = HistoryOrderGetInteger(trans.order, ORDER_MAGIC);
last_order_struct.order_ticket = trans.order;
last_order_struct.order_time_expiration = trans.time_expiration;
last_order_struct.order_reason = (ENUM_ORDER_REASON)HistoryOrderGetInteger(trans.order, ORDER_REASON);
last_order_struct.order_type = trans.order_type;
last_order_struct.order_state = trans.order_state;
last_order_struct.order_type_time = trans.time_type;
//--- Notify OnOrderDelete subscribers
for(int i = 0; i < m_on_order_delete_size; i++)
m_on_order_delete[i].OnOrderDelete(last_order_struct);
}
else
{
LogError(StringFormat("Error al seleccionar la orden %I64u", trans.order), FUNCION_ACTUAL);
}
}
#endif // CACCOUNT_STATUS_ACTIVE_ON_ORDER_DELETE
break;
}
//---
case TRADE_TRANSACTION_HISTORY_UPDATE: // 4
{
break;
}
//---
case TRADE_TRANSACTION_HISTORY_DELETE: // 5
{
break;
}
//---
case TRADE_TRANSACTION_DEAL_ADD: // 6
{
//---
last_deal_type = trans.deal_type;
last_deal_ticket = trans.deal;
last_trans_symbol = trans.symbol;
//---
if(last_deal_type == DEAL_TYPE_BUY || last_deal_type == DEAL_TYPE_SELL)
{
HistoryDealSelect(trans.deal);
const ENUM_DEAL_ENTRY entry = (ENUM_DEAL_ENTRY)HistoryDealGetInteger(last_deal_ticket, DEAL_ENTRY);
last_deal_magic = (ulong)HistoryDealGetInteger(last_deal_ticket, DEAL_MAGIC);
const ulong position_ticket = trans.position;
//---
const double deal_profit = HistoryDealGetDouble(last_deal_ticket, DEAL_PROFIT); // Get deal profit
const double deal_commission = HistoryDealGetDouble(last_deal_ticket, DEAL_COMMISSION); // Get commission
//---
if(entry == DEAL_ENTRY_IN && PositionSelectByTicket(trans.position))
{
//---
LogInfo(StringFormat("Position %I64u opened with magic %I64u", position_ticket, last_deal_magic), FUNCION_ACTUAL);
//--- Activate open positions flag
account_status_positions_open = true;
//--- Calculate the profit
const double deal_net_profit = deal_profit + deal_commission; // Calculate net profit
//--- Create a new position to add to the tickets
static Position new_pos;
new_pos.type = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
new_pos.ticket = position_ticket;
new_pos.magic = last_deal_magic;
new_pos.profit = deal_net_profit;
new_pos.open_time = (datetime)PositionGetInteger(POSITION_TIME);
new_pos.open_price = trans.price;
new_pos.sl = trans.price_sl;
new_pos.tp = trans.price_tp;
new_pos.volume = trans.volume;
//---
UpdateProfit(deal_net_profit); //Update the profit
//--- Add to positions array
open_positions.Add(new_pos);
//--- Set the new structure
last_struct.position = new_pos;
// Account
last_struct.account_balance = AccountInfoDouble(ACCOUNT_BALANCE);
last_struct.account_profit_diario = account_daily_profit;
last_struct.account_profit_total = account_gross_profit;
last_struct.account_profit_mensual = account_monthly_profit;
last_struct.account_profit_semanal = account_weekly_profit;
// Deal
last_struct.deal_entry_type = entry;
last_struct.deal_ticket = last_deal_ticket;
last_struct.deal_profit = deal_net_profit;
last_struct.deal_reason = (ENUM_DEAL_REASON)HistoryDealGetInteger(last_deal_ticket, DEAL_REASON);
// Extra
last_struct.magic_number_closed = 0;
//--- Notify OnOpenClosePosition subscribers
for(int i = 0; i < m_on_open_close_position_size; i++)
m_on_open_close_position[i].OnOpenClosePosition(last_struct);
//---
return;
}
if(entry != DEAL_ENTRY_OUT)
break;
//---
#define ACCOUNT_STATUS_MIN_VOL 0.00000001
//---
int16_t pos_idx;
if(open_positions.GetByTicket(position_ticket, last_struct.position, pos_idx))
{
// Print("Vol: ", DoubleToString(trans.volume));
//---
if((last_struct.position.volume - trans.volume) < ACCOUNT_STATUS_MIN_VOL) // Cierre completo
{
//---
open_positions.DeleteByIndex(pos_idx);
//---
LogCaution(StringFormat("Position with ticket %I64u has been closed", position_ticket), FUNCION_ACTUAL);
//--- Get the most recent profit
const double deal_swap = HistoryDealGetDouble(last_deal_ticket, DEAL_SWAP); // Get swap fees
const double deal_net_profit = deal_profit + deal_commission + deal_swap; // Calculate net profit
//---
if(GetPositionsTotal() == 0)
account_status_positions_open = false;
//--- Update its profit
last_struct.position.profit += deal_net_profit;
//--- Update the general profit
UpdateProfit(deal_net_profit);
//--- Set the new structure
// Ya se hace
// Account
last_struct.account_balance = AccountInfoDouble(ACCOUNT_BALANCE);
last_struct.account_profit_diario = account_daily_profit;
last_struct.account_profit_total = account_gross_profit;
last_struct.account_profit_mensual = account_monthly_profit;
last_struct.account_profit_semanal = account_weekly_profit;
// Deal
last_struct.deal_entry_type = entry; //market entry type (ENTRY_OUT)
last_struct.deal_ticket = last_deal_ticket; //Closing deal ticket
last_struct.deal_profit = deal_net_profit; //Net profit (excluding commissions)
last_struct.deal_reason = (ENUM_DEAL_REASON)HistoryDealGetInteger(last_deal_ticket, DEAL_REASON);
// Extra
last_struct.magic_number_closed = last_deal_magic; //Ticket with which the position was closed
//--- Notify OnOpenClosePosition subscribers
for(int i = 0; i < m_on_open_close_position_size; i++)
m_on_open_close_position[i].OnOpenClosePosition(last_struct);
//---
break;
}
else
{
//---
LogCaution(StringFormat("Possible partial closure of the position: %I64u", position_ticket), FUNCION_ACTUAL);
//---
const double deal_swap = HistoryDealGetDouble(last_deal_ticket, DEAL_SWAP); // Get swap fees
const double deal_net_profit = deal_profit + deal_commission + deal_swap; // Calculate net profit
//---
open_positions.UpdatePositionPartial(deal_net_profit, trans.volume, pos_idx); //Update the profit of the position that partially closed
//---
UpdateProfit(deal_net_profit);
//---
break;
}
//---
break;
}
}
else
if(last_deal_type == DEAL_TYPE_BALANCE || last_deal_type == DEAL_TYPE_CHARGE) // Withdrawal or deposit
{
HistoryDealSelect(last_deal_ticket);
const double deal_profit = HistoryDealGetDouble(last_deal_ticket, DEAL_PROFIT); // Get deal profit
//---
if(fabs(deal_profit) < 0.0000000001)
break;
//--- Notify OnWithdrawalDeposit subscribers
for(int i = 0; i < m_on_withdrawal_deposit_size; i++)
m_on_withdrawal_deposit[i].OnWithdrawalDeposit(deal_profit);
//---
break;
}
//---
break;
}
//---
case TRADE_TRANSACTION_DEAL_UPDATE: // 7
{
break;
}
//---
case TRADE_TRANSACTION_DEAL_DELETE: // 8
{
break;
}
//---
case TRADE_TRANSACTION_POSITION: // 9
{
#ifdef CACCOUNT_STATUS_ACTIVE_ON_POSITION_MODIFIED
const ulong t = trans.position;
if(open_positions.GetByTicket(t, last_struct.position))
{
//---
last_trans_symbol = trans.symbol;
//---
uint8_t f = 0;
//--- Cambio tp
const double new_tp = trans.price_tp;
if(last_struct.position.tp != new_tp)
{
open_positions.UpdateTp(new_tp, t);
last_struct.position.tp = new_tp;
f |= ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_TP;
}
//--- Cambio sl
const double new_sl = trans.price_sl;
if(last_struct.position.sl != new_sl)
{
open_positions.UpdateSl(new_sl, t);
last_struct.position.sl = new_sl;
f |= ACCOUNTSTATUS_ON_POS_MODIFY_FLAG_CHANGE_SL;
}
//--- Notify OnPositionModify subscribers
if(f)
for(int i = 0; i < m_on_position_modify_size; i++)
m_on_position_modify[i].OnPositionModify(last_struct.position, f);
}
#endif // CACCOUNT_STATUS_ACTIVE_ON_POSITION_MODIFIED
break;
}
//---
case TRADE_TRANSACTION_REQUEST: // 10
{
break;
}
}
}
//+------------------------------------------------------------------+
//| Print last order values |
//+------------------------------------------------------------------+
void CAccountStatus::PrintLastOrder(void)
{
Print("--- Last Order ---");
Print("Ticket: ", last_order_struct.order_ticket);
Print("Type: ", EnumToString(last_order_struct.order_type));
Print("State: ", EnumToString(last_order_struct.order_state));
Print("Magic: ", last_order_struct.order_magic);
Print("Open Price: ", last_order_struct.order_open_price);
Print("Stop Loss: ", last_order_struct.order_stop_loss);
Print("Take Profit: ", last_order_struct.order_take_profit);
Print("Expiration: ", last_order_struct.order_time_expiration);
Print("Time Type: ", EnumToString(last_order_struct.order_type_time));
Print("Reason: ", EnumToString(last_order_struct.order_reason));
}
//+------------------------------------------------------------------+
//| Print last position values |
//+------------------------------------------------------------------+
void CAccountStatus::PrintLastPosition(void)
{
Print("--- Last Position ---");
Print("Ticket: ", last_struct.position.ticket);
Print("Type: ", EnumToString(last_struct.position.type));
Print("Magic: ", last_struct.position.magic);
Print("Open Price: ", last_struct.position.open_price);
Print("Open Time: ", last_struct.position.open_time);
Print("Stop Loss: ", last_struct.position.sl);
Print("Take Profit: ", last_struct.position.tp);
Print("Profit: ", last_struct.position.profit);
}
// Nota importante:
// En versiones antiguas los obejtos agregados (regisrados) SE ELIMINABAN de la clase.. ahora YA NO
// La clase ya no gestiona los LOGS NI elimina los obejtos agregados a ella, solo da los eventos
CAccountStatus account_status;
#endif // MQLARTICLES_RM_ACCOUNTSTATUS_MQH
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
View git blameCopy permalink