VPM (Все сообщения пользователя)

local tostring=tostring;
local is_run = true;
local instrument_list = {"BRQ3", "BRU3", "BRV3", "BRX3", "GDU3", "GDZ3", "HSU3", "HSZ3", "NAU3", "NAZ3", "NGQ3", "NGU3", "NGV3", "NGX3", "PDU3", "PDZ3", "PTU3", "PTZ3", "SFU3", "SFZ3", "SVU3", "SVZ3"}
local nsecrefresh = 3;
local class;

function OnStop()
   is_run = false
end

function round(num, idp)
   if num == nil then return nil end
   local mult = 10^(idp or 0)
   return math.floor(num * mult + 0.5) / mult
end


function CreateTable()
   local t_id = AllocTable(); 

   AddColumn(t_id, 0, "FUT", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 1, "OI", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 2, "OIINIT", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 3, "OICHG", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 4, "OICHG%", true, QTABLE_DOUBLE_TYPE, 10);

   local t = CreateWindow(t_id);
   SetWindowCaption(t_id, "Open Interest Change");
   SetWindowPos(t_id, 100, 100, 252, 532);
   
   class = "SPBFUT"

   for k,v in pairs(instrument_list) do
      InsertRow (t_id, k)
      local sec = tostring(v)
      local mdparam = getParamEx(class, sec, "NUMCONTRACTS")
      local trueoi = mdparam.param_value
      local trueoi_str = string.format("%d", trueoi)
      SetCell (t_id, k, 0, sec)
      SetCell (t_id, k, 1, trueoi_str)
      SetCell (t_id, k, 2, trueoi_str)
      local chg = 0;
      SetCell (t_id, k, 3, tostring(chg))
      local chg_pc = 0
      SetCell (t_id, k, 4, tostring(chg_pc))
   end

   return t_id
end;

function RefreshTable(t_id)
   for k,v in pairs(instrument_list) do
      local sec = tostring(v)
      local mdparam = getParamEx(class, sec, "NUMCONTRACTS")

      local trueoi = mdparam and mdparam.param_value or 0;
      local trueoi_str = string.format("%d", trueoi);
      SetCell (t_id, k, 1, trueoi_str)

      local initoi = GetCell(t_id, k, 2).image;
      local chg = trueoi - initoi;
      local chg_str = string.format("%d", chg);
      SetCell (t_id, k, 3, chg_str)
      
      local initoi_val = tonumber(initoi);
      local chg_pc = initoi_val~=0 and round(chg / initoi_val * 100,2) or 0;   

      SetCell (t_id, k, 4, tostring(chg_pc))
   end   
end;

function main()
    local table_id = CreateTable()

    while is_run do
      sleep(nsecrefresh*1000)
      RefreshTable(table_id)
    end
end