Всем привет!
Сделал скрипт, который при добавлении цикла 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
|