local is_run = true
function OnStop() is_run = false end
local table_remove = table.remove
local ccode = "TQBR"
local s_list = {"SBER","GAZP","MTLR"}
local account = --вставка
local clientcode = --вставка
local row = getNumberOf("orders")--№ строки Таблицы заявок
local trans_id = 1
local newOrder = {}--вид: {[order_num1] = row1,[order_num2] = row2,...[order_numN] = rowN}
local MSG = {["B"] = "выставлена заявка Купля:\n№ ",["S"] = "выставлена заявка Продажа:\n№ "}
--функции--
local bBand = bit.band
local orderstatus = function (flags)--статус заявки
    if bBand(flags,1)~=0 then return "A" 
    else
        if bBand(flags,2)~=0 then return "K"
        else return "F" end
    end
end
local orderBS = function (flags)--направление
    if bBand(flags, 4)~=0 then return "S" else return "B" end
end
local sendLimit = function (op, scode, ccode, pri, lot, tr_id)
    local send = {
    ["ACTION"] = "NEW_ORDER",
    ["TRANS_ID"] = tostring(tr_id),
    ["ACCOUNT"] = account,
    ["CLIENT_CODE"] = clientcode,
    ["TYPE"] = "L",
    ["OPERATION"] = op,
    ["CLASSCODE"] = ccode,
    ["SECCODE"] = scode,
    ["PRICE"] = tostring(pri),
    ["QUANTITY"] = tostring(lot)
    }
    local res = sendTransaction(send)
    if res ~= "" then message("sendLimit : " .. res, 2) return nil else return tr_id end
end
local sendKill = function (onum, scode, ccode)
    local kill = {
    ["ACTION"] = "KILL_ORDER",
    ["CLASSCODE"] = ccode,
    ["SECCODE"] = scode,
    ["ORDER_KEY"] = tostring(onum),
    ["TRANS_ID"] = "666"
    }
    local res = sendTransaction(kill)
    if res ~= "" then message("Kill : " .. res, 2) return nil else return "6666" end
end
local killAll = function (tab, ccode)
    for order_num, row in pairs(tab) do
        local item = getItem("orders", row)
        local flag = item.flags
        if item.order_num == order_num and orderstatus(flag) == "A" then 
            _ = sendKill(order_num, item.sec_code, ccode)
        end
    end
end
local LENnewOrder = 0--кол-во элементов в newOrder
function OnOrder(order)
    local order_num = 0 + order.order_num
    if not newOrder[order_num] then--если нет данных о заявке
        newOrder[order_num] = row
        LENnewOrder = LENnewOrder + 1
        row = row + 1
        local op = orderBS(order.flags)
        message(MSG[op]..order_num, 2)
    end
end
for i=1,#s_list do
    local sec = s_list[i]
    local pricemin = 0 + getParamEx(ccode,sec,"PRICEMIN").param_value
    _ = sendLimit("B", sec, ccode, pricemin, 1, trans_id)
    trans_id = trans_id + 1
end
function main()
    while is_run do
        if LENnewOrder == 3 and getNumberOf("orders") == row then
            killAll(newOrder, ccode)
            newOrder = {}
            LENnewOrder = 0
            is_run = false
        end
        sleep(1)
    end
end