_G.client = {}
_G.client.account       = "SPBFUT000he"
_G.client.class_code    = "SPBFUT"
_G.client.sec_code       = "BRV2"
_G.time = 0

local function toftime(a)
   local aa = a.hour
   aa = aa * 60
   aa = aa + a.min
   aa = aa * 60
   aa = aa + a.sec
   aa = aa * 1000000
   aa = aa + a.mcs
   return aa
end

function OnTransReply (trans_reply)
   if trans_reply.sec_code == _G.client.sec_code then
      local x = toftime(os.sysdate()) - toftime(_G.time)
      PrintDbgStr("OnTransReply: "..(x).."мкс  "..(x / 1000).."мс  "..(x / 1000000).."с")
   end
end

function OnTrade (trade)
   if trade.sec_code == _G.client.sec_code then
      local x = toftime(os.sysdate()) - toftime(_G.time)
      PrintDbgStr("OnTrade: "..(x).."мкс  "..(x / 1000).."мс  "..(x / 1000000).."с")
   end
end

function sendMarketOrder (client, quantity, comment)
    local number = getNumberOf("trades")
   local transaction = {
      ["TRANS_ID"]   = '1',
      ["CLASSCODE"]   = client.class_code,
      ["SECCODE"]      = client.sec_code,
      ['ACCOUNT']      = client.account,
      ['OPERATION']   = quantity > 0 and 'B' or 'S',
      ['QUANTITY']   = tostring(math.abs(quantity)),
      ["ACTION"]      = "NEW_ORDER",
      ["TYPE"]       = "M",
      ['PRICE']       = "0",
      ["CLIENT_CODE"] = comment
   }
   _G.time = os.sysdate()
   local result = sendTransaction(transaction)
   if result == '' then
      for count = 1, 30000 do
         local new_number = getNumberOf("trades")
         if new_number ~= number then
            for i = new_number -1, 0, -1 do
               local item = getItem("trades", i)
               if item.trans_id == tonumber(transaction.TRANS_ID) then
                  local x = toftime(os.sysdate()) - toftime(_G.time)
                  PrintDbgStr("sendMarketOrder: "..(x).."мкс  "..(x / 1000).."мс  "..(x / 1000000).."с  "..count)
                  return true
               end
            end
         end
         sleep(1)
      end
   end
   local fields = ""
   for k, val in pairs(transaction) do
      val = tostring(val)
      fields = fields == '' and fields..k.." = ".."\""..val.."\"" or fields..", "..k.." = ".."\""..val.."\""
   end
   PrintDbgStr("sendMarketOrder: Ошибка транзакции: "..result..' '..fields)
   return false
end

function main()
   for i = 1, 10 do
      PrintDbgStr("i: "..i)
      sendMarketOrder(_G.client, 1)
      sleep(3000)
   end
end