Сергей Радченко (Все сообщения пользователя)

local trans_params = {
         CLIENT_CODE = Account,
         CLASSCODE = Class_Code,
         SECCODE = Sec_Code,
         ACCOUNT = Account,
         TRANS_ID = "" ,  -- что сюда подпихнуть
         ORDER_KEY=tostring(ord_num),
         ACTION = "KILL_ORDER"
      }

Settings= 
{ 
  Name = "AAAA", 
  Smooth=10,   
  line =  
  { 
    { 
      Name = "Hi", 
      Color = RGB(255, 0, 0), 
      Type = TYPE_LINE, 
      Width = 2
   }
  }
   
} 

function Init() 
  return 1
end 



function write_name(p)
   file=io.output("d:\\name1.ini")  -- getScriptPath()..
   d=file:write(p)
   file:close()
end


function OnCalculate(index) 
local ur=0
   local param=tostring(Settings.line.Name)
   if tonumber(T(index).day)==15 then
      write_name(param)
   end   
return ur
end

is_run = true 
Class_Code = "SPBFUT"  
Sec_Code="RIM5"
TF=INTERVAL_M30

old_can=20150422100     -- время последней обработанной свечи

function main()
   read_param_file()  -- считываем время свечи из файла
   
   ds = CreateDataSource(Class_Code, Sec_Code, TF)
   sleep(200)
      
   while is_run do
      sleep(1000)
      if isConnected()==1 and getInfoParam("SERVERTIME")~=nil then
         sleep(1000)      
         local n_last_candle=ds:Size()
         local t_last_candle=tonumber(ds:T(n_last_candle).year..Chisla(ds:T(n_last_candle).month)..Chisla(ds:T(n_last_candle).day)..Chisla(ds:T(n_last_candle).hour)..Chisla(ds:T(n_last_candle).min))
         if tonumber(t_last_candle)~=tonumber(old_can) then
            local p_new_candles=new_candle(n_last_candle)  -- получение новых свечей
            for i=n_last_candle-p_new_candles, n_last_candle do
               time_can=tostring(ds:T(i).year)..Chisla(ds:T(i).month)..Chisla(ds:T(i).day)..Chisla(ds:T(i).hour)..Chisla(ds:T(i).min)
               create(time_can)  -- действия над свечами
            end
            old_can=t_last_candle
            save_time(old_can)  --сохранение в файл времени последней свечи
         end
      end
   end
   ds:Close()
end

-- функция возвращает кол-во новых свечей от текущей
function new_candle(n_last_candle)
   local p_new_candles=0
   
   for i=0,n_last_candle-1 do
      if tonumber(old_can)<tonumber(tostring(ds:T(n_last_candle-i).year)..Chisla(ds:T(n_last_candle-i).month)..Chisla(ds:T(n_last_candle-i).day)..Chisla(ds:T(n_last_candle-i).hour)..Chisla(ds:T(n_last_candle-i).min))  then
         p_new_candles=i
      else
         break
      end
   end
   
return p_new_candles
end



function OnStop(stop_flag) 
   is_run=false
   stop_flag=1
end