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

local LIMIT_KIND = 0
local pos = {}
local run = true

function OnStop()
  run = false
end

local function go()
  local s = ""
  for sec_code, bal in pairs(pos) do
    s = s .. sec_code .. ": " .. bal .. "\n"
  end
  message(s)
  while run do sleep(100) end  -- Чтобы скрипт стартовал при запуске QUIK
end

local function DepoLimit()
  while getNumberOf("depo_limits") == 0 do
    -- Таблица "позиции по инструментам" не может быть пустой, в ней должна быть хотя бы одна запись
    -- Но точное количество записей в таблице не известно, поэтому такой подход работает некорректно
    sleep(100)
    if not run then return false end
  end
  for i = 0, getNumberOf("depo_limits")-1 do
    local limit = getItem("depo_limits", i)
    if limit.limit_kind == LIMIT_KIND then
      pos[limit.sec_code] = limit.currentbal
    end
  end
  return true
end

local function FuturesClientHolding(try_count)
  -- Первоначальное заполнение позиций по срочному рынку
  local n = 0
  -- Сколько ставить циклов try_count? 100 хватит? На самом деле - не важно.
  -- try_count решает только одну задачу - не зависнуть в цикле, если таблица пустая по причине полного отсутствия позиций
  while n < try_count and getNumberOf("futures_client_holding") == 0 do  -- Ждем заполнения таблицы "Позиции по клиентским счетам (фьючерсы)"
    sleep(100)
    n = n + 1
    if not run then return false end
  end
  if getNumberOf("futures_client_holding") > 0 then
    -- Таблица "Позиции по клиентским счетам (фьючерсы)" заполнена ??????
    for i = 0, getNumberOf("futures_client_holding")-1 do
      local limit = getItem("futures_client_holding", i)
      if limit.type == 0 then
        pos[limit.sec_code] = limit.totalnet
      end
    end
    return true
  end
  return false  -- Таблица "Позиции по клиентским счетам (фьючерсы)" пустая
end

function main()
  while isConnected() ~= 1 and run do sleep(100) end
  while run do
    if not DepoLimit() then break end
    if FuturesClientHolding(100) then
      break
    else
      message("либо таблица еще не загрузилась, либо таблица пустая и позиции нулевые", 3)
      -- И что с этим делать теперь?
      -- Когда можно будет go() запустить?
    end
  end
  if run then
    go()
  end
end

Для получения корректного ответа необходимо ёмкое описание проблемы с примером кода, который не работает или работает неправильно. В этом случае мы оказываем всяческую поддержку пользователям.

local LIMIT_KIND = 0
local pos = {}
local run = true

function OnStop()
  run = false
end

local function go()
  local s = ""
  for sec_code, bal in pairs(pos) do
    s = s .. sec_code .. ": " .. bal .. "\n"
  end
  message(s)
end

local function getPosition()
  for i = 0, getNumberOf("depo_limits")-1 do
    local limit = getItem("depo_limits", i)
    if limit.limit_kind == LIMIT_KIND then
      pos[limit.sec_code] = limit.currentbal
    end
  end
  for i = 0, getNumberOf("futures_client_holding")-1 do
    local limit = getItem("futures_client_holding", i)
    if limit.type == 0 then
      pos[limit.sec_code] = limit.totalnet
    end
  end
end

function main()
  while isConnected() ~= 1 and run do sleep(100) end
  while getNumberOf("depo_limits") == 0 and run do
    -- Таблица "позиции по инструментам" не может быть пустой, в ней должна быть хотя бы одна запись
    -- Но точное количество записей в таблице не известно, поэтому такой подход работает некорректно
    sleep(100)
  end
  -- С таблицей futures_client_holding сложней, она может быть пустой или не пустой... -- Что делать в этом случае?
  if run then
    getPosition()
    go()
  end
end

local LIMIT_KIND = 0
local pos = {}
local run = true

function OnStop()
  run = false
end

local function go()
  local s = ""
  for sec_code, bal in pairs(pos) do
    s = s .. sec_code .. ": " .. bal .. "\n"
  end
  message(s)
end

local function getPosition()
  for i = 0, getNumberOf("depo_limits")-1 do
    local limit = getItem("depo_limits", i)
    if limit.limit_kind == LIMIT_KIND then
      pos[limit.sec_code] = limit.currentbal
    end
  end
  for i = 0, getNumberOf("futures_client_holding")-1 do
    local limit = getItem("futures_client_holding", i)
    if limit.type == 0 then
      pos[limit.sec_code] = limit.totalnet
    end
  end
end

function main()
  if isConnected() == 1 and getNumberOf("depo_limits") ~= 0 then
    getPosition()
  else
    while isConnected() ~= 1 and run do sleep(100) end
    while not get_position and run do sleep(100) end -- Когда уже можно считать, что ВСЕ позиции загружены?
  end
  if run then go() end
end

function OnDepoLimit(limit)
  if limit.limit_kind == LIMIT_KIND then
    pos[limit.sec_code] = limit.currentbal
    get_position = true  -- ???
  end
end

function OnFuturesClientHolding(limit)
  -- Этот колбек вобще может не прийти, т.к. позиций на срочном рынке может и не быть
  if limit.type == 0 then
    pos[limit.sec_code] = limit.totalnet
  end
end