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

is_run = true

function OnStop(signal)
  is_run = false  
end

function OnCleanUp()
  message('getInfoParam' .. tostring(getInfoParam("TRADEDATE")))
  message('getTradeDate' .. tostring(getTradeDate().date))
end

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

transaction = {}
transaction['TRANS_ID'] = '400001'
transaction['ACTION'] = 'Ввод айсберг заявки'
transaction['CLASSCODE'] = 'TQBR'
transaction['Торговый счет'] = 'L01-XXXXXXXX'
transaction['Примечание'] = 'СС1'
transaction['Инструмент'] = 'LKOH'
transaction['К/П'] = 'Купля'
transaction['Цена'] = '5592.5'
transaction['Лоты'] = '1000'
transaction['Видимое количество'] = '100'
transaction['Тип'] = 'Лимитная'

transaction = {}
transaction['TRANS_ID'] = '400001'
transaction['ACTION'] = 'Iceberg order entry'
transaction['CLASSCODE'] = 'TQBR'
transaction['Trading account'] = 'L01-XXXXXXXX'
transaction['Broker reference'] = 'СС1'
transaction['Security'] = 'LKOH'
transaction['Direction'] = 'Buy'
transaction['Price'] = '5592.5'
transaction['Lots'] = '1000'
transaction['Visible quantity'] = '100'
transaction['Type'] = 'Limit'

result = sendTransaction(transaction)

if result ~= "" then
 message(string.format("Транзакция %s не прошла проверку на стороне терминала QUIK [%s]",
 transaction.TRANS_ID, result))
else
 message(string.format("Транзакция %s отправлена",
 transaction.TRANS_ID))
end

transaction = {}
transaction['TRANS_ID'] = '400001'
transaction['ACTION'] = 'Ввод айсберг заявки'
transaction['CLASSCODE'] = 'TQBR'
transaction['Торговый счет'] = 'L01-XXXXXXXX'
transaction['Примечание'] = 'СС1'
transaction['Инструмент'] = 'LKOH'
transaction['К/П'] = 'Купля'
transaction['Цена'] = '5592.5'
transaction['Лоты'] = '1000'
transaction['Видимое количество'] = '100'
transaction['Тип'] = 'Лимитная'

dofile(getScriptPath() .. "\\tools.lua")
local run = true

local function f()
  for i = 1, 2000000 do
    local a = 1 + 2 * 3 / 4
  end
  Log("f")
  return run
end

function OnInit(script_path)
  log_file = io.open(script_path .. ".log", "w+t")
end

function main()
  local t_id = AllocTable()
  AddColumn(t_id, 1, "", true, QTABLE_DOUBLE_TYPE, 20)
  CreateWindow(t_id)
  InsertRow(t_id, -1)
  while run do
    local r = f()
    Log("main1" .. tostring(r) .. tostring(t_id))
    SetCell(t_id, 1, 1, tostring(r))
    Log("main2" .. tostring(r))
    sleep(1)
    Log("main3" .. tostring(r))
  end
  message('Exit')
end

function OnStop()
  Log('OnStop1')
  run = nil
  Log('OnStop2')
  return 5000
end

 08/13/2019 18:44:22.145387 main1true124
 08/13/2019 18:44:22.147395 main2true
 08/13/2019 18:44:22.149390 main3true
 08/13/2019 18:44:22.204382 f
 08/13/2019 18:44:22.204382 main1true124
 08/13/2019 18:44:22.220383 main2true
 08/13/2019 18:44:22.222388 main3true
 08/13/2019 18:44:22.276383 f
 08/13/2019 18:44:22.277385 main1true124
 08/13/2019 18:44:22.419389 main2true
 08/13/2019 18:44:22.421386 main3true
 08/13/2019 18:44:22.421386 OnStop1
 08/13/2019 18:44:22.421386 OnStop2
 08/13/2019 18:44:22.476385 f
 08/13/2019 18:44:22.476385 main1nil124

  while run do
    local r = f()
    SetCell(t_id, 1, 1, tostring(r))
    sleep(15)
  end

