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

    
function OnInit(scr_path)
  is_run = true
  file = io.open(scr_path:sub(1,-4).."log", "a+")
  callBack = {}
  sec = "CNYRUBF" -- Стартовый тикер
end

function OnFuturesClientHolding(t)-- Позиции по клиентским счетам (фьючерсы).
  table.sinsert(callBack, t)
end
    
function OnStop()
  file:close()
  is_run = false
  return 2000
end

function main()
  
  --file:write("\n  Дата    Время    Сессия  Бирж.сесс.  Статус кл.    Статус     Коллбэк \n")
  file:write("\n  Дата\t Время\t Сессия\t Бирж.сесс.\t Статус кл.\t Статус\t Коллбэк \n")
  
  local function UpdStts(param)
    return getParamEx("SPBFUT", sec, param).param_image
  end
  
  while is_run do
    trd_phase = UpdStts("TRADINGPHASE") -- Сессия.
    trd_stts = UpdStts("TRADINGSTATUS") -- Биржевой статус торговой сессии.
    cl_stts = UpdStts("CLSTATE") -- Статус клиринга.
    status = UpdStts("STATUS") -- Статус.
    
    while #callBack > 0 or trd_phase ~= prev_trdphs or trd_stts ~= prev_trdst or cl_stts ~= prev_clst or status ~= prev_st do
      if callBack[1] then -- Есть коллбек.
        local t = table.sremove(callBack, 1)
        sec = t.sec_code
        cb_stts = sec ..": ".. t.session_status
      else
        cb_stts = " "
      end
      prev_trdphs = trd_phase
      prev_trdst = trd_stts
      prev_clst = cl_stts
      prev_st = status
      --file:write(os.date(" %d/%b  %X  "),trd_phase,"  ",trd_stts,"    ",cl_stts,"  ",status,"  ",cb_stts,"\n")
      file:write(string.format("%s\t %s\t %s\t %s\t %s\t %s\n", os.date(" %d/%b %X"), trd_phase, trd_stts, cl_stts, status, cb_stts))
      file:flush()
    end 
    sleep(300)
  end
end

local function MainWindow()
  limValue = "Market"
  red = RGB(255,180,180)
  local green = RGB(180,255,180)
  yellow = RGB(230,230,0)

  local function event_callback(mw_id, msg, row, col)
  
    local function SetLimit()
      limValue = string.format("%d  ps", indLmPs)
      SetColor(mw_id, 3, 4, -1, -1, -1, -1)
      SetColor(mw_id, 2, 3, -1, -1, -1, -1)
    end
    
    if msg == QTABLE_CLOSE then
      w_top, w_left, w_bottom, w_right = GetWindowRect(mw_id)
      DestroyTable(x2_id)
      DestroyTable(mw_id)
      sleep(300)
      OnStop()
    end
    if msg == QTABLE_LBUTTONDBLCLK then
      if row == 1 and col == 1 then -- Стоп меньше на 10.
        indStPrc =  indStPrc - 0.8
      elseif row == 1 and col == 4 then -- Стоп больше на 10.
        indStPrc =  indStPrc + 0.8
      elseif row == 2 and col == 1 then -- Лимит меньше на 10.
        indLmPs =  indLmPs - 8
      elseif row == 2 and col == 3 then -- Лимит ноль.
        indLmPs =  0
        SetLimit()
      elseif row == 2 and col == 4 then -- Лимит больше на 10.
        indLmPs =  indLmPs + 8
      end
    end
    if msg == QTABLE_LBUTTONUP then
      if row == 1 and col == 1 then -- Стоп меньше.
        indStPrc =  indStPrc - 0.1
      elseif row == 1 and col == 4 then -- Стоп больше.
        indStPrc =  indStPrc + 0.1
      elseif row == 2 and col == 1 then -- Лимит. меньше.
        indLmPs =  indLmPs - 1
        SetLimit()
      elseif row == 2 and col == 4 then -- Лимит больше.
        indLmPs =  indLmPs + 1
        SetLimit()
      elseif row == 3 and col == 2 then -- Пауза
        sPause = true
        SetColor(mw_id, 3, 2, red,  -1, red,  -1)
        SetColor(mw_id, 3, 3, -1, -1, -1, -1)
      elseif row == 3 and col == 3 then -- Плей.
        sPause =  false
        SetColor(mw_id, 3, 3, green,  -1, green,  -1)
        SetColor(mw_id, 3, 2, -1, -1, -1, -1)
      elseif row == 3 and col == 1 then -- х2
        x2key = true
      elseif row == 3 and col == 4 then -- Маркет/лимит.
        if limValue == "Market" then
          SetLimit()
        else
          limValue = "Market"
          SetColor(mw_id, 3, 4, yellow,  -1, yellow,  -1)
          SetColor(mw_id, 2, 3, -1, RGB(0,0,255), -1, RGB(0,0,255))
        end
      end
      
        SetCell(mw_id, 1, 3, string.format("%.1f %%", indStPrc))
        SetCell(mw_id, 2, 3, tostring(limValue))
    end
  end
  mw_id = AllocTable()
-- Создание колонок.
  local n = 1 
  local function NewColumn(hd,wt)
    AddColumn(mw_id, n, hd, true, QTABLE_STRING_TYPE, wt)
    n = n + 1
  end
  NewColumn("-",4)
  NewColumn("Цена",9)
  NewColumn("Отступ",9)
  NewColumn("+",4)

  CreateWindow(mw_id)
  SetWindowPos(mw_id, w_left, w_top, (w_right - w_left), (w_bottom - w_top))
  SetWindowCaption(mw_id, "Лонжа")
-- Заполнение строк таблицы.
  local function FillRow(...)
    local row = InsertRow(mw_id, -1)
    for n,v in ipairs{...} do
      SetCell(mw_id, row, n, tostring(v))
    end 
  end
  FillRow("<","Стоп:",string.format("%.1f %%",indStPrc)," >")
  FillRow("<","Лимит:",limValue," >")
  FillRow("x2","    I I","    >>","M")
  
  SetColor(mw_id, 3, 3, green,  -1, green,  -1)
  SetColor(mw_id, 2, 3, -1, RGB(0,0,255), -1, RGB(0,0,255))
  SetColor(mw_id, 3, 4, yellow,  -1, yellow,  -1)
  SetColor(mw_id, 3, 1, -1, -1, -1, -1)

  SetTableNotificationCallback(mw_id, event_callback)
end