//
// YURAZ  2008 yzh @ mail.ru
//
// скрипт загрузки истории в MS SQL
// перегрузить всю историю по всем парам  по всем ТАЙМФРЕМАМ
// в MS SQL
//

#import "YZMSSQLExpertSample.dll"
int SQLProcedureHistoryPut( string,  int  , int, double , double ,double , double ,double ,int,  string );  

static int mPeriod[8]={PERIOD_M1,PERIOD_M5,PERIOD_M15,PERIOD_M30,PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1};



void start()
{

    PutHistor("EURUSD"); 
    PutHistor("USDCHF"); 

    Comment(" ЗАГРУЗКА  ПРОИЗВЕДЕНА " );
}



void PutHistor(string sSymbol)
{

  for ( int iPeriod = 0; iPeriod <= 8 ; iPeriod++ )
  {
     int pPERIOD_XX = mPeriod[iPeriod];

     int Bar = iBars(sSymbol,pPERIOD_XX ); // получим глубину истории по данному тф

// прогресс бар по барам
     for ( int iBar = Bar; iBar >= 0 ; iBar--)
     {
     Comment( "ЖДИТЕ  Период "+pPERIOD_XX+" СИМВОЛ "+sSymbol+" БАРОВ "+iBar );
       double   o = iOpen  (sSymbol,pPERIOD_XX,iBar);
       double   h = iHigh  (sSymbol,pPERIOD_XX,iBar);
       double   l = iLow   (sSymbol,pPERIOD_XX,iBar);
       double   c = iClose (sSymbol,pPERIOD_XX,iBar);
       double   v = iVolume(sSymbol,pPERIOD_XX,iBar);
       datetime d = iTime  (sSymbol,pPERIOD_XX,iBar);
       int RetCode = SQLProcedureHistoryPut( sSymbol,pPERIOD_XX,d,o,h,l,c,v,iBar, "YZ_MT4_HISTORY"); // вызываем процедуру для сброса истории
       // Print ( " YZ_MT4_HITSRY "+RetCode);
      }
  }
}