function get_position (sec)

  function fn(t)

      if stop_search then return nil end --stop_search - это флаг. Изначально равен nil

      if t.sec_code == sec and t.client_code==client_code and t.limit_kind==2 then
        stop_search=true      
          return true
      else
          return false
      end

  end

   stop_search=nil --убиваем флаг, выставленный на прежних запусках функции.
   tbl_indxs=SearchItems('depo_limits', 0, getNumberOf("depo_limits")-1, fn)   
   if tbl_indxs then
      limit = getItem("depo_limits", tbl_indxs[1]) --найден 1 индекс, его и берём.
      local lot=lot[sec]--lot[sec] ранее определена
      return limit.currentbal/lot,limit.locked_buy/lot, limit.locked_sell/lot, limit.awg_position_price
   else
      return 0,0,0,0
   end
end

sec='SBER'
client_code='12345'

function main()
  
  function fn(t)
    if t.sec_code == sec and t.client_code==client_code and t.limit_kind==2 then 
        return true
    else
        return false
    end
  end

  --или здесь...
  --sec='SBER'
  --client_code='12345'

  tbl_indxs=SearchItems('depo_limits', 0, getNumberOf("depo_limits")-1, fn)

end

function fn (ord_sec_code, ord_flags)
   if table_contains(ticker_list, ord_sec_code) and orderflags2table(ord_flags).active  then
      return true
   else
      return false
   end
end

tbl=SearchItems('orders', 0, getNumberOf("orders")-1, fn, "sec_code,flags")

function fn (ord_sec_code, ord_flags)
   if table_contains(ticker_list, ord_sec_code) and orderflags2table(ord_flags).active  then
      return true
   else
      return false
   end
end

tbl=SearchItems('trades', 0, getNumberOf("trades")-1, fn, "sec_code,flags")

'SBER'=true; 'GAZP'=true; 'GMKN'=true;...

function addToTable(table, key)
    table[key] = true
end

function tableContains(table, key)
    return table[key] ~= nil
end

function addToTable(table, key)
    table[key] = true
end

function removeFromTable(table, key)
    table[key] = nil
end

function tableContains(table, key)
    return table[key] ~= nil
end

result = sendTransaction(transaction)

if result ~= "" then
  message(string.format("Транзакция %s не прошла проверку на стороне терминала QUIK [%s]", transaction.TRANS_ID, result))
else
  message(string.format("Транзакция %s отправлена", transaction.TRANS_ID))
end

function OnCalculate(index)
    plusdi,n,q = getCandlesByIndex ("SBAdx",1,0,getNumCandles("SBAdx"))  -- get +DI table
    minusdi,n,q = getCandlesByIndex ("SBAdx",2,0,getNumCandles("SBAdx")) -- get -DI table
    return handler(index)
end

function handler(index)
    if plusdi[index].close ~= nil and minusdi[index].close ~= nil then
        if plusdi[index].close > 30 then
            my_indicator = 1
        elseif minusdi[index].close > 30 then
            my_indicator = -1
        else my_indicator = 0
        end
    else my_indicator = 0
    end
    return my_indicator
end

function OnCalculate(index)
    plusdi,n,q = getCandlesByIndex ("SBAdx",1,0,getNumCandles("SBAdx"))  -- get +DI table
    minusdi,n,q = getCandlesByIndex ("SBAdx",2,0,getNumCandles("SBAdx")) -- get -DI table
    return handler(index, plusdi, minusdi)
end

function handler(index, plusdi, minusdi)
    if plusdi[index].close ~= nil and minusdi[index].close ~= nil then
        if plusdi[index].close > 30 then
            my_indicator = 1
        elseif minusdi[index].close > 30 then
            my_indicator = -1
        else my_indicator = 0
        end
    else my_indicator = 0
    end
    return my_indicator
end

function main()
  
  assert(package.loadlib(getScriptPath() .. "\\lib\\luasql\\odbc.dll", "luaopen_luasql_odbc")) ()
  env = luasql.odbc()

  local db = env:connect("LuaTest","login","pass")

  db:close()
  env:close()
  
  
  print_loaded_modules()
  
  unrequire('luasql')
  message('**********')
  print_loaded_modules()
end

function print_loaded_modules()
  for k,v in pairs(package.loaded) do
    message(string.format("%s=%s", k, tostring(v)))
  end
end

function unrequire(m)
  package.loaded[m] = nil
  _G[m] = nil
end