SearchItems

function fn(t,...)
    local arg = {...}
    for k,v in ipairs(arg) do
        if k % 2 == 1 then
            key = v
        else
            val = v
            if t[key] ~= val then
                return false
            end
        end
    end
    return true
end 

--
-- SearshTables
--


--
-- Универсальная функция обратного вызова для SearchTables. 
-- Реализует проверку условий для переменного набора параметров 
-- Возвращает true если удовлетворены ВСЕ условия (AND), иначе - false
-- 

function fn(t,...)

    local arg = {...}

    for k,v in ipairs(arg) do

        if k % 2 == 1 then
            key = v
        else
            val = v
            if t[key] ~= val then
                return false
            end

        end

    end

    return true

end 


--
-- Функция поиска элементов (таблиц) удовлетворяющих набору критериев. 
-- Переменное число параметров и соответствующих значенией, например :
-- 
-- SearchTables("trades",0,getNumberOf("trades")-1,fn,"seccode","SBER","qty",1,"price",120)
--
-- Возвращает таблицу, сожержащую сделки (таблицы) по SBER с qty=1 И price=120.


function SearchTables(tables,s,e,fn,...)

local f = {},k
local arg = {...}

    k = 0
    for n = s,e do

        local t = getItem(tables,n)

        if fn(t,...) then  
            k = k+1
            table.insert(f,k,t)
        end

    end

        return f
end


--
-- Пример использования SearchTables
--

function main()


    st =  SearchTables("trades",0,getNumberOf("trades")-1,fn,"seccode","SRM6","price",12138,"qty",1)

    message("Found trades: "..#st,1)


end

-- SelectItems
-- Возвращает таблицу с номерами элементов в 'tables', удовлетворяющих 
-- набору критериев вида p = { par1=val1, par2=val2, ... }
-- s - start, e - end
--

function SelectItems(tables,s,e,p)

local t,fields={},""

    for key,val in pairs(p) do
        fields = fields .. "," .. tostring(key)                    
        t[#t+1] = val
    end

local function fn(...)

local args = {...}
    for key,val in ipairs(args) do
        if t[key] ~= val then
            return false
        end
    end
    return true
end
    return SearchItems(tables,s,e,fn,fields)
end


-- ---------------------------------------------------------------------
-- Пример использования SelectItems
-- ---------------------------------------------------------------------

function main()

local table,n,N,params

    table = "all_trades"
    n = getNumberOf(table)-1
    params = {sec_code='RIM6',class_code='SPBFUT',qty=1}

    N = 100
    
    message("Selecting from "..table.." ("..n..") "..N.." times")
    _start = os.clock()

    for i = 1, N do
        st = SelectItems(table,0,n,params)
    end

    _end = os.clock()

    time = _end - _start
    message("Found: "..#st..",time: "..string.format("%.1f",time),1)

end

function fn(par1, par2, par3)
    if par1 ==  103 and par2 == "SPBFUT" and par3 == "RIM3" then
        return true    
else
        return false    
   end
end
t1 = SearchItems("all_trades", 0, getNumberOf("all_trades")-1, fn, [B]"qty,class_code, sec_code"[/B])

t1 = SearchItems ("all_trades",0,getNumberOf ("all_trades")-1, {["qty"] =103, ["class_code"]="SPBFUT", ["sec_code"]= "RIM3"})

function fn(flags,order_num)
i=i+1
   if bit.band(flags, 1)==1 then
   message ( "активна "..tostring(i).."  "..tostring(order_num))
   -- return i
   end
return true
end 

function main()
   is_run,i = true,0
   while is_run do
   SearchItems("orders", i, getNumberOf("orders")-1, fn, "flags,order_num")
   message ( "последняя "..tostring( i ))
   sleep(2000)
   end
end

function OnStop(s)
is_run = false
end