From cc0f9b75750fb222c0fe74bc6b1c23c3f0c6970b Mon Sep 17 00:00:00 2001
From: Gunther Schulz <kunde2@guntherschulz.de>
Date: Mon, 2 Mar 2020 09:07:28 +0100
Subject: [PATCH] change error handling to utilize MQL5 standard error handling

---
 Experts/JsonAPI.mq5       | 412 ++++++++++++++++++++++----------------
 Include/controlerrors.mqh | Bin 0 -> 40742 bytes
 2 files changed, 243 insertions(+), 169 deletions(-)
 create mode 100644 Include/controlerrors.mqh

diff --git a/Experts/JsonAPI.mq5 b/Experts/JsonAPI.mq5
index 2aae593..2f0b465 100644
--- a/Experts/JsonAPI.mq5
+++ b/Experts/JsonAPI.mq5
@@ -31,6 +31,7 @@
 #include <Zmq/Zmq.mqh>
 #include <Json.mqh>
 #include <EnumStringToInt.mqh>
+#include <ControlErrors.mqh>
 //#include <ChartObjects\ChartObject.mqh> 
 //#include<Canvas\Canvas.mqh>
 //#include <Graphics\Graphic.mqh>
@@ -70,14 +71,10 @@ struct SymbolSubscription {
   string chartTf;
   datetime lastBar;
 };
-
 SymbolSubscription symbolSubscriptions[];
-//string chartSymbols[];
 int symbolSubscriptionCount = 0;
-//string chartSymbolSettings[][3];
 
 // Variables for controlling indicators
