Использование Subscribe_Level_II_Quotes

 function main()

    while is_run do

        for key, value in spairs(tikets) do

            Subscribe_Level_II_Quotes(class_code, key)

            Quotes(key)

     end

   end

end



function Quotes(code)

   sleep(250)

   for i=1, 30 do

      q = getQuoteLevel2(class_code, code)

--получаю стакан, перебираю его. добавляю в таблицу в окне данные. 

   max_bid_price и max_ask_price



   prevlegalclosepr=tonumber(getParamEx(class_code, code,"last").param_value)

      if (max_bid_price==0) or (max_ask_price==0) then

                delta==0

            else

         if max_bid_price >= max_ask_price then 

            delta = (prevlegalclosepr/max_bid_price)

         else

            delta = (prevlegalclosepr/max_ask_price)

         end

            end

   

   SetCell(Таблица, НомерСтрокиПоБумаге, 6, delta)

for key, value in spairs(tikets) do

bid_count = tonumber(q["bid_count"])
ask_count = tonumber(q["offer_count"])
bid = q["bid"]
ask = q["offer"]

for bid_i=1, bid_count, 1 do
   bid_quantity = tonumber( bid[bid_i]["quantity"] )
   if (bid_quantity > max_bid_count) then
      max_bid_count = bid_quantity
      max_bid_price = bid[bid_i]["price"]
   end
end 

--константы
data_file = "s_test.txt"   --путь к файлу со списком акций и кодов классов

--переменные скрипта
is_run = true      --Режим работы скрипта, работает или остановлен
shares = {}      --Список акций
shares_count = 0   --Количество акций
table_data = nil   --Данные для визуальной таблицы
class_code = "TQBR"     --Код классов
t = nil         --Указатель на визуальную таблицу


--Дополнительый поток
function main()
   while is_run do
      for key, value in spairs(shares) do
         i = i + 1
                   Subscribe_Level_II_Quotes(class_code, key)
         Quotes(key)         
      end
   end
end

function OnInit(quik_path)
   --читаем из файла акции и коды классов
   for line in io.lines(getScriptPath() .. "\\" .. data_file) do
      pos = string.len(line)
      share = string.sub(line, 0, pos)

      share_item = {}
      share_item["class"] = class_code
      shares[share] = share_item
      shares_count = shares_count + 1
   end

   table.sort(shares)

   --содержимое таблицы   
   table_data = {}


   --Создаем структуру, описывающую таблицу
   t = AllocTable()

   --столбцы
   AddColumn(t, 1, "Ticker", true, QTABLE_STRING_TYPE, 10)
   AddColumn(t, 2, "Count Bid", true, QTABLE_INT_TYPE, 10)
   AddColumn(t, 3, "Bid Price", true, QTABLE_STRING_TYPE, 10)
   AddColumn(t, 4, "Count Ask", true, QTABLE_INT_TYPE, 10)
   AddColumn(t, 5, "Ask Price", true, QTABLE_STRING_TYPE, 10)
   AddColumn(t, 6, "Delta", true, QTABLE_STRING_TYPE, 10)

   CreateWindow(t)
   SetWindowCaption(t, "Price_Delta")
   SetWindowPos(t, 200, 200, 500, 600)

   for i=1, shares_count do
      InsertRow(t, -1)
   end
 
   i = 0

   -- заполняем таблицу используя сортировку по ключам
   for key, value in spairs(shares) do
      i = i + 1
      sec_code = key
      SetCell(t, i, 1, tostring(sec_code))
      SetColor(t, i, 1, RGB(150, 150, 150), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
   end
end


function OnStop()
   is_run = false
   for key, value in spairs(shares) do      
      Unsubscribe_Level_II_Quotes(class_code, key)
   end
end

function Quotes(code)
   sleep(150)
   for i=1, shares_count do
      local row = GetCell(t, i, 1)
      row_sec = tostring(row["image"])
           if (row_sec == code) then
              q = getQuoteLevel2(class_code, code)
                   bid_count = tonumber(q["bid_count"])
         ask_count = tonumber(q["offer_count"])

         bid = q["bid"]   --покупатели
         ask = q["offer"]   --продавцы
                   max_bid_count = 0   --количество лотов (максимальный спрос)
         max_ask_count = 0   --количество лотов (максимальное предложение)
         max_bid_price = ""   --цена максимального спроса
         max_ask_price = ""   --цена максимального предложения


         --перебираем всех покупателей и находим самый большой объем
         for ii=1, bid_count, 1 do
            bid_quantity = tonumber( bid[ii]["quantity"] )
            if (bid_quantity > max_bid_count) then
               max_bid_count = bid_quantity
               max_bid_price = bid[ii]["price"]
            end
         end

         --перебираем всех продавцов находим самый большой объем
         for ii=1, ask_count, 1 do
            ask_quantity = tonumber( ask[ii]["quantity"] )
      
            if (ask_quantity > max_ask_count) then
               max_ask_count = ask_quantity
               max_ask_price = ask[ii]["price"]
            end
         end
                   
         SetCell(t, i, 2, tostring(max_bid_count))
         SetColor(t, i, 2, RGB(50, 250, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         SetCell(t, i, 3, tostring(max_bid_price))
         SetColor(t, i, 3, RGB(50, 250, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         SetCell(t, i, 4, tostring(max_ask_count))
         SetColor(t, i, 4, RGB(250, 50, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         SetCell(t, i, 5, tostring(max_ask_price))
         SetColor(t, i, 5, RGB(250, 50, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
          

         if (max_ask_count>max_bid_count) then   
            price_max=max_ask_price
            SetCell(t, i, 2, "")
            SetColor(t, i, 2, RGB(255, 255, 255), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
            SetCell(t, i, 3, "")
            SetColor(t, i, 3, RGB(255, 255, 255), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)   
         elseif (max_ask_count<max_bid_count) then
            price_max=max_bid_price
            SetCell(t, i, 4, "")
            SetColor(t, i, 4, RGB(255, 255, 255), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
            SetCell(t, i, 5, "")
            SetColor(t, i, 5, RGB(255, 255, 255), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)   
         else 
            price_max=max_bid_price
         end
          
         closeprice=tonumber(getParamEx(class_code, code,"last").param_value)
         if (closeprice==0) then
            delta=0
         else
            delta=(tonumber(price_max)/closeprice-1)*100
         end
         
         SetCell(t, i, 6, apply_scale(delta,2))
         if delta>=2 then
            SetColor(t, i, 6, RGB(50, 250, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         elseif delta<=-2 then
            SetColor(t, i, 6, RGB(250, 50, 50), QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         else 
                           SetColor(t, i, 6, RGB(255, 255, 255), QTABLE_DEFAULT_COLOR,QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
         end
      end
   end   
end
 

function Quotes(code)
   sleep(150)
   for i=1, shares_count do
    if IsWindowClosed(t) then 
      is_run=false
      break 
    end
--остальной код