Павел Bosco (Все сообщения пользователя)

#if !defined(lua_lock)
#define lua_lock(L)   ((void) 0)
#define lua_unlock(L)   ((void) 0)
#endif

function main()
  message("getParamEx: " .. getParamEx("NA_ALL_50_C", "TSLA", "PREVPRICE").param_value, 1)
end

stopped = false;
function OnStop()
  stopped = true;
end;

function member_callback(dataSource, index) 
  message("member_callback\n  dataSource.size() = " .. tostring(dataSource:Size()) .. ",\n  index = " .. tostring(index), 1)
  stopped = true
end 

function main()
 local ds = CreateDataSource ("QJSIM", "SBER", INTERVAL_M1)
 ds.member_callback = member_callback
 ds:SetUpdateCallback(function(index)
   ds:member_callback(index)
 end)
 while not stopped do
   sleep(1)
 end
 ds:Close()
end

member_callback
  dataSource.size() = 722,
  index = 722

stopped = false;
function OnStop()
  stopped = true;
end;
current_time = os.clock()
num = 0
function main()
 function cb( index ) 
  local time = os.clock()
  if time - current_time > 60 then
    current_time = time
    message("Запросов в минуту: " .. num, 1)
    num = 0
  end
  num = num + 1
 end 
 ds = CreateDataSource ("SPBFUT", "SiZ1", INTERVAL_M1) 
 ds:SetUpdateCallback (cb)
 while not stopped do
   sleep(1)
 end
 ds:Close()
end

function OnTransReply(trans)
 -- Если поступила информация по текущей транзакции 
 message("TransReply:\n" .. --trans.date_time .. '\n' .. 
   tostring(trans.trans_id) .. '\n' .. 
   trans.sec_code .. '\n' .. tostring(trans.status) .. '\n' .. 
   tostring(tobin(trans.flags)) .. '\n' .. 
    tostring(trans.order_num) .. '\n' .. 
   tostring(trans.quantity) .. '\n' .. 
   tostring(trans.price) .. '\n' .. 
   trans.result_msg);
end;

function OnOrder(order) 
 -- Если поступила информация по сделке
 message("OnOrder {\n" .. --trade.datetime .. '\n' .. 
   " trans_id: " .. tostring(order.trans_id) .. '\n' .. 
    " order_num: " .. tostring(order.order_num) .. '\n' .. 
   " flags: " .. tostring(tobin(order.flags)) .. '\n' ..
        " brokerref: " .. tostring(order.brokerref)  .. '\n' ..
   " balance: " .. tostring(order.balance) .."\n" .. 
   " qty: " .. tostring(order.qty) .. '\n' ..
   " value: " .. tostring(order.value) .. '\n' ..
   " account: " .. tostring(order.account) .. '\n' ..
   " activation_time: " .. tostring(order.activation_time) .. '\n' ..
   " ext_order_status: " .. tostring(order.ext_order_status) .. '\n' ..
   " trading_session: " .. tostring(order.trading_session) .. "\n}");
end;

TransReply:
236
SBER
3
1001000000000000000001
6307340506
1.0
369.5
(161) Заявка N 6307340506 зарегистрирована. Удовлетворено 1

OnOrder {
 trans_id: 236
 order_num: 6307340506
 flags: 11000
 brokerref: 10112//
 balance: 0.0
 qty: 1.0
 value: 3695.0
 account: NL0011100043
 activation_time: 0
 ext_order_status: 0
 trading_session: 0
}

OnOrder {
 trans_id: 236
 order_num: 6307340506
 flags: 11000
 brokerref: 10112//
 balance: 0.0
 qty: 1.0
 value: 3695.0
 account: NL0011100043
 activation_time: 0
 ext_order_status: 0
 trading_session: 0
}