LIP/Arch/RU/LIP_v01.005/LibreInfoPDO v1.005.mq5

<EFBFBD><EFBFBD>//============================================================================================= MQL5 ===
//    LibreInfoPDO v1.005 MQL5
//    ;02=K9 <>4C;L >1@01>B:8 A>1KB89
//    Librecoin(c)2014-2017
//============================================================================================= MQL5 ===
//    REVIEWS
//------------------------------------------------------------------------------------------------------
//    K2>4 8=D> >1 0:B82=KE 8 8AB>@8G5A:8E ?>78F8OE, A45;:0E, >@45@0E.
//=========================================================================================== MQL4/5 ===
//    IDEAS
//------------------------------------------------------------------------------------------------------
// ;0=8@C5BAO:
// 17.10.2017 45O:  3@0=8G8BL 3@0D8:C 2 B5AB8@>20=88 157 287C0;870F88
//  @01>B5:
// 17.10.2017 45O:  3@0=8G8BL 3@0D8:C 2 B5AB8@>20=88 157 287C0;870F88
// K?>;=5=>:
// 17.10.2017 45O:  3@0=8G8BL 3@0D8:C 2 B5AB8@>20=88 157 287C0;870F88
//============================================================================================= MQL5 ===
//    PROPERTY
//------------------------------------------------------------------------------------------------------
#define     ver            "1.005"
#property   copyright      "Librecoin(c)2014-2017"
#property   link           "https://www.mql5.com/ru/users/kirillovyv"
#property   strict
#property   description    "**************************************************"
#property   description    "  Positions info v"+ver+" (MQL5)" 
#property   description    "  Positions, deals, orders info" 
#property   description    "  From Russia with Love!  :-)"
#property   description    "  https://www.mql5.com/ru/users/kirillovyv"
#property   description    "**************************************************"
#property   version        ver
const       string         vers  =  "LiBREiNFOPDO v"+ver;    //Version
#property   tester_indicator  "Projects\\Indicatores\\MQ5\\ADX\\adxw_zat_117.ex5"
//============================================================================================= MQL5 ===
//    INDICATOR PROPERTY
//------------------------------------------------------------------------------------------------------
#property   indicator_separate_window
#property   indicator_buffers 0
#property   indicator_plots   0
//============================================================================================= MQL5 ===
//    INCLUDE
//------------------------------------------------------------------------------------------------------
//----- ?@545;5=8O ?5@5<5==KE 8 AB@C:BC@
#include "Include\LIP_Def_5_v1.005.mqh"         //?@545;5=8O ?5@5<5==KE 8 AB@C:BC@ MQL5
//----- =B5@D59A =0AB@>5:
#include "Include\LIP_Int_5_v1.005.mqh"         //=B5@D59A =0AB@>5: MQL4/5
//----- ;02=K9 0;3>@8B<
#include "Include\LIP_Man_5_v1.005.mqh"         //;02=K9 0;3>@8B< MQL5
//----- @>G55 (DC=:F88, @0AG5BK, 3@0D8:0)
#include "Include\LIP_Fun1_5_v1.005.mqh"        //A=>2=K5 DC=:F88 0;3>@B<0 MQL5(Traling,Open-Close,MA,CalcSR)
#include "Include\LIP_Fun2_5_v1.005.mqh"        //A=>2=K5 B5E=8G5A:85 @0AG5BK MQL5 (Calc...)
#include "Include\LIP_Fun3_5_v1.005.mqh"        //@0D8:0, 2K2>4 =0 G0@B 8 ?@5>1@07>20=8O 2K2>40 MQL5
//
//============================================================================================= MQL5 ===
//    MAIN EVENT HANDLERS
//------------------------------------------------------------------------------------------------------
//
//============================================================================================= MQL5 ===
//    OnInit()
//------------------------------------------------------------------------------------------------------
int OnInit(){
//-----
   return(On_Init());
}//OnInit()
////
////============================================================================================= MQL5 ===
////    OnTick()
////------------------------------------------------------------------------------------------------------
//void OnTick(){
////-----
//   On_Tick();   
////-----
//   return;
//}//OnCalculate()
//
//============================================================================================= MQL5 ===
//    OnCalculate()
//------------------------------------------------------------------------------------------------------
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[]){
//-----
   On_Tick();   
//-----
   return(rates_total);
}//OnCalculate()
//
//============================================================================================= MQL5 ===
//    OnTimer()
//------------------------------------------------------------------------------------------------------
void OnTimer(){
//-----
   On_Timer();   
//-----
   return;
}//OnTimer()
//
//============================================================================================= MQL5 ===
//    OnDeinit()
//------------------------------------------------------------------------------------------------------
void OnDeinit(const int reason){
//----- ?@545;O5< 8<O ?@>3@0<<K   
   string   iProgramName=MQLInfoString(MQL_PROGRAM_NAME);
//----- ?@545;O5< B8? ?@>3@0<<K   
   string   ProgramType="Expert";
   {switch(MQLInfoInteger(MQL_PROGRAM_TYPE))
   {
      case PROGRAM_SCRIPT:
         {
            ProgramType="Script";
            break;
         }
      case PROGRAM_EXPERT:
         {
            ProgramType="Expert";
            break;
         }
      case PROGRAM_INDICATOR:
         {
            ProgramType="Indicator";
            break;
         }
      default:
         {
            ProgramType="Expert";
         }
   }}//switch(MQLInfoInteger(MQL_PROGRAM_TYPE))
//----- =0;878@C5< 8 2K2>48< 8=D>@<0F8N > ?@8G8=5 7025@H5=8O @01>BK
   string ReasonTxt="REASON";
   {switch(reason)
   {
      case REASON_PROGRAM:
         ReasonTxt="[REASON_PROGRAM] "+ProgramType+" terminated its operation by calling the ExpertRemove() function.";break;
      case REASON_REMOVE:
         ReasonTxt="[REASON_REMOVE] "+ProgramType+" has been removed from chart.";break;
      case REASON_RECOMPILE:
         ReasonTxt="[REASON_RECOMPILE] "+ProgramType+" has been recompiled.";break;
      case REASON_CHARTCHANGE:
         ReasonTxt="[REASON_CHARTCHANGE] Symbol or chart period has been changed.";break;
      case REASON_CHARTCLOSE:
         ReasonTxt="[REASON_CHARTCLOSE] Chart has been closed.";break;
      case REASON_PARAMETERS:
         ReasonTxt="[REASON_PARAMETERS] Input parameters have been changed by a user.";break;
      case REASON_ACCOUNT:
         ReasonTxt="[REASON_ACCOUNT] Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings.";break;
      case REASON_TEMPLATE:
         ReasonTxt="[REASON_TEMPLATE] New template was applied to chart.";break;
      case REASON_INITFAILED:
         ReasonTxt="[REASON_INITFAILED] "+ProgramType+" initialisation failed.";break;
      case REASON_CLOSE:
         ReasonTxt="[REASON_CLOSE] Terminal has been closed.";break;
      default:ReasonTxt="Another reason";
   }}//switch(reason)
   Print("Terminal Build>>",TerminalInfoInteger(TERMINAL_BUILD)," ",ProgramType,":\"",iProgramName,"\" Deinit reason [",reason,"] >> "+ReasonTxt);
//----- #40;8BL 8=D> A M:@0=0
   {if(GraphUse)
   {
      DeleteGraph();
      Comment("");
   }}//if(GraphUse)
//----- 0A8< B09<5@
   EventKillTimer();
//----- 0A8< 8=48:0B>@K
   {if(!((MQLInfoInteger(MQL_TESTER))||(MQLInfoInteger(MQL_OPTIMIZATION))))
   {
      string Indicator_Name="";
      {switch(OpenMethod)
      {
         case(Open_ADXW):
         {
            Indicator_Delete_Handle(adxw_handle,Indicator_Name);
            break;
         }//case(Open_ADXW)
         default:
         {
            break;
         }
      }}//switch(OpenMetod)
      {switch(CloseProfitMethod)
      {
         case(CloseProfit_ADXW):
         {
            Indicator_Delete_Handle(adxw_handle,Indicator_Name);
            break;
         }//case(CloseProfit_ADXW)
         default:
         {
            break;
         }
      }}//switch(CloseProfitMethod)
      {switch(CloseLossMethod)
      {
         case(CloseLoss_ADXW):
         {
            Indicator_Delete_Handle(adxw_handle,Indicator_Name);
            break;
         }//case(CloseLoss_ADXW)
         default:
         {
            break;
         }
      }}//switch(CloseLossMethod)
   }}//if(!((MQLInfoInteger(MQL_TESTER))||(MQLInfoInteger(MQL_OPTIMIZATION))))
//----- 1=C;5=85 3;>10;L=KE ?5@5<5==KE
   datetime TimeSet=0;
   {for(int i=1;i<=3;i++)//5@51>@ B8?>2 ><0=4
   {
      {for(int j=0;j<=1;j++)//5@51>@ B8?>2 >78F89
      {
         BuseInd[(int)CommandCode((enCommandType)i,(ENUM_POSITION_TYPE)j)]=0;       //A2>1>6405< :0=0; BuseInd_N=0 ?> 40==K< B8?0< :><0=4 8 ?>78F89
         GlobalSetUlong("LIP_"+TheSymbol+"_Command_"+IntegerToString(CommandCode((enCommandType)i,(ENUM_POSITION_TYPE)j)),TimeSet,0);//!1@0AK205< :><0=4K Command_N=0
         GlobalSetUlong("LIP_"+TheSymbol+"_Ready_"+IntegerToString(CommandCode((enCommandType)i,(ENUM_POSITION_TYPE)j)),TimeSet,1);  //#AB0=02;8205< D;038 7025@H5=8O Ready_N=1
      }}//for(int j=0;i<=1;i++)
   }}//for(int i=1;i<=2;i++)
//-----
   return;
}//OnDeinit()