Серега (Все сообщения пользователя)

function Move_Order( price1 , quantity1 , number1 )
   local transaction,res={},{}
   transaction.ACTION=tostring("MOVE_ORDERS")
   transaction.MODE=tostring( 1 )
   transaction.TRANS_ID=tostring(100000+math.random(90000))
   transaction.CLASSCODE=tostring( classcode )
   transaction.SECCODE=tostring( seccode )
   transaction.FIRST_ORDER_NUMBER=tostring( number1 )
   transaction.FIRST_ORDER_NEW_PRICE=tostring( price1 )
   transaction.FIRST_ORDER_NEW_QUANTITY=tostring( quantity1 )
   res=sendTransaction( transaction )
   if res~="" then    message ( "MOVE_ORDERS()= ".. tostring(res) )    end
end

function fn(flags,order_num)
 if bit.band(flags, 1)==1 then
  return nil
 end
i=i+1
return true
end 

function main()
 is_run,i = true,0
 while is_run do
  SearchItems("orders", i, getNumberOf("orders")-1, fn, "flags")
  message ( "последняя "..tostring( i ))
  sleep(2000)
 end
end

function OnStop(s)
is_run = false
end

function fn(flags,order_num)
i=i+1
   if bit.band(flags, 1)==1 then
   message ( "активна "..tostring(i).."  "..tostring(order_num))
   -- return i
   end
return true
end 

function main()
   is_run,i = true,0
   while is_run do
   SearchItems("orders", i, getNumberOf("orders")-1, fn, "flags,order_num")
   message ( "последняя "..tostring( i ))
   sleep(2000)
   end
end

function OnStop(s)
is_run = false
end

function fn(seccode,flags,qty)
   if seccode=="SiH9" then
      message ( tostring(qty) ) -- выдает только строку =0, а должен все строки
      message ( tostring(flags) )
      message ( tostring(seccode) ) 
   end
end

function main()
   SearchItems("orders", 0, getNumberOf("orders")-1, fn, "sec_code,flags,qty")
end

function OnInit ()
 LastTrade=0
end

function OnTrade(trades)
 if LastTrade >= trades.trade_num then return end
 message(  "- LastTrade " ..tostring( trades.order_num ).."  trade_num " ..tostring( trades.trade_num) )
 LastTrade = trades.trade_num
end

function OnInit()
 lent_=getNumberOf("trades")
end

function main()
 is_run = true while is_run do
 sleep(100) end
end

function OnTrade(trades) 
lent=getNumberOf("trades")
 if lent~=lent_ then
  message(  "-order_num " ..tostring( trades.order_num ).."  trade_num " ..tostring( trades.trade_num) )
 lent_=lent
 end 
end

Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "trade done"