Обновление пользовательской таблицы/окна

local t_id, isStopped

local function UserFunc(m)
    for i = 2, 6 do
         for j = 1, 4 do
              m = m + 1
              SetCell(t_id, i, j, tostring(m))
         end
    end
end

local function cb_func(...)
end

function OnParam()
    local y = os.time() % 1000
    SetCell(t_id, 1, 1, tostring(y))
    message("  system table:  y1 = "..y)
    y = y + 20000
    SetCell(t_id, 9, 1, tostring(y))
    message("  system table:  y9 = "..y)
end

function OnInit(...)
    isStopped = false
end

function OnStop(...)
    isStopped = true
end

function main()
    t_id = AllocTable()
    for i = 1, 6 do
        AddColumn(t_id,  ("N "..i), true, QTABLE_CACHED_STRING_TYPE, 10)
    end
    CreateWindow(t_id)
    for i = 1, 10 do
         InsertRow(t_id, i)
    end
    local nx = 0
    for i = 1, 10 do
         for j = 1, 6 do
              nx = nx + 1
              SetCell(t_id, i, j, tostring(nx))
         end
    end
    SetTableNotificationCallback(t_id, cb_func)
    nx = 0
    while (not isStopped) do
         nx = nx + 1
         UserFunc(nx * 100)
         sleep(100)
    end
    DestroyTable(t_id)
end

doParam = false

--прочий код

function OnParam()
 if doParam then
--остальной код
 end
end

--прочий код

function main()
   --тут формируем таблицу
   doParam = true
   while (not isStopped) do
         --работа цикла
    end
    --остальной код
end

CLASS_CODE        = 'SPBFUT'
SEC_CODE          = 'SiU8'
INTERVAL          = INTERVAL_M1

t_id = nil
isRun = true

SeaGreen=12713921       --  RGB(193, 255, 193) нежно-зеленый
RosyBrown=12698111  --  RGB(255, 193, 193) нежно-розовый

function dsCallback()
    local last_price = tonumber(getParamEx(CLASS_CODE,SEC_CODE,"last").param_value)
    local lp = GetCell(t_id, 1, 0).value or last_price
    if lp < last_price then
        Highlight(t_id, 1, 0, SeaGreen, QTABLE_DEFAULT_COLOR,1000)
    elseif lp > last_price then
        Highlight(t_id, 1, 0, RosyBrown, QTABLE_DEFAULT_COLOR,1000)
    end   
    SetCell(t_id, 1, 0, tostring(last_price), last_price) 
end

function OnInit()
  
     local Error = ''
     DS,Error = CreateDataSource(CLASS_CODE, SEC_CODE, INTERVAL)
     -- Проверка
     if DS == nil then
         message('ОШИБКА получения доступа к свечам! '..Error)
         isRun = false
         return
     end
            
     CreateTable()
 
     local last_price = tonumber(getParamEx(CLASS_CODE,SEC_CODE,"last").param_value)
     SetCell(t_id, 1, 0, tostring(last_price), last_price) 
        
     DS:SetUpdateCallback(function(...) dsCallback(...) end)
    
 end

function main()
    
    SetTableNotificationCallback(t_id, event_callback)

    while isRun do 
        sleep(10)           
    end
end

function CreateTable() -- Функция создает таблицу
    
    t_id = AllocTable()
    
    AddColumn(t_id, 0, "price", true, QTABLE_DOUBLE_TYPE, 15)

    tbl = CreateWindow(t_id) 
    SetWindowPos(t_id, 90, 120, 170, 100)
    
    InsertRow(t_id, 1)
    
end

function event_callback(t_id, msg, par1, par2)
    if (msg==QTABLE_CLOSE) then
        isRun = false
    end
end

function OnStop()
    isRun = false
    if t_id~= nil then
        DestroyTable(t_id)
    end
end

CLASS_CODE        = 'SPBFUT'
SEC_CODE          = 'SiU8'
INTERVAL          = INTERVAL_M1

t_id = nil
isRun = true

SeaGreen=12713921       --  RGB(193, 255, 193) нежно-зеленый
RosyBrown=12698111  --  RGB(255, 193, 193) нежно-розовый

function dsCallback()
   --[[
    local last_price = tonumber(getParamEx(CLASS_CODE,SEC_CODE,"last").param_value)
    local lp = GetCell(t_id, 1, 0).value or last_price
    if lp < last_price then
        Highlight(t_id, 1, 0, SeaGreen, QTABLE_DEFAULT_COLOR,1000)
    elseif lp > last_price then
        Highlight(t_id, 1, 0, RosyBrown, QTABLE_DEFAULT_COLOR,1000)
    end   
    SetCell(t_id, 1, 0, tostring(last_price), last_price) 
    ]]--
end

function OnInit()
  
     local Error = ''
     DS,Error = CreateDataSource(CLASS_CODE, SEC_CODE, INTERVAL)
     -- Проверка
     if DS == nil then
         message('ОШИБКА получения доступа к свечам! '..Error)
         isRun = false
         return
     end
            
     CreateTable()
 
     local last_price = tonumber(getParamEx(CLASS_CODE,SEC_CODE,"last").param_value)
     SetCell(t_id, 1, 0, tostring(last_price), last_price) 
        
     DS:SetUpdateCallback(function(...) dsCallback(...) end)
    
 end

function main()
    
    SetTableNotificationCallback(t_id, event_callback)

    while isRun do 
        local last_price = tonumber(getParamEx(CLASS_CODE,SEC_CODE,"last").param_value)
        local lp = GetCell(t_id, 1, 0).value or last_price
        if lp < last_price then
            Highlight(t_id, 1, 0, SeaGreen, QTABLE_DEFAULT_COLOR,1000)
        elseif lp > last_price then
            Highlight(t_id, 1, 0, RosyBrown, QTABLE_DEFAULT_COLOR,1000)
        end   
        SetCell(t_id, 1, 0, tostring(last_price), last_price) 
        sleep(10)           
    end
end

function CreateTable() -- Функция создает таблицу
    
    t_id = AllocTable()
    
    AddColumn(t_id, 0, "price", true, QTABLE_DOUBLE_TYPE, 15)

    tbl = CreateWindow(t_id) 
    SetWindowPos(t_id, 90, 120, 170, 100)
    
    InsertRow(t_id, 1)
    
end

function event_callback(t_id, msg, par1, par2)
    if (msg==QTABLE_CLOSE) then
        isRun = false
    end
end

function OnStop()
    isRun = false
    if t_id~= nil then
        DestroyTable(t_id)
    end
end

Run = true;
 
function main()

 CreateTable();
  
 while Run do
 
  SERVERTIME = tostring(getInfoParam('SERVERTIME'));
  
  PasteTable();
    
  sleep(10)
 
 end;
 
end;
-- Функция создает таблицу
function CreateTable()
   t_id = AllocTable();
  
   AddColumn(t_id, 0, "1", true, QTABLE_INT_TYPE, 15);
   AddColumn(t_id, 1, "2", true, QTABLE_INT_TYPE, 10);
   t = CreateWindow(t_id);
 
   SetWindowCaption(t_id,tostring("ООО"));
   SetWindowPos(t_id, 0, 0, 302, 864);
   InsertRow(t_id, -1);
   InsertRow(t_id, 0);
   InsertRow(t_id, 2);
   
end;
  
-- Функция заполняет таблицу
function PasteTable()
   SetCell(t_id, 1, 0, "Время:");
   SetCell(t_id, 1, 1, tostring(SERVERTIME)); 
end