| //+------------------------------------------------------------------+
|
| //| NewsTrader.mq5 |
|
| //| Copyright 2025, Leo. |
|
| //| https://www.mql5.com/es/users/nique_372/news |
|
| //+------------------------------------------------------------------+
|
| #property copyright "Copyright 2025, Leo."
|
| #property link "https://www.mql5.com/es/users/nique_372/news"
|
| #property version "1.00"
|
| #property strict
|
|
|
| //#define TO_INCLUDE1
|
| //#define NEW_BAR_MANAGER_DEBUG
|
| //+------------------------------------------------------------------+
|
| //| Include |
|
| //+------------------------------------------------------------------+
|
| #define PUBLIC_VERSION
|
| #include "..\\..\\..\\Secrets.mqh"
|
| #include "Main.mqh"
|
| #include <TSN\\MQLArticles\\PosMgmt\\Trailing Stop.mqh>
|
|
|
| //+------------------------------------------------------------------+
|
| //| Inputs |
|
| //+------------------------------------------------------------------+
|
| sinput group "----------| Config |----------" //General
|
| #ifdef PUBLIC_VERSION
|
| sinput group ""
|
| sinput group "-------| TBP License |-------"
|
| input string InpTbpLicense = ""; // Put here your TBP user id
|
| #else // PUBLIC_VERSION
|
| const string InpTbpLicense = THE_BOT_PLACE_USER_ID;
|
| #endif // PUBLIC_VERSION
|
|
|
| sinput group ""
|
| sinput group "-------| General |-------"
|
| input ulong Magic = 777; // Magic Number of EA
|
|
|
| sinput group ""
|
| sinput group "-------| Strategy |-------" //Aqui parametros de la estrategia
|
| input ENUM_VERBOSE_LOG_LEVEL log_level_strategy = VERBOSE_LOG_LEVEL_CAUTION; //Strategy log level:
|
|
|
| sinput group "-----| TP/SL by Fixed |-----" //TP SL
|
| input ENUM_TYPE_TP_SL_FIXED inp_type_tp_sl_fixed = TP_SL_ATR; //Tipo de tp sl fjo:
|
|
|
| sinput group "--| TP SL by Point "
|
| input long sl_point = 250; //Stop Loss In Points
|
| input long tp_point = 500; //Take Profit In Points
|
|
|
| sinput group "--| TP SL by Atr "
|
| input int inp_index_atr = 0; //Index del atr
|
| input double inp_atr_multiplier_tp = 2.0; //Multiplicador del atr para el tp
|
| input double inp_atr_multiplier_sl = 2.0; //Multiplicador del atr para el sl
|
|
|
| sinput group "--| Ordenes "
|
| input ulong max_deviation_ord = 100; //Maxima desviacion/slípagge de las ordenes en puntos
|
|
|
|
|
| sinput group ""
|
| sinput group "-------| Account Status |-------" //Account status unico parametros logs
|
| input ENUM_VERBOSE_LOG_LEVEL log_level_account_status = VERBOSE_LOG_LEVEL_ALL; //(Account Status|Ticket Mangement) log level:
|
|
|
| sinput group ""
|
| sinput group "-------| Risk Management |-------" //Gestion de riesgo
|
| input TSN::ENUM_LOTE_TYPE Lote_Type = TSN::Dinamico; //Lote Type:
|
| input double lote = 0.1; //Lot size (only for fixed lot)
|
| input TSN::ENUM_MODE_RISK_MANAGEMENT risk_mode = TSN::risk_mode_personal_account; //type of risk management mode
|
| input TSN::ENUM_GET_LOT get_mode = TSN::GET_LOT_BY_STOPLOSS_AND_RISK_PER_OPERATION; //How to get the lot
|
| input double prop_firm_balance = 0; //If risk mode is Prop Firm FTMO, then put your ftmo account balance
|
| input ENUM_VERBOSE_LOG_LEVEL log_level_risk_management = VERBOSE_LOG_LEVEL_WARNINGS; //Risk Management log level:
|
|
|
| sinput group "--| ML/Maxium loss/Maxima perdida "
|
| input double percentage_or_money_ml_input = 0; //percentage or money (0 => not used ML)
|
| input TSN::ENUM_RISK_CALCULATION_MODE mode_calculation_ml = TSN::percentage; //Mode calculation Max Loss
|
| input TSN::ENUM_APPLIED_PERCENTAGES applied_percentages_ml = TSN::Balance; //ML percentage applies to:
|
|
|
| sinput group "--| MWL/Maximum weekly loss/Perdida maxima semanal "
|
| input double percentage_or_money_mwl_input = 0; //percentage or money (0 => not used MWL)
|
| input TSN::ENUM_RISK_CALCULATION_MODE mode_calculation_mwl = TSN::percentage; //Mode calculation Max weekly Loss
|
| input TSN::ENUM_APPLIED_PERCENTAGES applied_percentages_mwl = TSN::Balance;//MWL percentage applies to:
|
|
|
| sinput group "--| MDL/Maximum daily loss/Perdida maxima diaria "
|
| input double percentage_or_money_mdl_input = 0; //percentage or money (0 => not used MDL)
|
| input TSN::ENUM_RISK_CALCULATION_MODE mode_calculation_mdl = TSN::percentage; //Mode calculation Max daily loss
|
| input TSN::ENUM_APPLIED_PERCENTAGES applied_percentages_mdl = TSN::Balance;//MDL percentage applies to:
|
|
|
| sinput group "--| GMLPO/Gross maximum loss per operation/Porcentaje a arriesgar por operacion "
|
| input TSN::ENUM_OF_DYNAMIC_MODES_OF_GMLPO mode_gmlpo = TSN::DYNAMIC_GMLPO_FULL_CUSTOM; //Select GMLPO mode:
|
| input double percentage_or_money_gmlpo_input = 10.0; //percentage or money (0 => not used GMLPO)
|
| input TSN::ENUM_RISK_CALCULATION_MODE mode_calculation_gmlpo = TSN::percentage; //Mode calculation Max Loss per operation
|
| input TSN::ENUM_APPLIED_PERCENTAGES applied_percentages_gmlpo = TSN::Balance;//GMPLO percentage applies to:
|
|
|
| sinput group "-----| Optional GMLPO settings, Dynamic GMLPO |-----"
|
| sinput group "--| Full customizable dynamic GMLPO "
|
| input string note1 = "subtracted from your total balance to establish a threshold."; //This parameter determines a specific percentage that will be
|
| input string str_percentages_to_be_reviewed = "15,30,50"; //percentages separated by commas.
|
| input string note2 = "a new risk level will be triggered on your future trades: "; //When the current balance (equity) falls below this threshold
|
| input string str_percentages_to_apply = "10,20,25"; //percentages separated by commas.
|
| input string note3 = "0 in both parameters => do not use dynamic risk in gmlpo"; //Note:
|
|
|
| sinput group "--| Fixed dynamic GMLPO with parameters "
|
| sinput group "- 1 -"
|
| input string note1_1 = "subtracted from your total balance to establish a threshold."; //This parameter determines a specific percentage that will be
|
| input double inp_balance_percentage_to_activate_the_risk_1 = 2.0; //percentage 1 that will be exceeded to modify the risk separated by commas
|
| input string note2_1 = "a new risk level will be triggered on your future trades: "; //When the current balance (equity) falls below this threshold
|
| input double inp_percentage_to_be_modified_1 = 1.0;//new percentage 1 to which the gmlpo is modified
|
| sinput group "- 2 -"
|
| input double inp_balance_percentage_to_activate_the_risk_2 = 5.0;//percentage 2 that will be exceeded to modify the risk separated by commas
|
| input double inp_percentage_to_be_modified_2 = 0.7;//new percentage 2 to which the gmlpo is modified
|
| sinput group "- 3 -"
|
| input double inp_balance_percentage_to_activate_the_risk_3 = 7.0;//percentage 3 that will be exceeded to modify the risk separated by commas
|
| input double inp_percentage_to_be_modified_3 = 0.5;//new percentage 3 to which the gmlpo is modified
|
| sinput group "- 4 -"
|
| input double inp_balance_percentage_to_activate_the_risk_4 = 9.0;//percentage 4 that will be exceeded to modify the risk separated by commas
|
| input double inp_percentage_to_be_modified_4 = 0.33;//new percentage 4 1 to which the gmlpo is modified
|
|
|
| sinput group "--| MDP/Maximum daily profit/Maxima ganancia diaria "
|
| input bool mdp_is_strict = true; //MDP is strict?
|
| input double percentage_or_money_mdp_input = 0; //percentage or money (0 => not used MDP)
|
| input TSN::ENUM_RISK_CALCULATION_MODE mode_calculation_mdp = TSN::percentage; //Mode calculation Max Daily Profit
|
| input TSN::ENUM_APPLIED_PERCENTAGES applied_percentages_mdp = TSN::Balance;//MDP percentage applies to:
|
|
|
|
|
| sinput group "-------| News |-------"
|
| sinput group "--| General"
|
| input datetime fecha_desde_incio_noticias = D'2005.01.01'; //Start date for TSN::calendar data collection (equal to generated csv files)
|
| input uint8_t seg_antes_despues = 5; //Segundos antes y depues para operar noticias
|
|
|
| sinput group "--| Cadenas "
|
| input string cadena_EUR = "ecb-interest-rate-decision,unemployment-rate,gross-domestic-product-qq,consumer-price-index-mm,employment-change-qq,producer-price-index-mm"; //Important EUR Events (MQL5 Calendary event code) separated by ,
|
| input string cadena_CAD = "boc-interest-rate-decision,cpi-mm,unemployment-rate,employment-change,gdp-qq,ippi-mm"; //Important CAD Events (MQL5 Calendary event code) separated by ,
|
| input string cadenas_CHF = "snb-interest-rate-decision,gdp-qq,unemployment-rate,cpi-mm,employment-level,ppi-mm"; //Important CHF Events (MQL5 Calendary event code) separated by ,
|
| input string cadena_GBP = "cpi-mm,boe-interest-rate-decision,unemployment-rate,gdp-qq,employment-change-3-months,ppi-output-mm"; //Important GBP Events (MQL5 Calendary event code) separated by ,
|
| input string cadena_AUD = "gdp-qq,unemployment-rate,employment-change,rba-interest-rate-decision,cpi-qq,ppi-qq"; //Important AUD Events (MQL5 Calendary event code) separated by ,
|
| input string cadena_NZD = "rbnz-interest-rate-decision,unemployment-rate,gdp-qq,cpi-qq,employment-change-qq,ppi-output-qq"; //Important NZD Events (MQL5 Calendary event code) separated by ,
|
| input string cadena_JPY = "gross-domestic-product-qq,unemployment-rate,boj-interest-rate-decision"; //Important JPY Events (MQL5 Calendary event code) separated by ,
|
|
|
| sinput group "--| Objetos graficos"
|
| input string type_draw_events = "Line|Event"; //Tipo de dibujado de los eventos
|
| input color color_eventos_high = clrRed; //Color de los eventos de alta impotancia
|
| input color color_eventos_low = clrSilver; //Color de los eventos de baja impotancia
|
| input color color_eventos_mid = C'0xF8,0xDA,0x07'; //Color de los eventos de media impotancia
|
| input color color_eventos_none = C'0x8A,0x84,0x8A'; //Color de los eventos de ninguna impotancia
|
| input int16_t width_events = 1; //Ancho de los eventos
|
|
|
|
|
| sinput group ""
|
| sinput group "-------| Trailing Stop |-------"
|
| input bool use_trailing_stop = false; // Enable trailing stop
|
| input TSN::ENUM_TSN_TRAILING_STOP_MODE_BASIC mode_trailing_stop = TSN::TRAILING_STOP_MODE_BASIC_ATR; // Select the indicator used for trailing stop
|
| input ENUM_VERBOSE_LOG_LEVEL log_level_trailing_stop = VERBOSE_LOG_LEVEL_ALL; // Trailing stop log level:
|
|
|
| sinput group "-- Trailing by Atr"
|
| input ENUM_TIMEFRAMES tsl_timeframe_atr = PERIOD_CURRENT; // Timeframe used for ATR calculation
|
| input int tsl_index_atr = 0; // Buffer index for ATR, typically 0
|
| input double tsl_atr_multiplier = 1.5; // ATR multiplier to set trailing distance from current price
|
| input int tsl_atr_period = 14; // ATR period used for calculation
|
|
|
| sinput group "-- Trailing by Prev Low/High"
|
| input ENUM_TIMEFRAMES tsl_timeframe_prev_low_high = PERIOD_CURRENT; // Timeframe used to find previous lows/highs
|
| input int tsl_index_prev_low_high = 1; // Index for calculating previous lows/highs
|
|
|
| sinput group "-- Trailing by Sar"
|
| input ENUM_TIMEFRAMES tsl_timeframe_sar = PERIOD_CURRENT; // Timeframe used for SAR calculation
|
| input int tsl_index_sar = 1; // Buffer index for SAR, typically 1
|
| input double tsl_sar_step = 0.02; // SAR step value
|
| input double tsl_sar_maximum = 0.20; // SAR maximum value
|
|
|
| sinput group "-- Trailing by MA"
|
| input ENUM_TIMEFRAMES tsl_timeframe_ma = PERIOD_CURRENT; // Timeframe used for Moving Average calculation
|
| input ENUM_MA_METHOD tsl_ma_method = MODE_EMA; // Moving Average method: EMA, SMA, etc.
|
| input int tsl_index_ma = 1; // Buffer index for Moving Average, typically 1
|
| input int tsl_ma_period = 14; // Period used for Moving Average calculation
|
|
|
| sinput group "-- Trailing by AMA"
|
| input ENUM_TIMEFRAMES tsl_timeframe_ama = PERIOD_CURRENT; // Timeframe used for AMA calculation
|
| input int tsl_index_ama = 1; // Buffer index for AMA, typically 1
|
| input int tsl_ama_period = 6; // AMA base period
|
| input int tsl_ama_fast_period = 6; // Fast moving average period
|
| input int tsl_ama_low_period = 50; // Slow moving average period
|
|
|
| sinput group "-- Trailing Fixed"
|
| input int tsl_fixed_start = 50; // Distance to start the fixed trailing stop
|
| input int tsl_fixed_step = 10; // Step size for adjusting the fixed trailing stop
|
|
|
| sinput group "-- Trailing by Swings"
|
| input ENUM_TIMEFRAMES tsl_swings_timeframe = PERIOD_CURRENT; // Timeframe used for swing detection
|
| input int tsl_swings_length = 4; // Length for detecting swing points
|
| input int tsl_swings_index = 1; // Buffer index for swing detection, typically 1
|
| input color tsl_color_bull_swing = clrGreen; // Color for bullish swing points
|
| input color tsl_color_bear_swing = clrRed; // Color for bearish swing points
|
|
|
| //+------------------------------------------------------------------+
|
| //| Global |
|
| //+------------------------------------------------------------------+
|
| int8_t idx_controler_w1 = INVALID_INDEX;
|
| int8_t idx_bar_controlerd1 = INVALID_INDEX;
|
| int8_t idx_bar_mn1 = INVALID_INDEX;
|
|
|
| //---
|
| TSN::CNewsTrader strategy(Magic, _Symbol, _Period, 0, 0, max_deviation_ord);
|
| TSN::CTrailingStopManager g_trailing_creator;
|
| TSN::TrailingStopRun g_trailing_stop;
|
| uint g_trade_flags = 0;
|
| TSN::CLossProfitManager g_loss_profit_manager; // LossProfitManager
|
| TSN::CAtrOptimized* g_atr_opt = NULL; // Zero (index 0) o NonZero (index != 0), segun inp_index_atr
|
|
|
| //+------------------------------------------------------------------+
|
| //| Expert initialization function |
|
| //+------------------------------------------------------------------+
|
| int OnInit()
|
| {
|
| //--- Añadimos los ejecutores..
|
| g_new_bar_manager.GetPosExecute(PERIOD_D1, idx_bar_controlerd1);
|
| g_new_bar_manager.GetPosExecute(PERIOD_W1, idx_controler_w1);
|
| g_new_bar_manager.GetPosExecute(PERIOD_MN1, idx_bar_mn1);
|
|
|
| //--- Caledario
|
| datetime desde = fecha_desde_incio_noticias;
|
| datetime hasta = iTime(_Symbol, PERIOD_D1, 0);
|
| // inicilzaicion del calendario
|
| #ifdef TSN_FASTNL_FUNC_CTS
|
| TSN_FASTNL_FUNC_CTS(InpTbpLicense);
|
| #else
|
| CiNewsLeo_CalendarInit(InpTbpLicense);
|
| #endif // TSN_MCPSERVER_FUNC_CTS
|
|
|
| // Creacion
|
| TSN::calendar = CiNewsLeo_CreateEconomicCalendar();
|
| CAutoCleaner::AddPtr(TSN::calendar);
|
|
|
| // Filtrado
|
| TSN::calendar.FilterBySymbol(_Symbol); //Siempre configurar el filtro antes de agregar paises
|
|
|
| // Def
|
| ulong temp[];
|
|
|
| // Uno a uno
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_US, TSN::cadena_USD_operate, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_USA, temp);
|
| //ArrayPrint(temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_CA, cadena_CAD, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_CANADA, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_EU, cadena_EUR, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_EUROPEAN_UNION, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_GB, cadena_GBP, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_UNITED_KINGDOM, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_AU, cadena_AUD, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_AUSTRALIA, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_CH, cadenas_CHF, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_SWITZERLAND, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_JP, cadena_JPY, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_JAPAN, temp);
|
|
|
| TSN::CalendarByLeo_ParseStrEvents(CALENDAR_COUNTRY_CODE_HASH_NZ, cadena_NZD, ',', temp);
|
| TSN::calendar.AddCountryByEventList(COUNTRY_ID_NEW_ZEALAND, temp);
|
|
|
| // Final
|
| TSN::calendar.SetObtenerValoresActuales(true);
|
| TSN::calendar.SetNoticiasChecker(seg_antes_despues, 10);
|
|
|
| //--- Bloque try
|
| string _what = NULL;
|
| TSNSTD_TRY_INI
|
| {
|
| //--- calendar final
|
| // Seteamos el calendario
|
| TSNSTD_TRY_EF(TSN::calendar.SetCalendar(desde, hasta), true,
|
| CiNewsLeo_FormatTraceFirst(_what));
|
| // First corrida
|
| TSNSTD_TRY_EF(TSN::calendar.First(TimeCurrent()), true,
|
| CiNewsLeo_FormatTraceFirst(_what))
|
|
|
| //--- Estrategia
|
| if(inp_index_atr == 0)
|
| g_atr_opt = new TSN::CAtrOptimizedZero(PERIOD_CURRENT, _Symbol, 14);
|
| else
|
| g_atr_opt = new TSN::CAtrOptimizedNonZero(PERIOD_CURRENT, _Symbol, inp_index_atr, 14);
|
|
|
| //---
|
| CAutoCleaner::AddPtr(g_atr_opt);
|
|
|
| //---
|
| strategy.Set(TSN::calendar.CountryIdSymbolACambiar());
|
| strategy.SetAtrTP_SL(g_atr_opt, inp_atr_multiplier_tp, inp_atr_multiplier_sl);
|
| strategy.SetOperateMode(TR_BUY_SELL, inp_type_tp_sl_fixed);
|
| strategy.SetTP_SL(tp_point, sl_point);
|
| strategy.AddLogFlags(log_level_strategy);
|
| if(Lote_Type == TSN::Fijo)
|
| strategy.FixedLotSize(lote);
|
| TSN::calendar.AddHook(&strategy); // Lo agregamos para que reciba eventos...
|
|
|
| //--- Trailing stop y gestion de riesgo
|
| //--- Trailing stop
|
| if(use_trailing_stop)
|
| {
|
| g_trailing_creator.SetTrailingAMA(tsl_index_ama, tsl_timeframe_ama, tsl_ama_period, tsl_ama_low_period, tsl_ama_fast_period);
|
| g_trailing_creator.SetTrailingAtr(tsl_atr_period, tsl_atr_multiplier, tsl_timeframe_atr, tsl_index_atr);
|
| g_trailing_creator.SetTrailingFixed(tsl_fixed_start, tsl_fixed_step);
|
| g_trailing_creator.SetTrailingMa(tsl_index_ma, tsl_timeframe_ma, tsl_ma_period, tsl_ma_method);
|
| g_trailing_creator.SetTrailingPrev(tsl_timeframe_prev_low_high, tsl_index_prev_low_high);
|
| g_trailing_creator.SetTrailingSar(tsl_index_sar, tsl_timeframe_sar, tsl_sar_step, tsl_sar_maximum);
|
| g_trailing_creator.SetTrailingSwings(tsl_swings_timeframe, tsl_swings_index, 0, tsl_color_bull_swing, tsl_color_bear_swing, tsl_swings_length, 100);
|
| g_trailing_stop = g_trailing_creator.Create(mode_trailing_stop, Magic, _Symbol);
|
| TSNSTD_TRY_EF(g_trailing_stop.IsValid(), true,
|
| TSN::CErrorTrace::FormatTrace(_what))
|
| g_trailing_stop.m_trailing.AddLogFlags(log_level_trailing_stop);
|
| }
|
|
|
| //--- Gestion de riesgo
|
| TSN::CRiskManagementCreator manager;
|
| manager.SetPropirm(prop_firm_balance);
|
|
|
| //---
|
| TSN::MQLArtRMCreatorRes result = manager.GetRiskPointer(risk_mode, Magic, get_mode);
|
| TSNSTD_TRY_EF(result.ok, true,
|
| TSN::CErrorTrace::FormatTrace(_what))
|
|
|
| //---
|
| TSN::risk = result.ptr;
|
| TSN::risk.AddLogFlags(log_level_risk_management);
|
| TSN::risk.SetLossProfitManager(g_loss_profit_manager);
|
| CAutoCleaner::AddPtr(TSN::risk);
|
|
|
| // Seteamos los parametros
|
| string to_apply = str_percentages_to_apply, to_modfied = str_percentages_to_be_reviewed;
|
|
|
| if(mode_gmlpo == TSN::DYNAMIC_GMLPO_FIXED_PARAMETERS)
|
| TSN::CRmFunctions::SetDynamicUsingFixedParameters(inp_balance_percentage_to_activate_the_risk_1, inp_balance_percentage_to_activate_the_risk_2, inp_balance_percentage_to_activate_the_risk_3
|
| , inp_balance_percentage_to_activate_the_risk_4, inp_percentage_to_be_modified_1, inp_percentage_to_be_modified_2, inp_percentage_to_be_modified_3, inp_percentage_to_be_modified_4
|
| , to_modfied, to_apply);
|
|
|
| //--- Maximas perdidas y ganancias
|
| TSNSTD_TRY_INI_S // nota: genera bool _err implicito
|
| {
|
| TSNSTD_TRY_SE(TSN::risk.AddLP(percentage_or_money_mdl_input, applied_percentages_mdl, mode_calculation_mdl, TSN::LP_MDL, true), true);
|
| TSNSTD_TRY_SE(TSN::risk.AddLP(percentage_or_money_gmlpo_input, applied_percentages_gmlpo, mode_calculation_gmlpo, TSN::LP_GMLPO, true,
|
| (mode_gmlpo != TSN::NO_DYNAMIC_GMLPO), to_modfied, to_apply), true);
|
| TSNSTD_TRY_SE(TSN::risk.AddLP(percentage_or_money_ml_input, applied_percentages_ml, mode_calculation_ml, TSN::LP_ML, true), true);
|
| TSNSTD_TRY_SE(TSN::risk.AddLP(percentage_or_money_mwl_input, applied_percentages_mwl, mode_calculation_mwl, TSN::LP_MWL, true), true);
|
| TSNSTD_TRY_SE(TSN::risk.AddLP(percentage_or_money_mdp_input, applied_percentages_mdp, mode_calculation_mdp, TSN::LP_MDP, mdp_is_strict), true);
|
| TSN::risk.EndAddProfitLoss(); //Ejecutar esto cada vez que se termina de setear las maximas peridas y gancnasias
|
| }
|
| TSNSTD_TRY_END;
|
|
|
| //---
|
| TSNSTD_TRY_N_EF(_err, true, TSN::CErrorTrace::FormatTrace(_what))
|
| }
|
| TSNSTD_TRY_END;
|
|
|
| //---
|
| if(_what != NULL) // error final
|
| {
|
| FastLog(FUNCION_ACTUAL, FATAL_ERROR_TEXT, _what);
|
| return INIT_FAILED;
|
| }
|
|
|
| //--- Inicilizamos la cuenta
|
| TSN::account_status.AddLogFlags(log_level_account_status);
|
| TSN::account_status.OnInitEvent();
|
|
|
| //---
|
| return(INIT_SUCCEEDED);
|
| }
|
| //+------------------------------------------------------------------+
|
| //| Expert deinitialization function |
|
| //+------------------------------------------------------------------+
|
| void OnDeinit(const int reason)
|
| {
|
| //---
|
| CAutoCleaner::Deinit(reason);
|
| }
|
|
|
| //+------------------------------------------------------------------+
|
| //| Expert tick function |
|
| //+------------------------------------------------------------------+
|
| void OnTick()
|
| {
|
| //---
|
| const datetime time_curr = TimeCurrent();
|
| g_new_bar_manager.Execute(time_curr);
|
|
|
| //--- Bloque 1 | Control diario
|
| if(CNewBarManager_IsNewBarM1(g_new_bar_manager) && CNewBarManager_IsNewBar(g_new_bar_manager, idx_bar_controlerd1))
|
| {
|
| //---
|
| TSN::calendar.OnNewDay(time_curr);
|
|
|
| //---
|
| CBasicEvents::OnNewDay(time_curr);
|
| TSNMQLART_U_BEVENTS_MAN_REM_F(g_trade_flags, BASICEVENT_REG_FLAG_ON_NEW_DAY);
|
|
|
| //---
|
| if(CNewBarManager_IsNewBar(g_new_bar_manager, idx_controler_w1))
|
| {
|
| CBasicEvents::OnNewWeek(time_curr);
|
| TSNMQLART_U_BEVENTS_MAN_REM_F(g_trade_flags, BASICEVENT_REG_FLAG_ON_NEW_WEEK);
|
| }
|
|
|
| //--- Nuevo mes
|
| // no uso tradeflags dado que no hay parametros para un Monthly.. pero si lo hubiera:
|
| //TSNMQLART_U_BEVENTS_MAN_REM_F(g_trade_flags, BASICEVENT_REG_FLAG_ON_NEW_MON);
|
| if(CNewBarManager_IsNewBar(g_new_bar_manager, idx_bar_mn1))
|
| CBasicEvents::OnNewMonth(time_curr);
|
| }
|
|
|
| //---
|
| if(TSN::account_status_positions_open)
|
| {
|
| //--- Solo una cuenta
|
| ACCOUNTSTATUS_ONEVERYTICK
|
|
|
| //---
|
| if(TSNMQLART_U_BEVENTS_MAN_TRADE_NOW(g_trade_flags))
|
| {
|
| if(g_loss_profit_manager.MaxLossIsSuperated())
|
| {
|
| const int type = g_loss_profit_manager.GetLastLossSuperatedType();
|
| if(type < TSN::LP_ML)
|
| {
|
| TSN::risk.CloseAllPositions();
|
| // añadimos segun corresponda
|
| TSNMQLART_U_BEVENTS_MAN_ADD_F(g_trade_flags, TSNMQLART_RM_LP_M_BEVENTS_F_LOSS(type));
|
| Print(TSN::g_mqarticles_lp_str_names[type], " is superated now");
|
| }
|
| else // Manejo de las demas perdidas (ML)
|
| {
|
| if(risk_mode == TSN::risk_mode_propfirm_dynamic_daiy_loss)
|
| Print("The expert advisor lost the funding test");
|
| else
|
| Print("Maximum loss exceeded now");
|
|
|
| //---
|
| TSN::risk.CloseAllPositions();
|
| Remover();
|
| }
|
| }
|
| else
|
| if(g_loss_profit_manager.MaxProfitIsSuperated())
|
| {
|
| // NOTA: ahora mismo solo hay un profit agregado (MDP), es el unico que se puede activar
|
| TSN::risk.CloseAllPositions();
|
| TSNMQLART_U_BEVENTS_MAN_ADD_F(g_trade_flags, BASICEVENT_REG_FLAG_ON_NEW_DAY);
|
| Print("Excellent Maximum daily profit achieved");
|
| }
|
| }
|
| }
|
|
|
| //---
|
| if(use_trailing_stop)
|
| g_trailing_stop.OnTickEvent(time_curr);
|
|
|
| //--- Si hay almenos una bandera activa no se puede operar
|
| if(TSNMQLART_U_BEVENTS_MAN_NO_TRADE_NOW(g_trade_flags))
|
| return;
|
|
|
| //--- Chekeamos si es hora
|
| TSN::calendar.OnTickEvent(time_curr);
|
|
|
| //--- Listo eventos ahora..
|
| if(TSN::calendar.NewsIsComming())
|
| {
|
| TSN::calendar.GetEvents(time_curr);
|
| TSN::calendar.OnEndNews(time_curr);
|
| }
|
| }
|
| //+------------------------------------------------------------------+
|
| //| TradeTransaction function |
|
| //+------------------------------------------------------------------+
|
| void OnTradeTransaction(const MqlTradeTransaction& trans,
|
| const MqlTradeRequest& request,
|
| const MqlTradeResult& result)
|
| {
|
| //---
|
| TSN::account_status.OnTradeTransactionEvent(trans);
|
| }
|
| //+------------------------------------------------------------------+
|
