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

-- Здесь указываем значения для своего счета
-- и код бумаги, позиция по которой имеется в портфеле, нулевая позиция тоже подойдёт
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