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

local run = true
local tid
function OnStop()
  run = nil
  local t = tid
  tid = nil
  if t then DestroyTable(t) end
end

local result
local function RunAsCallback()
  SetSelectedRow(tid, 2)
  local r = result
  result = nil
  return r
end

function main()
  tid = AllocTable()
  AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
  CreateWindow(tid)
  InsertRow(tid, -1)
  InsertRow(tid, -1)
  SetWindowPos(tid, 0, 0, -1000, -1000)
  SetSelectedRow(tid, 1)
  SetTableNotificationCallback(tid, function(t, m, w)
    if QTABLE_SELCHANGED == m then
      if w == 2 then
        SetSelectedRow(tid, 1)
        result = os.date()
      end
    end
  end)
  while run do
    local date = RunAsCallback()
    message(date)
    sleep(1000)
  end
  OnStop()
end

-- Здесь указываем значения для своего счета
-- и код бумаги, позиция по которой имеется в портфеле, нулевая позиция тоже подойдёт
FIRM_ID = 
ACCOUNT = 
CLIENT_CODE = 
CLASS_CODE  = 
SEC_CODE = 
LIMIT_KIND = 

local run = true
function OnStop()
  run = nil
end

function main()
  local mLots
  while run do
    local tblTotalLot = getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT, LIMIT_KIND)
    if type(tblTotalLot) == "table" then
      local TotalLots = tblTotalLot.currentbal
      if mLots ~= TotalLots then
        message(SEC_CODE .. ": mLots = " .. tostring(mLots) .. "\n" .. tblTotalLot.sec_code .. ": currentbal = " .. tostring(TotalLots), 3)
        mLots = TotalLots
      end
    else
      message("getDepoEx error", 3)
    end
    sleep(1)
  end
end

-- Здесь также указываем значения для своего счета
-- Можно указать ту же бумагу, что и в первом скрипте или другую бумагу
FIRM_ID  = 
ACCOUNT  = 
CLIENT_CODE = 
CLASS_CODE  = 
SEC_CODE = 

local run = true
function OnStop()
  run = nil
end

function main()
  while run do 
    --getBuySellInfoEx(FIRM_ID, CLIENT_CODE, CLASS_CODE, SEC_CODE, 0)
    CalcBuySell(CLASS_CODE, SEC_CODE, CLIENT_CODE, ACCOUNT, 0, true, true)
    sleep(1)
  end
end