Александр Правилов (Автор тем)

is_run = true

 tbl=QTable:new()
 tbl:SetCaption('Робот')
 tbl:AddColumn('LAST',QTABLE_STRING_TYPE ,20)
 tbl:Show()
line_count_table={}

function OnParam (class, sec)
    if class=="TQBR" or class=="TQDE" then
   local LAST_T = getParamEx(class,  sec, "PREVPRICE")
   LAST=tonumber(toPrice(sec, LAST_T.param_value))   
    end
end

function main()
   while is_run do
   sleep (50)
   end 
end 

function OnParam (class, sec)
.......
if Delta > 0.9 and CurentActiveOrder.image == "Wait" then
        
        --Отправляем заявку
        local id,ms = sendLimit(class,sec,"S",string.format(AUCTPRICE),1,account,client_code,"Коммент")
        --Помещаем в ячейку необходимую фразу
        tbl:SetValue(line_count_table[sec],'ЕстьЗаявка', string.format("Active"))
        --Тут же отменяем все заявки
        local trid,ms = killAllOrders(nil)
end

function OnParam (class, sec)
   
if string.find(ticker_list,sec)~=nil and (class==«TQBR» or class==«SPBFUT») then

        local BIDDEPTHT_T = getParamEx(class,  sec, «BID»)
        local BIDDEPTHT=tonumber(toPrice(sec, BIDDEPTHT_T.param_value))
        tbl:SetValue(line_count_table[sec],'BID', string.format(BIDDEPTHT))

        local OFFERDEPTHT_T = getParamEx(class,  sec, «OFFER»)
        local OFFERDEPTHT=tonumber(toPrice(sec, OFFERDEPTHT_T.param_value))
        tbl:SetValue(line_count_table[sec],'OFFER', string.format(OFFERDEPTHT))

        ------if getSTime()>100000 and getSTime()<184003 then

        local LASTDEPTHT_T = getParamEx(class,  sec, «LAST»)
        local LASTDEPTHT=tonumber(toPrice(sec, LASTDEPTHT_T.param_value))

        tbl:SetValue(line_count_table[sec],'LAST', string.format(LASTDEPTHT))

        ------end

        local Delta = LASTDEPTHT
        tbl:SetValue(line_count_table[sec],'Отклонение', string.format(Delta))
end