Всем привет!
Сделал скрипт, который при добавлении цикла repeat...until почему-то перестает обновляться.
Если этот цикл убрать, то обновление идет без проблем...
Почему бы так?
Заранее спасибо!
Сделал скрипт, который при добавлении цикла repeat...until почему-то перестает обновляться.
Если этот цикл убрать, то обновление идет без проблем...
Почему бы так?
Заранее спасибо!
Код |
---|
local stopped = false function OnStop() stopped = true return 2000 end function main() local Table = AllocTable() AddColumn(Table, 1,"Data", true, QTABLE_DOUBLE_TYPE, 18) CreateWindow(Table) SetWindowCaption(Table, "Data table") SetWindowPos(Table, 0, 10, 380, 80) InsertRow(Table, -1) while stopped == false do Quotes_1 = getQuoteLevel2("SPBFUT", "SRU0") Bid_Count_1 = tonumber(Quotes_1.bid_count) if Bid_Count_1>1 then aa= tonumber(Quotes_1.bid[Bid_Count_1].quantity) SetCell(Table, 1, 1, tostring(aa)) end local asset = getFuturesHolding("SPBFUT", "SPBFUT****","SRU0",0).totalnet repeat if aa>1 and asset>0 then local ID_B_Order=10 local OrderSell = { ["ACTION"]="NEW_ORDER", ["ACCOUNT"]= "SPBFUT****", ["OPERATION"] = "S", ["CLASSCODE"]="SPBFUT", ["SECCODE"] = "SRU0", ["PRICE"] = "0", ["QUANTITY"] = tostring(1), ["TRANS_ID"] = tostring(ID_B_Order), ["TYPE"] = "M", } local Err_Order = sendTransaction(OrderSell) message(Err_Order) end asset=asset-1 sleep(1000) until asset==0 --return sleep(3000) end end |