local stopped = false
function OnStop()
stopped = true
return 2000
end
--Создание Таблицы
function main()
local Table = AllocTable()
AddColumn(Table,1,"Offer Vol",true, QTable_INT_TYPE, 15)
AddColumn(Table,2,"Offer Price",true, QTable_INT_TYPE, 15)
AddColumn(Table,3,"Bid Vol", true, QTable_INT_TYPE, 15)
CreateWindow(Table)
SetWindowCaption(Table,"Стакан котировок")
SetWindowPos(Table,0,10,300,100)
local RowN=2
for i=1,RowN,1 do
InsertRow (Table,-1)
end
local Offer_Vol
local Offer_Price
local Offer_Count
local Bid_Vol
local Bid_Price
local Bid_Count
local Quotes = {}
local SecCode ="SPBFUT"
while stopped == false do
Quotes = getQuoteLevel2("SRU9",SecCode)
Offer_Count = tonumber (Quotes.offer_count)
Bid_Count = tonumber (Quotes.bid_count)
if Offer_Count > 0 then
Offer_Vol = tonumber (Quotes.offer[1].quantity)
Offer_Price = tonumber (Quotes.offer [1].price)
SetCell (Table,1,1, SecCode)
SetCell (Table,1,2,tostring(Offer_Price))
end
if Bid_Count > 0 then
Bid_Vol = tonumber (Quotes.bid[Bid_Count].quantity)
Bid_Price = tonumber (Quotes.bid[Bid_Count].price)
SetCell(Table,2,2,tostring(Bid_Price))
SetCell(Table,2,3, tostring (Bid_Vol))
end
sleep(100)
end
end
