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

local typedT = function(key_type, value_type, allow_nil)

    local val_t = {}
    local proxy = {}
    if allow_nil == nil then allow_nil = true end

    local check_type = function(value, c_type)
        if (c_type or '') == '' then return true end
        if (('integer|float'):find(c_type)) then
            return math.type(value) == c_type
        end
        return type(value) == c_type
    end

    local mt = {
      __index = val_t,
      __newindex = function (_, k, v)
        if not check_type(k, key_type) then
            error("attempt to index with "..(type(k) == 'number' and math.type(k) or type(k)).. " type", 2)
        end
        if (not allow_nil and v == nil) or (v ~= nil and not check_type(v, value_type)) then
            error("attempt to set a value "..(type(v) == 'number' and math.type(v) or type(v)).. " type", 2)
        end
        val_t[k] = v
    end
    }
    setmetatable(proxy, mt)
    return proxy
end


local t = typedT('number')

local sec_code      = 'SRZ0'
local class_code    = 'SPBFUT'

local sleep         = _G.sleep
local isRun         = true

local t_id          = nil

local SeaGreen      = _G.RGB(193, 255, 193)
local RosyBrown     = _G.RGB(255, 193, 193)
local getParamEx    = _G.getParamEx
local GetCell       = _G.GetCell
local SetCell       = _G.SetCell
local SetColor      = _G.SetColor
local ds
local def_c         = _G.QTABLE_DEFAULT_COLOR

function _G.OnParam(class, sec)
    if isRun and t_id and sec == sec_code and class == class_code then
        local last_price = tonumber((getParamEx(class_code,  sec_code, 'LAST') or {}).param_value) or 0
        local last_vol   = tonumber((getParamEx(class_code,  sec_code, 'VALTODAY') or {}).param_value) or 0
        local lp         = GetCell(t_id, 1, 0).value or last_price
        SetCell(t_id, 1, 1, tostring(last_vol), last_vol)
        SetCell(t_id, 1, 0, tostring(last_price), last_price)
        if lp < last_price then
            SetColor(t_id, 1, 0, SeaGreen, def_c, SeaGreen, def_c)
            SetColor(t_id, 1, 1, SeaGreen, def_c)
        elseif lp > last_price then
            SetColor(t_id, 1, 0, RosyBrown, def_c, RosyBrown, def_c)
            SetColor(t_id, 1, 1, RosyBrown, def_c)
        end
    end
end

local function CreateTable()

    t_id = _G.AllocTable()

    _G.AddColumn(t_id, 0, "price",  true, _G.QTABLE_DOUBLE_TYPE, 15)
    _G.AddColumn(t_id, 1, "vol",    true, _G.QTABLE_DOUBLE_TYPE, 15)
    _G.CreateWindow(t_id)
    _G.SetWindowPos(t_id, 90, 120, 270, 100)
    _G.InsertRow(t_id, 1)
end

local function event_callback(_, msg)
    if (msg == _G.QTABLE_CLOSE) then
        isRun = false
    end
end

function _G.OnInit()
    CreateTable()
    _G.SetTableNotificationCallback(t_id, event_callback)
end

function _G.main()

    ds   = _G.CreateDataSource(class_code, sec_code, 1)
    isRun = ds ~= nil
    if ds then
        ds:SetEmptyCallback()
    end
    while isRun and ds do
        sleep(500)
    end
end

function _G.OnStop()
    isRun = false
    ds:Close()
    ds = nil
    if t_id and not _G.IsWindowClosed(t_id) then
        _G.DestroyTable(t_id)
    end
end

---@param class_code string
---@param sec_code string
local function FilterTableLine(class_code, sec_code)
    return  class_code == Params.CLASS_CODE and
            sec_code == Params.SEC_CODE
end


local t1 = SearchItems("all_trades", 0, getNumberOf("all_trades")-1, FilterTableLine, 'class_code,sec_code')

if t1 then
   for i = 1, #t1 do
       local trade = getItem("all_trades", t1[i])
       if trade then                        
          --- Сделать что-то
       end
   end
end

local sleep  = _G.sleep
local isRun  = true

function _G.main()

    local sec_code = 'SRZ0'
    local class_code = 'SPBFUT'

    local ds = _G.CreateDataSource(class_code, sec_code, _G.INTERVAL_M5)
    if not ds then
        isRun = false
    end

    local index = 0
    if isRun then
        while isRun do
            local last = ds:Size()
            if last ~= 0 then
                while index < last-1 do
                    index = index + 1
                    ds:T(index)
                end
                ds:Close(last)
                ds:T(last)
            end
            sleep(100)
        end
    end
end