--НАСТРОЙКИ:
CLASS="TQBR"   --код класса
SECUR="LKOH"   --код инструмента
PARAM="last"   --параметр из ТТП

--НАСТРОЙКИ:
CLASS="TQBR"   --код класса
SECUR="LKOH"   --код инструмента
PARAM="last"   --параметр из ТТП


--ТО ЧТО НИЖЕ ТРОГАТЬ НЕ НАДО
not_stopped = nil
t_id=0
ds=nil
lRow=nil

function OnStop(stop_flag)
   ds:Close()
   DestroyTable(t_id)
   not_stopped = false
end

function OnInit(script_path)
   t_id=AllocTable()
   AddColumn(t_id,1,PARAM,true,QTABLE_STRING_TYPE,30)
   CreateWindow(t_id)
   lRow = InsertRow(t_id, 1)
   SetSelectedRow(t_id, lRow)
   not_stopped = true
   top, left, bottom, right = GetWindowRect(t_id)
   width=227
   height=68
   SetWindowPos(t_id, left, top, width, height)
   ds,err = CreateDataSource(CLASS, SECUR, INTERVAL_TICK, PARAM)
   if ds==nil then
      message("Ошибка при получении параметра "..PARAM..":\n"..err, 3)
   else
      ds: SetUpdateCallback(cb)
   end
end

function cb(index)
if index==ds:Size() then
      SetWindowCaption(t_id,SECUR.."="..tostring(ds:C(index)))
      SetCell(t_id, lRow, 1, tostring(ds:C(index)))
end
end

function main()
  while not_stopped do
   if IsWindowClosed(t_id) then
      OnStop()
   end
  end
end