Вячеслав + (Автор тем)

local info = getSecurityInfo("SPBFUT", "MMM6");
message(string.format("%.20f", info.min_price_step), 1);  -- см. 3 последние цифры

price = "235.7"
min_price_step = 0.5
assert(math.fmod(tonumber(price), min_price_step) == 0, "некратная цена");

-- положим, есть внешняя библиотека, которая создаёт userdata для std::recursive_mutex в lua
-- mtx:lock() вызывает std::recursive_mutex::lock() (или EnterCriticalSection, если используются критические секции вместо recursive_mutex)
-- mtx:unlock() вызывает std::recursive_mutex::unlock() (или LeaveCriticalSection, если --//--)
mtx = recursive_mutex.create();
tbl = {};

function OnParam(class_code, sec_code)
    local idx = class_code .. "|" .. sec_code;
    mtx:lock();
    tbl[idx] = (tbl[idx] or 0) + 1;
    mtx:unlock();
end

running = true;

function OnStop()
    running = false;
end

function main()
    while (running) do
        sleep(50);
        mtx:lock();
        local str = {};
        -- ВОПРОС: Будет ли в этом месте таблица tbl содержать актуальные значение?
        -- Допустим, только что выполнился вызов mtx:unlock() в OnQuote в callback'е и мы попали сюда в потоке main.
        -- Отразится ли изменение выполненное в потоке callback'а строкой кода "tbl[idx] = (tbl[idx] or 0) + 1"
        -- на таблице tbl в потоке main?
        -- Как добиться здесь актуального значения полей таблицы tbl в этом месте?
        for k,v in pairs(tbl) do
            str[#str+1] = k .. "=" .. v;
        end
        message(table.concat(str, "\n"));
        mtx:unlock();
    end
end

-- Utility. Not optimized. Just an example.
function bittest(number, shift)
   local v = 1;
   for i=1,shift do
      v = v * 2;
   end
   return (number - v) ~= number;
end


running = true;

transaction = {}
transaction_stage = "not send";
transaction_details = {};

function set_stage(new_stage)
   transaction_stage = new_stage;
   message(transaction_stage, 1);
end


function OnStop()
   running = false;
end

function main()
   transaction = {
      ACCOUNT = "L01-00000***", -- (*** - для приватности)
      CLIENT_CODE = "51***//COMMENT",   -- лимит 20 символов для этого поля, это верно для транзаций по всем инструментам?
      ACTION = "NEW_ORDER",
      CLASSCODE = "TQBR", SECCODE = "MTSS",
      OPERATION = "B",
      TYPE = "M", PRICE = "0", QUANTITY = "1",
      TRANS_ID = "1000001", -- какие есть ограничения на значения этого поля? (самые жёсткие, для всех классов инструментов сразу)
   };
   local result = sendTransaction(transaction);
   if (result ~= '') then
      message("Ошибка отправки транзакции: "..result, 1);
   else
      transaction_stage = "send";
   end

   while running do sleep(50); end
end

function OnTransReply(trans_reply)
   if (tostring(trans_reply.trans_id) == transaction.TRANS_ID) then
      if (trans_reply.brokerref ~= transaction.CLIENT_CODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится транзация?
         set_stage("???");   -- прошу уточнить, что должно быть вместо ??? (в каком состоянии транзакция)
         return;
      end
      if (trans_reply.class_code ~= transaction.CLASSCODE or trans_reply.sec_code ~= transaction.SECCODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится транзация?
         set_stage("???");
         return;
      end
      if (trans_reply.quantity ~= tonumber(transaction.QUANTITY)) then
         -- Возможна ли такая ситуация, и в каком состоянии находится транзация?
         -- Может ли транзакция выполниться частично? При каких условиях?
         set_stage("???");
         return;
      end
      -- какие коды (ret_code) могут быть в result_msg? где можно посмотреть весь список?
      local ret_code = string.match(trans_reply.result_msg, "^%((%d+)%)");
      -- в чём измеряется time? как привести время к текущему?
      local time = trans_reply.time;
      if (trans_reply.status == 3) then
         transaction_details.order_num = trans_reply.order_num;
         set_stage("Транзакция успешно отправлена на сервер в "..time.." с кодом сообщения "..ret_code);
      else
         set_stage("Ошибка отправки транзакции на сервер (время "..time..", код "..ret_code..")");
      end
   end
end

function OnTrade(order)
   if (transaction_details.order_num == order.order_num) then
      -- пожалуйста, прокомментируйте возможные значащие значения order.flags в этом месте
      if (order.account ~= transaction.ACCOUNT) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.brokerref ~= transaction.CLIENT_CODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.class_code ~= transaction.CLASSCODE or order.sec_code ~= transaction.SECCODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.qty ~= tonumber(transaction.QUANTITY)) then
         -- Возможна ли такая ситуация, и как будет выглядеть частичное выполнение транзакции на максимально доступный объём?
         set_stage("???");
         return;
      end
      transaction_details.price = order.price;
      -- где ещё может использоваться trade_num в дальнейшем? при каких условиях? (пока не встречал этот id вне метода OnTrade)
      transaction_details.trade_num = order.trade_num;
      -- правильный ли тут статус?
      set_stage(string.format("Совершается сделка %d на %s лотов %d по цене %s",
         order.trade_num, bittest(order.flags, 2) and "продажу" or "покупку", order.qty, order.price))
   end
end

function OnOrder(order)
   if (transaction_details.order_num == order.order_num) then
      -- те же проверки, что и в OnTrade      
      if (order.account ~= transaction.ACCOUNT) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.brokerref ~= transaction.CLIENT_CODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.class_code ~= transaction.CLASSCODE or order.sec_code ~= transaction.SECCODE) then
         -- Возможна ли такая ситуация, и в каком состоянии находится сделка?
         set_stage("???");
         return;
      end
      if (order.qty ~= tonumber(transaction.QUANTITY)) then
         -- Возможна ли такая ситуация, и как будет выглядеть частичное выполнение транзакции на максимально доступный объём?
         set_stage("???");
         return;
      end

      -- какие биты в order.flags в этом месте являются значащими?
      -- что значит в этом месте установленный бит 4 в order.flags? (бит 4 (0x10)  Разрешить / запретить сделки по разным ценам)

      -- правильный ли тут статус?
      set_stage(string.format("Заявка %d на %s лотов %d выполнена",
         order.order_num, bittest(order.flags, 2) and "продажу" or "покупку", order.qty))
   end
end