Николай Бехтерев (Автор тем)

function OnQuote(class, sec)
   if class == "SPBFUT" and sec == "SiM6" then
      stock = getQuoteLevel2(class, sec)
      OFFER_PRICE = stock.offer[1].price
      BID_PRICE = stock.bid[20].price
   end
end

function OnStopOrder(stops)
   KeyOrder = stops.order_num
end

KillStop (Class, fut, ID+1, KeyOrder) --убиваем стоп (тут KeyOrder дублируется старым значением в OnStopOrder())
StopS (lastPrice-razmerS, ID+1, Class, lots, fut) --после этого новый вызов OnStopOrder() и новое значение у KeyOrder
sleep(500) -- уже и слип пожирнее сделал, но нет нет, да и попадёт в KeyOrder предыдущий номер. Где косяк никак не пойму.
message("trans_stops.order_num of StopS is "..tostring(KeyOrder))

function OnInit("/home/bart/.wine/drive_c/Quik_6.17.3/ROBO2/")

start = "/home/bart/.wine/drive_c/Quik_6.17.3/ROBO2/"
function OnInit(start)

local j = 123
io.output("god.txt")
io.write(j)

local file,err = io.open( filename, "wb" )
      if err then return err end

fut = "SIU5"    --торгуемый фьючерс
range = 200
lots = 1       --количество торгуемых лотов
ID = 1          --Айди транзакций
totalnet = 0    --начальный размер позиции

dofile("transaction.lua")
dofile("candle.lua")


function OnAllTrade(AllTrades)
   if AllTrades.sec_code == fut then
      Price = AllTrades.price
      posa = chemp(Price, range)   
      Class = AllTrades.class_code
   end
end
 

function OnFuturesClientHolding(fut_pos)
   if fut_pos.sec_code == fut then
      totalnet = fut_pos.totalnet
      PrintDbgStr("Changed position size to "..tostring(position))
   end
end
 

function OnStop()
   is_run = 0
end
 

function main()
   while is_run == 1 do
   
      if position > posa then
         --ВЫХОДИМ ИЗ ЛОНГА; КОЛИЧЕСТВО В ЗАЯВКЕ = lots + totalnet
         Qty = lots + totalnet
         OrderSell (Price, ID, Class, Qty, fut)
         ID = ID + 1         
         position = -1
      PrintDbgStr("Перевернулись в шорт по цене "..tostring(Price))
      
      elseif position < posa then
         --ВЫХОДИМ ИЗ ШОРТА; КОЛИЧЕСТВО В ЗАЯВКЕ С УЧЁТОМ РАЗМЕРА ОСТАТКА ПО СЧЁТУ
         Qty = lots - totalnet
         OrderBuy (Price, ID, Class, Qty, fut)
         ID = ID + 1         
         position = 1
      PrintDbgStr("Перевернулись в лонг по цене "..tostring(Price))
         
      end
      sleep(100)
   end
end
 

table_order = { ["CLASSCODE"]="",
      ["ACTION"]="",
      ["ACCOUNT"]="",
      ["OPERATION"] = "",
      ["SECCODE"] = "",
      ["PRICE"] = 0,
      ["QUANTITY"] = ""
   }
function OnTrade(order)
   table_order = order
end

function OnStop()
   is_run = 0
end

function main()
   while is_run do
   table_order = OnTrade()
   message(tostring(table_order.PRICE),3)
   sleep(1000)
   end
end

function OnTrade(order)
   table_order = order
end

table_order = {}
zed_is_dead = ""
is_run = 1

function OnTrade(order)
   table_order = order
end

function OnStop()
   is_run = 0
end

function main()
   while is_run do
      zed_is_dead = tostring(table_order.trade_num) 
          message(zed_is_dead,1) 
   end 
end

zed_is_dead = tostring(table_order.trade_num) 
message(zed_is_dead,1)