-- Переменны для замены на данные хранящиеся в настройках скрипта
local secCode = "MMZ4"

local atrID = "MXI_ATR"
local priceID = "MXI_PRICE"

--Переменные для замены на данные получаемые из терминала
local digit = 2

--Переменные глобальных таблиц и окон
local tableMain = nil
local hwndMain = nil

local isRun = true
function main()
    message("Hello. This is MambaBot",1)
    while isRun do
        if tableMain ~= nil then
            if IsWindowClosed(tableMain) then
                isRun = false
            end            
        end
        sleep(1000)
    end
    message("MambaBot has stopped")
end

function OnParam(class, sec)
    if(class=="SPBFUT" and sec==secCode) then
        if tableMain ~= nil then
            --Обновляем данные в ячеках главной таблицы
            SetCell(tableMain, 2, 1, getInfoParam("SERVERTIME"), 0)
            --message(getInfoParam("SERVERTIME"))
            local atrVal, count, legend
            atrVal, count, legend = getCandlesByIndex(atrID, 0, getNumCandles(atrID) - 1, 1)
            SetCell(tableMain, 7, 1, string.format("%." .. digit .. "f", atrVal[0].close), atrVal[0].close)

            local priceCandleVal
            priceCandleVal, count, legend = getCandlesByIndex(priceID, 0, getNumCandles(priceID) - 1, 1)
            print(count)
            SetCell(tableMain, 3, 1, string.format("%." .. digit .. "f", priceCandleVal[0].open), priceCandleVal[0].open)
            SetCell(tableMain, 4, 1, string.format("%." .. digit .. "f", priceCandleVal[0].high), priceCandleVal[0].high)
            SetCell(tableMain, 5, 1, string.format("%." .. digit .. "f", priceCandleVal[0].low), priceCandleVal[0].low)
            SetCell(tableMain, 6, 1, string.format("%." .. digit .. "f", priceCandleVal[0].close),
                priceCandleVal[0].close)
            message(string.format("%." .. digit .. "f", priceCandleVal[0].close))
        end
    end
end

function OnInit(script_path)

    tableMain = AllocTable()
    AddColumn(tableMain,0,"param",true,QTABLE_STRING_TYPE,12)
    AddColumn(tableMain,1,"value",true,QTABLE_STRING_TYPE,12)

    hwndMain = CreateWindow(tableMain)
    SetWindowCaption(tableMain,"MambaBot Main")
    local rowNum = 1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Sec code",0)
    SetCell(tableMain,rowNum,1,secCode,0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Time",0)
    SetCell(tableMain,rowNum,1,"00:00:00",0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Open",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"High",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Low",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"Close",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1

    InsertRow(tableMain,-1)
    SetCell(tableMain,rowNum,0,"ATR value",0)
    SetCell(tableMain,rowNum,1,"0.0",0.0)
    rowNum = rowNum+1
end

function OnStop(flag)
    if tableMain ~=nil then
        DestroyTable(tableMain)
    end
    isRun = false
    return 100
end

  sec_code = "SIBN"
  Firm_ID = "MC00025000XX"
  Kod_klienta = "4XXXN"
 ACCOUNT = "L01-00000F00"
 limit_kind = "1"
  res = getDepo(Kod_klienta, Firm_ID, sec_code, ACCOUNT)
local lots = ("depo_current_balance") 
message("Текущий остаток=" ..lots)

sec_code = "SIBN"
Firm_ID = "MC00025000XX"
Kod_klienta = "4XXXN"
ACCOUNT = "L01-00000F00"

function LB()
  n = getNumberOf("depo_limits")
  value = 0
  res = nil
  for y = 0, n-1 do
    trade = getItem("depo_limits", y)
    if (trade["client_code"] == Kod_klienta) and
      (trade["firmid"] == Firm_ID) and
      (trade["sec_code"] == sec_code) and
      (trade["trdaccid"] == ACCOUNT) and
      (trade["limit_kind"] == 2) then
        res = trade["currentbal"]
        break
      end
  end
  return res
end

message(tostring(LB()), 0)

        
  hWnd = w32.FindWindow('InfoClass', '')
  hWnd = w32.FindWindowEx(hWnd, 0, 'MDIClient', '')
  hWnd = w32.FindWindowEx(hWnd, 0, '', 'Tickers')
  hWnd = w32.FindWindowEx(hWnd, 0, '', 'Tickers')
  hWnd = w32.FindWindowEx(hWnd, 0, 'MultiList', '')

stop_or = {
     ACTION          = "NEW_STOP_ORDER", 
     STOP_ORDER_KIND = "TAKE_PROFIT_STOP_ORDER",
     OPERATION       = "S",
     ACCOUNT         = n_depo,
     CLIENT_CODE     = n_client_code,
     CLASSCODE       = n_classcode,
     SECCODE         = n_seccode,
     STOPPRICE       = tostring(a+0.1),
     PRICE           = tostring(a),
     QUANTITY        = tostring(lot),
     TRANS_ID        = tostring(n_id)
    }
result = sendTransaction(stop_or)

function last_order()
  local last_order = {}
  local n = getNumberOf("orders")

  while n > 0 do
    local order = getItem("orders", n-1)
    if order.sec_code == n_seccode
         and order.trans_id == n_id 
    then
       last_order = order
       break
       n = n - 1
    end

  end

  return last_order
end

-- определяем функцию для поиска последней исполненной заявки
function last_trade()
local last_trade = {}
local n = getNumberOf("trades")

while n > 0 do
local trade = getItem("trades", n)
if trade.flags == 1 then
last_trade = trade
break
end
n = n - 1
end

return last_trade
end

-- получаем последнюю исполненную заявку
local trade = last_trade()

-- проверяем условия и выводим информацию
if trade.class_code == "TQBR" and trade.client_code == "4X55N" then
if trade.sec_code == "LKOH" then
message("Акция: ЛУКОЙЛ\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "ROSN" then
message("Акция: РОСНЕФТЬ\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "MAGN" then
message("Акция: ММК\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "SBER" then
message("Акция: СБЕРБАНК\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "GAZP" then
message("Акция: ГАЗПРОМ\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "AFKS" then
message("Акция: СИСТЕМА\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "PLZL" then
message("Акция: ПОЛЮС\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "MTLR" then
message("Акция: МЕЧЕЛ\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
elseif trade.sec_code == "BANE" then
message("Акция: БАШНЕФТЬ\nКупля/продажа: " .. trade.dir .. "\nЧисло лотов: " .. trade.qty)
end
end

function main()
   
   ticker = "ETLN"
   firmid = "XXXXXXXXXXXXX"
   clientcode = "XXXXXX"
   account = "XXXXX-XXXXXXXX" 
   
   depodata = getDepo(clientcode, firmid, ticker, account)
   dostupno = depodata.depo_limit_available   
   
   message (ticker.." "..dostupno)

end