-
 struct Indicator {
   long id;
   string indicatorId;
@@ -87,12 +84,6 @@ struct Indicator {
 };
 Indicator indicators[];
 int indicatorCount = 0;
-/*
-double indicators[];
-string indicatorIds[];
-int indicatorParamCount[];
-int indicatorBufferCount[];
-*/
 
 // Variables for controlling chart
 struct ChartWindow {
@@ -108,6 +99,7 @@ int chartWindowCount = 0;
 int chartWindowTimerInterval = 100;
 int chartWindowTimerCounter = 0;
 
+ControlErrors mControl;
 
 //string chartWindowObjects[];
 
@@ -120,28 +112,19 @@ int chartWindowTimerCounter = 0;
 bool BindSockets(){
   bool result = false;
   result = sysSocket.bind(StringFormat("tcp://%s:%d", HOST,SYS_PORT));
-  if (result == false) return result;
+  if (result == false) { return result; } else {Print("Bound 'System' socket on port ", SYS_PORT);}
   result = dataSocket.bind(StringFormat("tcp://%s:%d", HOST,DATA_PORT));
-  if (result == false) return result;
+  if (result == false) { return result; } else {Print("Bound 'Data' socket on port ", DATA_PORT);}
   result = liveSocket.bind(StringFormat("tcp://%s:%d", HOST,LIVE_PORT));
-  if (result == false) return result;
+  if (result == false) { return result; } else {Print("Bound 'Live' socket on port ", LIVE_PORT);}
   result = streamSocket.bind(StringFormat("tcp://%s:%d", HOST,STR_PORT));
-  if (result == false) return result;
+  if (result == false) { return result; } else {Print("Bound 'Streaming' socket on port ", STR_PORT);}
   result = indicatorDataSocket.bind(StringFormat("tcp://%s:%d", HOST,IND_DATA_PORT));
-  if (result == false) return result;
-  
+  if (result == false) { return result; } else {Print("Bound 'Indicator Data' socket on port ", IND_DATA_PORT);}
   result = chartLiveSocket.bind(StringFormat("tcp://%s:%d", HOST,CHART_LIVE_PORT));
   if (result == false) { return result; } else {Print("Bound 'Chart Live' socket on port ", CHART_LIVE_PORT);}
-  
   result = pubChartLiveSocket.bind(StringFormat("tcp://%s:%d", HOST,PUB_CHART_LIVE_PORT));
   if (result == false) { return result; } else {Print("Bound 'PUB Chart Live' socket on port ", PUB_CHART_LIVE_PORT);}
-  
-  Print("Bound 'System' socket on port ", SYS_PORT);
-  Print("Bound 'Data' socket on port ", DATA_PORT);
-  Print("Bound 'Live' socket on port ", LIVE_PORT);
-  Print("Bound 'Streaming' socket on port ", STR_PORT);
-  Print("Bound 'Indicator Data' socket on port ", IND_DATA_PORT);
-
     
   sysSocket.setLinger(1000);
   dataSocket.setLinger(1000);
@@ -149,7 +132,7 @@ bool BindSockets(){
   streamSocket.setLinger(1000);
   indicatorDataSocket.setLinger(1000);
   chartLiveSocket.setLinger(1000);
-  //pubChartLiveSocket.setLinger(1000);
+  pubChartLiveSocket.setLinger(1000);
     
   // Number of messages to buffer in RAM.
   sysSocket.setSendHighWaterMark(1);
@@ -158,7 +141,7 @@ bool BindSockets(){
   streamSocket.setSendHighWaterMark(50);
   indicatorDataSocket.setSendHighWaterMark(5);
   chartLiveSocket.setReceiveHighWaterMark(1); // TODO confirm settings
-  //pubChartLiveSocket.setReceiveHighWaterMark(1);
+  pubChartLiveSocket.setReceiveHighWaterMark(1);
 
   return result;
 }
@@ -167,8 +150,15 @@ bool BindSockets(){
 //| Expert initialization function                                   |
 //+------------------------------------------------------------------+
 int OnInit(){
-  /* Bindinig ZMQ ports on init */
 
+  // Settimg up error reporting
+  mControl.SetAlert(true);
+  //mControl.SetPrint(true);
+  mControl.SetSound(false);
+  mControl.SetWriteFlag(false);
+  //mControl.SetPlaySoundFile("news.wav");
+  
+  /* Bindinig ZMQ ports on init */  
   // Skip reloading of the EA script when the reason to reload is a chart timeframe change
   if (deInitReason != REASON_CHARTCHANGE){
  
@@ -232,9 +222,6 @@ void OnDeinit(const int reason){
       ResetSubscriptionsAndIndicators();
       
       EventKillTimer();
-      for(int i=0;i<ArraySize(chartWindows);i++){
-        ChartClose(chartWindows[i].id);
-      }
   }
 }
 
@@ -308,13 +295,16 @@ void StreamPriceData(){
         MqlRates rates[1];
         int spread[1];
         
+      //if(CopyBuffer(indicators[idx].indicatorHandle, i, fromDate, 1, values) < 0) {
+      //  CheckError(__FUNCTION__, indicatorDataSocket);
+      //}
         if( chartTF == "TICK"){
-          if(SymbolInfoTick(symbol,tick) !=true) { /*error processing */ };
+          if(SymbolInfoTick(symbol,tick) !=true) { /*mControl.Check();*/ }
           thisBar=(datetime) tick.time_msc;
         }
         else {
-          if(CopyRates(symbol,period,1,1,rates)!=1) { /*error processing */ };
-          if(CopySpread(symbol,period,1,1,spread)!=1) { /*error processing */ };
+          if(CopyRates(symbol,period,1,1,rates)!=1) { /*mControl.Check();*/ }
+          if(CopySpread(symbol,period,1,1,spread)!=1) { /*mControl.Check();*/; }
           thisBar=(datetime)rates[0].time;
         }
         if(lastBar!=thisBar){
@@ -409,39 +399,52 @@ void OnTimer(){
 //+------------------------------------------------------------------+
 void RequestHandler(ZmqMsg &request){
 
-  CJAVal message;
-        
+  CJAVal incomingMessage;
+      
   ResetLastError();
   // Get data from reguest
   string msg=request.getData();
-  
+
   if(debug) Print("Processing:"+msg);
   
   // Deserialize msg to CJAVal array
+  /*
   if(!message.Deserialize(msg)){
     ActionDoneOrError(65537, __FUNCTION__);
     Alert("Deserialization Error");
     ExpertRemove();
   }
+  */
+  
+  if(!incomingMessage.Deserialize(msg)){
+    mControl.mSetUserError(65537, GetErrorID(65537));
+    CheckError(__FUNCTION__);
+    //ExpertRemove();
+  }
+
   // Send response to System socket that request was received
   // Some historical data requests can take a lot of time
   InformClientSocket(sysSocket, "OK");
-  
+
   // Process action command
-  string action = message["action"].ToStr();
-  
-  if(action=="CONFIG")          ScriptConfiguration(message);
+  string action = incomingMessage["action"].ToStr();
+
+  if(action=="CONFIG")          ScriptConfiguration(incomingMessage);
   else if(action=="ACCOUNT")    GetAccountInfo();
   else if(action=="BALANCE")    GetBalanceInfo();
-  else if(action=="HISTORY")    HistoryInfo(message);
-  else if(action=="TRADE")      TradingModule(message);
-  else if(action=="POSITIONS")  GetPositions(message);
-  else if(action=="ORDERS")     GetOrders(message);
+  else if(action=="HISTORY")    HistoryInfo(incomingMessage);
+  else if(action=="TRADE")      TradingModule(incomingMessage);
+  else if(action=="POSITIONS")  GetPositions(incomingMessage);
+  else if(action=="ORDERS")     GetOrders(incomingMessage);
   else if(action=="RESET")      ResetSubscriptionsAndIndicators();
-  else if(action=="INDICATOR")  IndicatorControl(message);
-  else if(action=="CHART")      ChartControl(message);
+  else if(action=="INDICATOR")  IndicatorControl(incomingMessage);
+  else if(action=="CHART")      ChartControl(incomingMessage);
   // Action command error processing
-  else ActionDoneOrError(65538, __FUNCTION__);
+  //else ActionDoneOrError(65538, __FUNCTION__);
+  else {
+    mControl.mSetUserError(65538, GetErrorID(65538));
+    CheckError(__FUNCTION__);
+  }
    
 }
   
@@ -452,7 +455,6 @@ void ScriptConfiguration(CJAVal &dataObject){
 
   string symbol=dataObject["symbol"].ToStr();
   string chartTF=dataObject["chartTF"].ToStr();
-  //string actionType=dataObject["actionType"].ToStr();
 
   ArrayResize(symbolSubscriptions, symbolSubscriptionCount+1);
   symbolSubscriptions[symbolSubscriptionCount].symbol = symbol;
@@ -460,25 +462,16 @@ void ScriptConfiguration(CJAVal &dataObject){
   // to initialze with value 0 skips the first price
   symbolSubscriptions[symbolSubscriptionCount].lastBar = 0;
   symbolSubscriptionCount++;
-/*
-  string symbArr[1];
-  symbArr[0]= symbol;
-  
-  if (!HasChartSymbol(symbol, chartTF)) {
-    ArrayInsert(chartSymbols,symbArr,0);
-    ArrayResize(chartSymbolSettings,symbolSubscriptionCount+1);
-    chartSymbolSettings[symbolSubscriptionCount][0]=symbol;
-    chartSymbolSettings[symbolSubscriptionCount][1]=chartTF;
-    // lastBar
-    chartSymbolSettings[symbolSubscriptionCount][2]=0; // to initialze with value 0 skips the first price 
-    symbolSubscriptionCount++;
-  }
-*/
-  
+  /*
   if(SymbolInfoInteger(symbol, SYMBOL_EXIST)){  
     ActionDoneOrError(ERR_SUCCESS, __FUNCTION__);  
   }
   else ActionDoneOrError(ERR_MARKET_UNKNOWN_SYMBOL, __FUNCTION__);
+  */
+  mControl.mResetLastError();
+  SymbolInfoString(symbol, SYMBOL_DESCRIPTION);
+  if(!CheckError(__FUNCTION__)) ActionDoneOrError(ERR_SUCCESS, __FUNCTION__, "ERR_SUCCESS");
+  //if(!CheckError(__FUNCTION__, dataSocket)) ActionDoneOrError(ERR_SUCCESS, __FUNCTION__, dataSocket);
 }
 
 //+------------------------------------------------------------------+
@@ -508,9 +501,6 @@ void StartIndicator(CJAVal &dataObject){
   
   indicatorCount++;    
   ArrayResize(indicators,indicatorCount);
-  //ArrayResize(indicatorIds,indicatorCount);
-  //ArrayResize(indicatorParamCount,indicatorCount);
-  //ArrayResize(indicatorBufferCount,indicatorCount);
   
   int idx = indicatorCount-1;
   
@@ -566,20 +556,32 @@ void StartIndicator(CJAVal &dataObject){
         // TODO error handling
         break;
   }
-    
-
+  
   CJAVal message;
-  message["id"] = (string) id;
-              
-  string t=message.Serialize();
-  if(debug) Print(t);
-  InformClientSocket(indicatorDataSocket,t);
+  if(mControl.mGetLastError()) 
+    {
+      string desc = mControl.mGetDesc();
+      int lastError = mControl.mGetLastError();
+      mControl.Check();
+
+      message["error"]=(bool) true;
+      message["lastError"]=(string) lastError;
+      message["description"]=desc;
+      message["function"]=(string) __FUNCTION__;
+      string t=message.Serialize();
+      if(debug) Print(t);
+      InformClientSocket(indicatorDataSocket,t);
+    }
+  else
+    {
+      message["error"]=(bool) false;
+      message["id"] = (string) id;
+                  
+      string t=message.Serialize();
+      if(debug) Print(t);
+      InformClientSocket(indicatorDataSocket,t);
+    }
 
-  // TODO more error handling
-  //if(SymbolInfoInteger(symbol, SYMBOL_EXIST)){  
-  //  ActionDoneOrError(ERR_SUCCESS, __FUNCTION__);  
-  //}
-  //else ActionDoneOrError(ERR_MARKET_UNKNOWN_SYMBOL, __FUNCTION__);
 }
 
 //+------------------------------------------------------------------+
@@ -596,7 +598,7 @@ void GetIndicatorResult(CJAVal &dataObject) {
   int idx = GetIndicatorIdxByIndicatorId(id);
   
   double values[2];
-  ArrayResize(values, indicators[idx].indicatorBufferCount);
+
   CJAVal results;
   // Cycle through all avaliable buffer positions
   for(int i=0;i<indicators[idx].indicatorBufferCount;i++){
@@ -604,16 +606,29 @@ void GetIndicatorResult(CJAVal &dataObject) {
     values[1] = 0.0;
     results[i] = 0.0;
     if(idx >= 0) {
-      if(CopyBuffer(indicators[idx].indicatorHandle, i, fromDate, 1, values) < 0) {/* Error handling */}
+      if(CopyBuffer(indicators[idx].indicatorHandle, i, fromDate, 1, values) < 0) {
+        if(mControl.mGetLastError()) 
+          {
+            CJAVal message;
+            string desc = mControl.mGetDesc();
+            int lastError = mControl.mGetLastError();
+            mControl.Check();
+
+            message["error"]=(bool) true;
+            message["lastError"]=(string) lastError;
+            message["description"]=desc;
+            message["function"]=(string) __FUNCTION__;
+            string t=message.Serialize();
+            if(debug) Print(t);
+            InformClientSocket(indicatorDataSocket,t);
+          }
+      }
       results[i] = DoubleToString(values[0]);
     }
-    else {
-      // TODO error handling
-    }
   }
 
-
   CJAVal message;
+  message["error"]=(bool) false;
   message["id"] = (string) id;
   message["data"].Set(results);
               
@@ -621,11 +636,6 @@ void GetIndicatorResult(CJAVal &dataObject) {
   if(debug) Print(t);
   InformClientSocket(indicatorDataSocket,t);
 
-  // TODO more error handling
-  //if(SymbolInfoInteger(symbol, SYMBOL_EXIST)){  
-  //  ActionDoneOrError(ERR_SUCCESS, __FUNCTION__);  
-  //}
-  //else ActionDoneOrError(ERR_MARKET_UNKNOWN_SYMBOL, __FUNCTION__);
 }
 
 //+------------------------------------------------------------------+
@@ -655,9 +665,6 @@ void OpenChart(CJAVal &dataObject){
   
   chartWindowCount++;    
   ArrayResize(chartWindows,chartWindowCount);
-  //ArrayResize(chartWindowIds,chartWindowCount);
-  //ArrayResize(chartWindowPeriods,chartWindowCount);
-  // ArrayResize(chartWindowObjects,chartWindowCount);
   
   int idx = chartWindowCount-1;
   
@@ -665,7 +672,6 @@ void OpenChart(CJAVal &dataObject){
 
   ENUM_TIMEFRAMES period = GetTimeframe(chartTF);
   chartWindows[idx].id = ChartOpen(symbol, period);
-  //chartWindowPeriods[idx] = period;
   
   CJAVal message;
   message["chartId"] = (string) chartId;
@@ -694,17 +700,18 @@ void AddIndicatorChartToChart(CJAVal &dataObject){
 
   double chartIndicatorHandle = iCustom(ChartSymbol(ChartId),ChartPeriod(ChartId),"JsonAPIIndicator",chartIndicatorId,shortname,colorstyle,linetype,linestyle,linewidth);
         
-  ChartIndicatorAdd(ChartId, chartIndicatorSubWindow, chartIndicatorHandle);
-  
-  chartWindows[idx].indicatorId = chartIndicatorId;
-  chartWindows[idx].indicatorHandle = chartIndicatorHandle;
-  
-  CJAVal message;
-  message["chartId"] = (string) chartIdStr;
-              
-  string t=message.Serialize();
-  if(debug) Print(t);
-  InformClientSocket(dataSocket,t);
+  if(ChartIndicatorAdd(ChartId, chartIndicatorSubWindow, chartIndicatorHandle)){
+    chartWindows[idx].indicatorId = chartIndicatorId;
+    chartWindows[idx].indicatorHandle = chartIndicatorHandle;
+  }
+  if(!CheckError(__FUNCTION__)) {
+    CJAVal message;
+    message["chartId"] = (string) chartIdStr;
+                
+    string t=message.Serialize();
+    if(debug) Print(t);
+    InformClientSocket(dataSocket,t);
+  }
 }
 
 //+------------------------------------------------------------------+
@@ -943,19 +950,22 @@ void HistoryInfo(CJAVal &dataObject){
     ulong toDateM = StringToTime(toDate);
    
     tickCount=CopyTicksRange(symbol,tickArray,COPY_TICKS_ALL,1000*(ulong)fromDateM,1000*(ulong)toDateM);
-    if(tickCount){  
-      ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__);  
+    if(tickCount < 0) {
+      mControl.mSetUserError(65541, GetErrorID(65541));
     }
-    else ActionDoneOrError(65541 , __FUNCTION__);
+    CheckError(__FUNCTION__);
     
     Print("Preparing data of ", tickCount, " ticks for ", symbol);
     int file_handle=FileOpen(outputFile, FILE_WRITE | FILE_CSV);
     if(file_handle!=INVALID_HANDLE){
-        msg["status"] = (string) "CONNECTED";
-        msg["type"] = (string) "NORMAL";
-        msg["data"] = (string) StringFormat("Writing to: %s\\%s", TerminalInfoString(TERMINAL_DATA_PATH), outputFile);
-        if(liveStream) InformClientSocket(liveSocket, msg.Serialize());
-      ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__);  
+      msg["status"] = (string) "CONNECTED";
+      msg["type"] = (string) "NORMAL";
+      msg["data"] = (string) StringFormat("Writing to: %s\\%s", TerminalInfoString(TERMINAL_DATA_PATH), outputFile);
+      if(liveStream) InformClientSocket(liveSocket, msg.Serialize());
+      ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__, "ERR_SUCCESS");
+      //ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__, dataSocket);  
+      // Inform client that file is avalable for writing
+
       PrintFormat("%s file is available for writing",fileName);
       PrintFormat("File path: %s\\Files\\",TerminalInfoString(TERMINAL_DATA_PATH));
       //--- write the time and values of signals to the file
@@ -975,9 +985,12 @@ void HistoryInfo(CJAVal &dataObject){
       if(liveStream) InformClientSocket(liveSocket, msg.Serialize());
 
     }
-    else{ 
-      PrintFormat("Failed to open %s file, Error code = %d",fileName,GetLastError());
-      ActionDoneOrError(65542 , __FUNCTION__);
+    else{
+      // File is not available for writing
+      mControl.mSetUserError(65542, GetErrorID(65542));
+      CheckError(__FUNCTION__);
+      //PrintFormat("Failed to open %s file, Error code = %d",fileName,GetLastError());
+      //ActionDoneOrError(65542 , __FUNCTION__);
     }
     connectedFlag=false;
   }
@@ -1005,16 +1018,16 @@ void HistoryInfo(CJAVal &dataObject){
     if(dataObject["toDate"].ToInt()!=NULL)Print("4) Date to:"+TimeToString(toDate));
     
     barCount=CopyRates(symbol,period,fromDate,toDate,r);
-    if(CopySpread(symbol,period, fromDate, toDate, spread)!=1) { /*error processing */ }
-        
-    if(barCount){  
-      ActionDoneOrError(ERR_SUCCESS, __FUNCTION__);  
+    if(CopySpread(symbol,period, fromDate, toDate, spread)!=1) {
+      mControl.mSetUserError(65541, GetErrorID(65541)); 
+      //CheckError(__FUNCTION__);
     }
-    else ActionDoneOrError(65541, __FUNCTION__);
     
     Print("Preparing tick data of ", barCount, " ticks for ", symbol);
     int file_handle=FileOpen(outputFile, FILE_WRITE | FILE_CSV);
     if(file_handle!=INVALID_HANDLE){
+      ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__, "ERR_SUCCESS");
+      //ActionDoneOrError(ERR_SUCCESS  , __FUNCTION__, dataSocket);
       PrintFormat("%s file is available for writing",outputFile);
       PrintFormat("File path: %s\\Files\\",TerminalInfoString(TERMINAL_DATA_PATH));
       //--- write the time and values of signals to the file
@@ -1025,8 +1038,10 @@ void HistoryInfo(CJAVal &dataObject){
       PrintFormat("Data is written, %s file is closed", outputFile);
     }
     else{ 
-      PrintFormat("Failed to open %s file, Error code = %d",outputFile,GetLastError());
-      ActionDoneOrError(65542 , __FUNCTION__);
+      //PrintFormat("Failed to open %s file, Error code = %d",outputFile,GetLastError());
+      //ActionDoneOrError(65542 , __FUNCTION__);
+      mControl.mSetUserError(65542, GetErrorID(65542));
+      CheckError(__FUNCTION__);
     }
   }
    
@@ -1091,7 +1106,7 @@ void HistoryInfo(CJAVal &dataObject){
     }
     
     barCount=CopyRates(symbol, period, fromDate, toDate, r);
-    if(CopySpread(symbol,period, fromDate, toDate, spread)!=1) { /*error processing */ }
+    if(CopySpread(symbol,period, fromDate, toDate, spread)!=1) { /*mControl.Check();*/ }
     
     if(barCount){
       for(int i=0;i<barCount;i++){
@@ -1145,7 +1160,11 @@ void HistoryInfo(CJAVal &dataObject){
     InformClientSocket(dataSocket,t);
   }
   // Error wrong action type
-  else ActionDoneOrError(65538, __FUNCTION__);
+  //else ActionDoneOrError(65538, __FUNCTION__);
+  else  { 
+    mControl.mSetUserError(65538, GetErrorID(65538)); 
+    CheckError(__FUNCTION__);
+  }
 }
 
 //+------------------------------------------------------------------+
@@ -1161,7 +1180,8 @@ void GetPositions(CJAVal &dataObject){
   if(!positionsTotal) data["positions"].Add(position);
   // Go through positions in a loop
   for(int i=0;i<positionsTotal;i++){
-    ResetLastError();
+    //ResetLastError();
+    mControl.mResetLastError();
     
     if(myposition.Select(PositionGetSymbol(i))){
       position["id"]=PositionGetInteger(POSITION_IDENTIFIER);
@@ -1178,7 +1198,8 @@ void GetPositions(CJAVal &dataObject){
       data["positions"].Add(position);
     }
       // Error handling    
-    else ActionDoneOrError(ERR_TRADE_POSITION_NOT_FOUND, __FUNCTION__);
+    //else ActionDoneOrError(ERR_TRADE_POSITION_NOT_FOUND, __FUNCTION__);
+      CheckError(__FUNCTION__);
   }
   
   string t=data.Serialize();
@@ -1190,7 +1211,8 @@ void GetPositions(CJAVal &dataObject){
 //| Fetch orders information                                         |
 //+------------------------------------------------------------------+
 void GetOrders(CJAVal &dataObject){
-  ResetLastError();
+  //ResetLastError();
+  mControl.mResetLastError();
   
   COrderInfo myorder;
   CJAVal data, order;
@@ -1217,7 +1239,8 @@ void GetOrders(CJAVal &dataObject){
         data["orders"].Add(order);
       } 
       // Error handling   
-      else ActionDoneOrError(ERR_TRADE_ORDER_NOT_FOUND,  __FUNCTION__);
+      //else ActionDoneOrError(ERR_TRADE_ORDER_NOT_FOUND,  __FUNCTION__);
+      CheckError(__FUNCTION__);
     }
   }
     
@@ -1225,48 +1248,21 @@ void GetOrders(CJAVal &dataObject){
   if(debug) Print(t);
   InformClientSocket(dataSocket,t);
 }
-
-//+------------------------------------------------------------------+
-//| Clear symbol subscriptions and indicators                        |
-//+------------------------------------------------------------------+
-
-void ResetSubscriptionsAndIndicators(){
-
-   ArrayFree(symbolSubscriptions);
-   //ArrayFree(chartSymbolSettings);
-   symbolSubscriptionCount=0;
-   
-   bool error = false;
-   for(int i=0;i<indicatorCount;i++){
-    if(!IndicatorRelease(indicators[i].indicatorHandle)) error = true;
-   }
-   ArrayFree(indicators);
-   //ArrayFree(indicatorIds);
-   indicatorCount = 0;
-   
-   for(int i=0;i<ArraySize(chartWindows);i++){
-    if(!IndicatorRelease(chartWindows[i].indicatorHandle)) error = true;
-    ChartClose(chartWindows[i].id);
-   }
-   
-   if(ArraySize(symbolSubscriptions)!=0 || ArraySize(indicators)!=0 || ArraySize(chartWindows)!=0 || error){
-   // TODO Implement propery error codes and descriptions
-   ActionDoneOrError(GetLastError(),  __FUNCTION__);
-   }
-   else ActionDoneOrError(ERR_SUCCESS, __FUNCTION__);  
-}
   
 //+------------------------------------------------------------------+
 //| Trading module                                                   |
 //+------------------------------------------------------------------+
 void TradingModule(CJAVal &dataObject){
-  ResetLastError();
+  //ResetLastError();
+  mControl.mResetLastError();
   CTrade trade;
   
   string   actionType = dataObject["actionType"].ToStr();
   string   symbol=dataObject["symbol"].ToStr();
   // Check if symbol is the same
-  if(!(symbol==_Symbol)) ActionDoneOrError(ERR_MARKET_UNKNOWN_SYMBOL, __FUNCTION__);
+  // if(!(symbol==_Symbol)) ActionDoneOrError(ERR_MARKET_UNKNOWN_SYMBOL, __FUNCTION__);
+  SymbolInfoString(symbol, SYMBOL_DESCRIPTION);
+  CheckError(__FUNCTION__);
   
   int      idNimber=dataObject["id"].ToInt();
   double   volume=dataObject["volume"].ToDbl();
@@ -1369,7 +1365,11 @@ void TradingModule(CJAVal &dataObject){
     }
   }
   // Action type dosen't exist
-  else ActionDoneOrError(65538, __FUNCTION__);
+  //else ActionDoneOrError(65538, __FUNCTION__);
+  else {
+    mControl.mSetUserError(65538, GetErrorID(65538));
+    CheckError(__FUNCTION__);
+  }
   
   // This part of the code runs if order was not completed
   OrderDoneOrError(true, __FUNCTION__, trade);
@@ -1478,10 +1478,45 @@ void OrderDoneOrError(bool error, string funcName, CTrade &trade){
   InformClientSocket(dataSocket,t);
 }
 
+
+//+------------------------------------------------------------------+
+//| Error reporting                                                  |
+//+------------------------------------------------------------------+
+bool CheckError(string funcName) {
+  //string desc = "OK";
+  int lastError = ERR_SUCCESS;
+  if(mControl.mGetLastError()) 
+    {
+      string desc = mControl.mGetDesc();
+      lastError = mControl.mGetLastError();
+      if(debug) Print("Error handling source: ", funcName ," description: ", desc);
+      Print("Error handling source: ", funcName ," description: ", desc);
+      mControl.Check();
+      ActionDoneOrError(lastError, funcName, desc);
+      //ActionDoneOrError(lastError, __FUNCTION__, socket, desc)
+    }
+  if(lastError==0)
+    return false;
+  else
+    return true;
+  //Print("lasterror", lastError);
+  //return lastError;
+
+/*
+  else
+    {
+      mControl.Check();
+      ActionDoneOrError(ERR_SUCCESS, callingFunction);
+      //ActionDoneOrError(lastError, __FUNCTION__, socket, desc);
+    }
+*/
+
+}
+
 //+------------------------------------------------------------------+
 //| Action confirmation                                              |
 //+------------------------------------------------------------------+
-void ActionDoneOrError(int lastError, string funcName){
+void ActionDoneOrError(int lastError, string funcName, string desc){
   
   CJAVal conf;
   
@@ -1489,12 +1524,16 @@ void ActionDoneOrError(int lastError, string funcName){
   if(lastError==0) conf["error"]=(bool)false;
   
   conf["lastError"]=(string) lastError;
-  conf["description"]=GetErrorID(lastError);
+  //conf["lastError"]=(int) lastError;
+  //conf["description"]=GetErrorID(lastError);
+  conf["description"]=(string) desc;
   conf["function"]=(string) funcName;
   
   string t=conf.Serialize();
   if(debug) Print(t);
   InformClientSocket(dataSocket,t);
+  //InformClientSocket(socket,t);
+  
 }
 
 //+------------------------------------------------------------------+
@@ -1503,9 +1542,42 @@ void ActionDoneOrError(int lastError, string funcName){
 void InformClientSocket(Socket &workingSocket,string replyMessage){  
   
   // non-blocking
-  workingSocket.send(replyMessage,true);   
+  workingSocket.send(replyMessage,true);
   // TODO: Array out of range error
-  ResetLastError();                                
+  //ResetLastError();  
+  mControl.mResetLastError();
+  //mControl.Check();                            
+}
+
+//+------------------------------------------------------------------+
+//| Clear symbol subscriptions and indicators                        |
+//+------------------------------------------------------------------+
+void ResetSubscriptionsAndIndicators(){
+
+   ArrayFree(symbolSubscriptions);
+   symbolSubscriptionCount=0;
+   
+   bool error = false;
+   for(int i=0;i<indicatorCount;i++){
+    if(!IndicatorRelease(indicators[i].indicatorHandle)) error = true;
+   }
+   ArrayFree(indicators);
+   indicatorCount = 0;
+   
+   for(int i=0;i<ArraySize(chartWindows);i++){
+    // TODO check if chart exists first: if(ChartGetInteger...
+    if(!IndicatorRelease(chartWindows[i].indicatorHandle)) error = true;
+    ChartClose(chartWindows[i].id);
+   }
+   ArrayFree(chartWindows);
+
+   if(ArraySize(symbolSubscriptions)!=0 || ArraySize(indicators)!=0 || ArraySize(chartWindows)!=0 || error){
+     // Only Alert. Fails too often, this happens when i.e. the backtrader script gets aborted unexpectedly
+     // mControl.Check();
+     // mControl.mSetUserError(65540, GetErrorID(65540));
+     //CheckError(__FUNCTION__);
+   }
+   ActionDoneOrError(ERR_SUCCESS, __FUNCTION__, "ERR_SUCCESS");
 }
 
 //+------------------------------------------------------------------+
@@ -1517,7 +1589,7 @@ string GetRetcodeID(int retcode){
     case 10004: return("TRADE_RETCODE_REQUOTE");             break; 
     case 10006: return("TRADE_RETCODE_REJECT");              break; 
     case 10007: return("TRADE_RETCODE_CANCEL");              break; 
-    case 10008: return("TRADE_RETCODE_PLACED");              break; 
+    case 10008: return("TRADE_RETCODE_PLACED");              break;
     case 10009: return("TRADE_RETCODE_DONE");                break; 
     case 10010: return("TRADE_RETCODE_DONE_PARTIAL");        break; 
     case 10011: return("TRADE_RETCODE_ERROR");               break; 
@@ -1566,19 +1638,21 @@ string GetRetcodeID(int retcode){
 string GetErrorID(int error){
 
   switch(error){ 
+    /*
     case 0:     return("ERR_SUCCESS");                        break; 
     case 4301:  return("ERR_MARKET_UNKNOWN_SYMBOL");          break;  
     case 4303:  return("ERR_MARKET_WRONG_PROPERTY");          break;
     case 4752:  return("ERR_TRADE_DISABLED");                 break;
     case 4753:  return("ERR_TRADE_POSITION_NOT_FOUND");       break;
-    case 4754:  return("ERR_TRADE_ORDER_NOT_FOUND");          break; 
+    case 4754:  return("ERR_TRADE_ORDER_NOT_FOUND");          break;
+    */
     // Custom errors
     case 65537: return("ERR_DESERIALIZATION");                break;
     case 65538: return("ERR_WRONG_ACTION");                   break;
     case 65539: return("ERR_WRONG_ACTION_TYPE");              break;
-    //case 65540: return("ERR_CLEAR_SUBSCRIPTIONS_FAILED");     break;
+    case 65540: return("ERR_CLEAR_SUBSCRIPTIONS_FAILED");     break;
     case 65541: return("ERR_RETRIEVE_DATA_FAILED");     break;
-    case 65542: return("ERR_CFILE_CREATION_FAILED");     break;
+    case 65542: return("ERR_CVS_FILE_CREATION_FAILED");     break;
     
     
     default: 
diff --git a/Include/controlerrors.mqh b/Include/controlerrors.mqh
new file mode 100644
index 0000000000000000000000000000000000000000..ad0973e2f1fb40436dac35f0de923d7c93d5b857
GIT binary patch
literal 40742
zcmds=`HmgOb;kSe0C|TA12`14a$n>HW0H~yTcje6qyUCNa2Zmx#KoMEX+`#f<>iu`
zUw`-T)N-o(-XUc;!C+?Y?XIr+&Z)Ckb@%`L_lMJm)4S9A{{TPlPX9dplcD)=`s=j!
z6aQSBo=?xF<LRaS|8BZr|M~QCI+{M1o=$(7zOnKD`gg$tk{8ntHujV0v5k9dBmdSg
zJuw`gP5126WBdH9!*gJ55A7%|@7vY)?Dq%zeq_g=Pv6_|hxYCMrp@!|fwefcZyZ&B
z5AFX;JMzGeL;DZYRXex+PtBjttfyle<6y?}(7wI2zAo5oem4F4^t<`fO{3$1A^YA?
z9NL-f$J(Z4jR#I18)uJ<DrD-_{G-|Z&d_{dNS+&yKQtuI>@WN~HjaSr(60J$x-@<C
zMhFAXKazg^tMLR`e=*O{@hmfNqLsl@sT7`?bt3BnIea#KTXF2vr1t2w|H9vU#@{1r
zIo3j2|2SU*+9%VWH`06cbw82_W_EA-WbX6v+~={$Ka##T%h;nC6?*dO^>Jv1dJsIH
z9@$^C;Dvog0yz52zDrZk4A&y$<eq61^6_xSAq@Ae4OV1tx;uS7Bl%&vV@JNX_7A6z
z?RbgRTQD{n^3eW2oBnM^{9<$Uo{fVhdmlp2_?+P{+9iucKM(BZd;5;{f^!)zxQN9=
z2OrrrEv|h-f^8^!MoZD@Cx#2Yh#PPij{b4R_tN^qN;xlYOn-STTYD3|{@JdF7Vzch
z_U(Gc9i#iy&ND06Ijk5x`!#Uqi5<mekJ0BNe{DT-?V-sKR33JG`NEE&A1`O_w35Qy
zm7~HX@fo>c7Lh>u_4$5geH|Bk2waloeQSASEneD;Vwss&u4c}V7tZmCQ6Ag(nqs)a
zsE6~IPwhW*uDNr)_};$LBOGI9vhe~{iA5TVRK$5{smnP3MgQK+HQI)xaaL5`FbZ6L
z;cnfhdeg{GCoPVwPw!3rT;CjpA1{oeC)O7;BE5D=EqT<B_BZP@=)op2)?O7A{C@hw
z>ye#?{h5Y)vjt@&SsnU^=V;BdnY-EOa2-uX<Af4lESm+DH9e)?1irh|m-9@%ERc#j
z;>{iF8A*|)1C3<p>5SAlg+;^8U@?&#EQw?c=_%za<I&x2Y?p+SV(>YWmjG4CKg}zg
zBi3<C9?0U8%f}O=`qA8nbOC9nN37C=nZnv1KCxpZzZFkmo1pCO?6a`!#|7m_g>1NV
z+%i5so#QX&Rk(u^*E-El#AHMv*f^-WF@L7T(S-a3ZM9}(UZ=HY;)WlU%t>Cco!{Ay
zdpY+(@_%l1<aMy~&;T#OJB@K&pC#>{c}2$hrs9(1M7aDsxUicc1J7q0CwUB;*GH~k
z2poKRVf@EeGs}t^$`R2bv@`51e2yM;KFbeIo8&yVULQ{HRCXh-6-|nViNzn<IHmo@
zr(&sOzaJUKdq!m`b3VeJ#SyfQXyWv&t%^2?iHM~SXC$t7<$vccBOp=G__iaCpu0u=
zxs3*u$J0qr-<YpN+G-2%aF!)3l}m~LKS?~|JZZghOG`u>C!wW}UZhXa>z>&P?9S0F
z3)o%F)f%ocevurN_*}M-)KV_oMoGGYldt9(>t*wUncGApAba0_zqL=q%;cZw=+X3^
zeSS1cq@oL25!(_?6Y<0~Au;i3S!Z6&-1zpj&SddksXvlBD1JJ@`(w*L$vH}!eR`-h
zTqiuleu}{4$=$a{R8_|rN2X<ra%ki3%{dDi;5h@{qsI|E=uw9USVrq}J4UUDrbdgr
zfEHQ1Z~qms$nK+eiqDqt9T>f2QrqIp@x@q3qI%pjn{mzL4SZzjd($uM_son{@i1N+
ztcNCba89^s^^whNpbkxbIx(L}=Wg;4sC6yY+-=TJD-k7j>1rSGou0XbpOIe<uYg9v
zztV3){{uS?pUBR`GKflzQd3yYLd?|~hcl!xnoF$yXB;l;1k5lQjXWv5&th$59&0gf
z%-qT7+E&(UE7D7jW~R>ZMwBrh$oRIjg=S~-Rm+51NYA8B&m&<Ko^AA6(t=jG7m4{Q
ztz(Qe%43Kz6}PK`@XTb_V`QXNJ}<aX+bh*L(0XEuIx0|0JPo*`*N{@TuGdU@$mqW{
z3sZA~Z<%JetcvO~uEP#6;)B<HmX?9cJ<!&^fw7Qb{He#-!N1a%1qB+vjTzvU$C#&!
zstEjy2#jwLMUL!a^xg8NjZRAY5eQ3r6=T17Ux8eHFh<ne#CP%NE8{IzkGvM$LHo*#
z4{CyMadqIA9rRjVjPDs#OA{7~+(<f-NlI@4{2C<op6LOyAbIi}%&UDzGbL0D##kc~
z^lYld_+pm0ZwfsQ8zp)}dcCb9LSE5MFnYw-^4>M<>FZirU}~`}$&<K;ug1Ho?xw!c
zH6s7u9J2_fdvmnK97MGBHY}#shTwZh$2dE@YPsh4Y?(XKV_7@X43rue(KJ#OGw-q)
z+0}B(klxeAxqHSVWHIYA=F2PUYga63$f<cOH1F8z(y!(@QpC~H661#Kp0Ze(%;JV!
zuSk^Y_OVr$k6*_v(NBCDRcJhdykPO6xEa?(B@d}PGF|>p`+vF`8w)z>yXIxcuY1R+
zg<_55tCYb~>rrgZoM5B)8^}uPe{abDuvxd#HHwKpvg033=Z&hYH7(1S4+{Tec9ERy
z&^TF2R(<`Mh0!i{qp9_1G%(;@u^@l6Un<)~>`UXHT^RpTH@;f0jn675YmlmsQ+M--
z#Ao8=BBpZ-m@api)VjrV+ql3nDjTx&;92Iy`Gs+>bmOXZJFd^X&xLCL*x08t4t(Mo
zjtfH^XJ);sB}lEe!-2=aQjjlGk0egq4co;9Y-c(isr4E*vP{<3;2CzIU2|EI-%AU4
z&USdzdJWH5e%UW@XjrM_FQK};fa+X_O08Q|H;oU<GpU10tFbAPtfkSfER5b;FtuJA
z9luN+R1p+&6mbmpW;<la@5s8IvHb$Ab@ldZ=#U^^X*fByu`NC`WwtoC#_hZ*s$-9Y
z^2?L)ZEUB{*dB_WZ@HyDFh032lx3pIPd(IE+?V9)%rv&lXQtjVd;50w*m3i6u5RM3
z+(HuZ;-8mo^cnNPV+rc5w6||D9LzB-lIsY(f=cF#hO<wI+9qolhntL=*!Yp1`)(5*
ze`nu4I^IPK#uol;V&TyYXl`jx_9wfk{20Iccncnmt@v51|Mk+8+wqcz%qYB6bs%CN
zq~7zb(#oHVZ)0nJcIvG?nvwCX)llU>iWLs$ofWJTQ#tVUTdjvkR!(a9#y;V!=~d73
z+$)rEO<CWdI<oETkNv~hB*Hy2<sRa|G(-9jlCPRkd<WstqNhaONBVp=@d)0&)rDI#
zmXZr$Z)-eD77pnjqv?Hsw{Owxn~gx~sS9Io@k#6>X|1hC#${fzjBo4*&L(~Ut;jTB
zSA5iosSay?iC|xvWrQl?$YsQ1pK&(v8R$ZW_zN2|Vhq(ss4wC#qPmwwlFR7E-sG&w
zeXEt|M~1G{N~{Sv2i}ZbPi{jV+41Ld&iibIV`J}dF7Xa%Nrq|3%Bi-a-Gs=cuLwD>
zA~#l^O||9e#uwImCZc7Xm7KMR2~=bkXoo5T=MDcyiHGsltsZ@85+;ir*{q@{$)N9w
zLmpMXa0*m6YcXa1LzsH+fj(t?rH(>O0N<2PsjetQZH$MGXips;T3MG@Cp>ak)-FXH
z<kK!o%QR+wMl|+b1`Rw3jqLNp8U#&l;hd(r5>L#uJq4M65(Rzsf|h0!;19HZQAcyE
z8l$0FA;EuXkFKx!L|k%m3eeJ#?Dsj2w{B%$(Uq?*)@xX36}C9`zp=XPHJ_+|;eUN)
zlA}Zj4{hCDHtL~qK~-^bC(fcp>|*KLs;3%-YHUX~xA<MHaF-bB(PFKU40cI|&!t{i
z643i#Z{6~5|1~wPZ&U+c*-_VCw|Z0^%i~^~<hVG+mBfJT>Qj7OQ(KNO=IS!dnP(Tx
zeSUXt;Mcd2dS3~1O(i-a_tL!!?ybCjijId|lpN6+c3GiQ><jfszl_34eNx4@<dsLT
zt^6%>DvKz@sXhliH;5<RHm6EWTSlKn975m68|Mb`hNH*oD#pOGh`+=`+oQ>14bWtj
z#&cUn8j&s476AW6{b-p#qqyNr5;vUNL>aB_*U_S4#E@e6<FZI}K?Y45tlnAs{dD^E
z3dT_!aVE(^&utY)u-g%fP9(F;pOJs3+S10W=eF?gZUtR0iCnkEGV;_^U3x6Jr@k}$
z8(EP))@iFVilCmGz1FO%w&0PKb1tG%k6+1-seG5K{&jSS)Ms8BP3UVP-nx~%GCGtU
z)Q+K>)Ahx9JwNbyjNZql-nt$A+FS+Di0li*)2b%p>q19!W<nI;yvicw^Be!tM(?2M
zrOaC|p&<$b1KvmX>@1I;+jz$BCF}fxjVD_f-z(Eb>*b8$A7clU-|MF;%R{ra<TUO>
z59c*S^mm!6-1b9N9~Yh<*#2^kb%z-~V3#$M^BX&!&2ArGdFys|KQZoTKL#Gh^)RYX
zUXheE5>2xUNxQ1$7d-YR=2(-*+$+GjJ~}!-@Cv1FW|><=M)Fh3miYX}u4i2A;}CDX
z9T$noeCLvT%{4T+Uw}h>TycI2zfkIe>MG^kjO+F+_YHV)_6D@JH}?(E3Tbk#xU}mY
z9(*@DhuNXER&8WoLT=-;=)zmKb5^1vf8s8e$MbwSGVB6*hOZ(7FPH4Yg`p3~;tFrQ
zgzlbMdse@Hcx@p(T4xUrpO^9EISIV#y}*Ty&uH=7F)rLUe+_T&Nw3UW)cI@4HLtN#
zDOE<I42+#Er7!FKNbB=IwHbhZ?!Qxfus7YVvgEiTW|X^tE^PcstJ&0^`$)iBw{%CJ
zWS3Bp?X4%Xe4HRH^ZDgD%6$r0`?%r4z^7!qDiJ`z8vnC6;=;hwfG(4uypmbkZS0Om
zs@w1mAA=@_?ONt$?q|T;#~l|2euk>0uc*3bq-sF?6S)!6rM;^WlZ7Twneyl&cAGC_
z&$AM+_tC|LK~}PaJ#a{aw?pp~*Vse%6rq=E!Z(e7=y$vKF*HhAntMFzX_=Phl}_mW
z)_$=|R5Z#srAFM2p8GdO&-5<$Z{$7^6=@~hBW2cvh%$W_m&d9lr@l5hJGK_zEZXsl
zhAH!UVC}WgTetSC)IxToXf=pCKUo=K&BJR(H5Yf&z>5PP2-aQ$y>*NAz%Xg2iZHn*
z#h!hlD%OwM{IZmV)3aQlhiZFd`#EcwXr=f!){@!_noWgy-^TELP0_ZNq>F=GOI4UQ
zQu5X<#aYEecb*3tm#p4*X14p{zzc$_mvC?0;wq)4wB0@<EyiVQ9XyoP_|!B6KSfpG
z?&Let-S&=i{fiqv*m`&(zTS3t>z1~1^z2TwTK3jfd1~$7c8>D;9du-Kl>67WOGn%{
z=yS~eB59*m8;J3kF~#%L%el|wFB{!iUK_YLSXU$(?(+(7-Ok(%!=vmKTZJWyHF|b$
zdtO^>d#ks(zXeGqL-}fA>>I~UVxJ;b-yTWs2|<!cLGB4lO<l6@KC9AH#je~txU9J?
z?{e=6;>;uE-g8&Ps;<Vqh21doq@v7=g1Prh-nx~%Pd2jE%N<!H5$z-MAKddhp8eJe
z*7tA{J+;}>uPq1jCp3($;w7UbqmYQ8muPR@Qh3WOGLbG?6&W!4A1kj|HzEd?CGCsR
zTIGGiipOP@&SMJV;+7`b1x-tudTHQcp{v&qZ{5;WOWQIY#cK5Mmz9WNeeOOtPDTFG
zJ~^Y-t4jl)4W+$adFv%gGoQ^pf{Jp``)qEOZ9yx)ijq_pE}z=d(w1ksXj&$nYQ03;
zy*WDbaeHg9XU}n3uG(K3<hLBpFy;QYlq}ydhL3EyC_EoG64i1k&tO56$+}v%TsknB
zEBCGG{*9$dI<*<$C8E1;zgXMls_vyh1r@BBwB{c4bJLD`r`2w8?xjsFw2cKpk=ga!
zd)_vV!9}dvuH)yvkn#Jx{nB8+%XJ%@m}=M2FPrvcHlNY^wE%BDk{6_wsIJ_pchdOk
z^1vH`tgrcd>mFHo&xYbmU+>ilV(euqGj6OJJG{8363)IfTY+SA^c_1+&4%3E^Iz6L
zROz_a=x1x~Zg#$G?2#`IJQwrO+ZS)$^5CR3j>`jY!sxv%@z(9=J-t+qSOIc9(epE-
zzQ1NSE)TLdaP@Y>TerAwncY~6Q?#muCDa<1?t?`N>S$ys`nYWJnrRqld;8+8TeJrz
zeWTiV#!avM6EDR299)NL`odD}N=fcpprp4{mj~6+@K<Dk?fL`=GhALr-EJl2^1!oz
zG_z{CXUS?RuH(Dg**r%BQD)6@FH=SenmZy)kCHu_t}U?Uzn^LLo<{_|EWx>l0(-yG
zd3oTWO6=v+BOHCdB1=pW);a70v|yV@va&?W6~jEz#(tgDTesSX?I7O4FO<7~e;UMj
zR))vxD;`%iUb98)_Je9I&$`3%_4uWEk(ZTwrk-x1e&hyA<kA*3ownY!oFy#JQoiyC
z&As2dvhk8F%{NU>$~!1CdSmw!QWaE{l)t$QwlTnU;~+aGwQH8A<CazZXdSka6^|<e
ze~gr7T*>dGD965S8FW3i`{uB3nr->OHP3uy;F&?#M-1M&owt)A#OhID;O_qAyyMEi
zBZIP!AG~#o(lshPg6{AjCq5YkRI+_f_c{%^FNTIbs<^U+FP8kXoBO`m2R$8?JWjS&
zkq|s4dgfWt*Z}TqU_F0#9@N?&60f>`RLO3eo)D|B&ZU~rI9k4vdVOl)xqjqc|1*;z
z=#(vxk6{IXik#}gSotjG^4(bSxF8OD5;bt>Slb1ACCy1iNv216w9wi=$IraUYt^&R
zTAR%43qz(Qd5!kKxQVZ1oko(h8wz|}=COsNm-J}g>TAf9&y&kG@<okpd50A}XP#I{
z`uI26w@9|hJiJ1RoDuU%9^oXii8WrDJI2mDsIc}CaI|l+2G=;ldNlH@ncSXl*=|l@
z>0@88<eqEas1NC>*O|0>R`1UAJu9rd`Mu?F2ZNtgMnn{frNN?+FG+i~+jx!BSzS`p
z_0ciZtyd<4%95fr99f<z9DQU9j=UP_el0MxkzdUzm(*7#nYtGN=~%;>c`vYnt6lTv
z*r-k^&Da&I>yRXQ4XgY_T^|(IKI#H%?pJo@tM*&5A|x+NM9NAjc652)9vHH0Q<!`I
z5$#*;KRITqzj}()(zB1)o7!h%!rA*6aE`ppZgLR3b)4{(ipVv4g5Osw(hH6e>dYf~
z`?tg0?GTPURsNI}vMMNQ5q`3Xc*5)KYWrD%9`P#kL*Bkca>x9R-^obz)$iYFZBt*D
z#p090;7Q3yJ+k9}*bVuQ+OkPXO6^;=6#l%E%u-~2&fB-N;^#sx17l08TVAsH;7w$%
z{=8^Oc3Jl;+vr)-yHGjuclk45mY%>OuGc$Xv<9w7o4Gr-=%;MQd8)6<MSOSD+RTi6
zBTu*J{mtl!E1?hl-8I-da4z2if~JjpA3HTOEV=IsEXqaNj2-^CPez)SpE>}pk)O+-
z3FGZs=`HJg{XA`#dw^!-!SW})c>5O3^-fZdp7zeD?dNXfukvTOjGvv-%e3n`GVd|z
zNn{-<$}MjGbQf>ma?X8!HiudEi@c5MFKvEbTk~sXnb8~hmS|h&qj-jqS7Uc*uQ}en
zrA*aZ)hzG=j9X^vVNI8<ia%YYxA)wWp5c)%Z1L0@L+0^js7Bcqca3ML@@%U_<u!{p
z;nm1%aEEq=D$kNaCbS2g3NLx6OAoO@%pbE#&g^r&HlHIe!F|{n#yo@CCBMhJG212T
zHIyU&!Ts48%G`grewQOtr@>P^Hoj4tmfz)=-X+ITRm8BES^-B|*QyczER{@CvMA8o
zx0({wBqA8@slZmolgP21+GWO>K>MXV=l1q=%kJ#HYnAr>=|5H?e19%VhBu4kynT!J
zrlBiWAQZ8&_mtXT$@#T8ANd{b@XqEu&y)6N?tE{k7+>o(Ev9;318YS&PvI_H?pIZo
zckmMRjy%-4G#c~vEq60&GBnHh*XduL8-M;tFDvYn@8`zbx71uWsX#LP`64|fK4Yca
zAmw_S#~R8}9>%@o8Oq#O^}DUuKgWHS+B19-KkCou$T*mJEN|a(kT;3OI+fdgm(!YS
zSh<Ju`*eu0loy7bQyy5ZI;?Sb<lVS8J>zcf-P)Zxv998?T(5{z3u^tJJRVe)6tCeQ
zc|Pt!&+zA-ua)5v0n!`KD5~*9%%}CA+sUdAlv7{CFYTN4XLfi}QCu6b0js6hnUSZY
z!jw^!d&+BuoHw_6?SucwDo?$^lC$3t*+KdO*9Z3fj-Aaib6-F5wRC!WVg0D~%&h9!
z%=uiF<KXe|$f{YpHzXqBo~5#-@_fa*@|k%nAHANTp0}fHG28jdTr5{bmCb8q(fJ(Q
z^hgAa*K?$3FPiaB`^M?J_ItzLK6KOm-q~oj_=41U5Au18z)C0k$Key4mrwM{(i-)n
z>@?eD3-$R5oyRjrv*p(t0)uL=ejr(B5@#aL?Vm8HXl-PVqu({!MzKb=D;L^Eu?AUH
zjOyNtr~b3rR>zvlnEYugy@$y5=u&Y~gwcA4&t^-HH2AKDC5>6bG|EP^eY;@FYpfY2
z)%f2x3D;UN(yG;O?ePt+u3;Q`{cLwH7;~?Gu)#s~6w9LL%4AgldD69fz@ONX&1V*0
zd;9hI%w;aTC$%5FvvO?>#h<^DVa#G~Z~x{Pd86QS)10+RqCc4>Lzq=Hz5Sab^ws<|
z=^Oc9?nmkU@94QLy@ssKGWLC)dm|6VUBwx?+=K0oF5Y&##=nu5;V$3|VeVyiN9en3
z9pB&PD2qsI+xPR_F&lAgewnxkuT{P=GoB-$cVzuo#Bg_uYi`;slAY<<v2m4F6i<qY
z`>7-!+hdArei}@17w9gSbhl_+`*!(6{ZDuC#CwW(ev_Wy6mLC6D(V?5uhcq@koh%l
zHh<Ck=d+FcrhCVnqH^BB)ng+=A(HZIh0L#bGh|EeX{s|Juk~jL$Gtcg#nTq6WLj^J
z$NCXteOEnaiT7stn+ShrJOER~^-J%~D&IifKGXTrS<|!r>Nhskebhe4QC*)Siw8EN
zb!+!<b&uo#@%E?uik3^;+OM_un0i0`41O`w0J0^Xg!S5O-nN^szZYk=LzB;pq?tG%
zGWfb>EhD^1wVln~cz3X=lx>HaJG;35%Vo2?iaWr5ZolN4Uzn_Zxye1j&ym~n(N8QF
z{ld;1Y%GzUvhia<ua4BSRdYmgqIT@R)Bc4uY`>h}J^NFjBQlElD$&(cyg$cKv<yji
zomsb0iXOh4seM`5DDsPwzlXQ=2jg)f+Nf;~bIlx-s9K8{*Ot7>udHR<zqN9{J?Fyu
z^f;F-eBZvMtCq}d=*e`p_Jr5WORamW@C&Z-{@&bQSSHciU~d&Vd&{yue+zDAd1_Q}
z(LIZgt*e3}>161_(pV!a^2-_huLd^eY9aY0{!*%zM|CdwIR1T`o`W*CHs!k-OFVni
zFU=M*4|~(k><6nk!nK>#)Xa|TrdDnk&FA}xjjgwne{9EoZk8GO(t1}QIx-vfWO~<r
z%Kk^A=(zKs?B(~?OS{v8(W6btrGBjC5p{Mfi7^V*ZXv1dhkEG$-Z$&T9`bK1TVA#+
z?YfSaN6OE=PYPTm^^%dd<B`TZA#Tj<nDgZqCLL(-JJYZ1Z~g3zL*t6y1#oqxpHc%$
zZirXC=8O=>8=ilh=frIe?~QNQf&!m*K0wn|leSYP$Mu_k-x)~Y#~WWPl*mAgmmxg4
z7b^4q+Ol%z3wsH)&grw!`eoO)Q8fU*k>T(*#8R(*EMgN;={?osVkLt2F<-i-@1^Za
zIZsGBZ_ExW*!H*FtIn1jJ5|iz-t=EK!|x3|#Cvv5>pEo{_gJ8+qZf^(zrEb{M_jvG
zibfnNsi--g;rN?j=O=m>0{!La_Hj>CXlh+x?SD6ki=J*4^{4-T5*KuyHYo~O{=X%0
zB^C8d=MwieWGyOgOA)nOp1W3S$|`l+OH_Y7ey%_2JA!M<Tb=S)X*u$~Ht+7?37M@v
zVb8~QTdSz@Rr3E4kp=Jj^PXid)l6h9@;BetG(Rn>$im;AFXaY`+VkZcx99Mc<bZYc
zY}{%anxfA>e!-5*7mEY6=Pr4vR$)K4o9mpTOMW|YA$i}@ANZKU%HQ%HHohbIADK@J
zd5E_D>24Db>6(%Y+8e_x__JQ)lX~GAU%4dKBfir*f6LLDR<4fwFQPB9xYC#GP5)9v
z5oB@Y*{iRSz5Cirw^sJufnV1ZM0TzhrB5%p5IhWf6BTl|2p;cj7c<rK1sA;^?aO&)
zHsP+_<6c+N-?LUXt>$^d&V6Bj_pQZWi(_Bg(VI3OH>#rtwiolDI<jy3H1Al;TIMwi
zPGgNwvvAX{`^rZBon3p~F#N_o-?C32Dq}?TR7$Ll=r8a2pd!KZMSL%aB-VLw$K;JY
z45ur(&d{pIxQ;g!U{6c*@4X)7y}5>XWBRROXD16)!*Zrel$mz;I5GR}NG{Xke!Y)t
cGZ(ONbsyQ4vNl3jey*)ljaYProkEKL7v<xIsQ>@~

literal 0
HcmV?d00001