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

Settings = {
    Name = "Levels_TEST",
    Step = 50,
    Count = 10,
    IsBoolean = false, -- БАГ: В настройках этот тип не меняется!
    line = {}, -- БАГ: без этой строки индикатор не появляется в списке!

    hideline = {}, -- В настройках не отображаются
}

Settings.line = {
    {
        Name = "Line1",
        Type = TYPE_POINT,
        Color = RGB(55, 55, 55),
        Width = 2
    }
}

function Init()
    -- Можно вынести этот код за Init() и результат будет тот же.
    LINES = Settings.Count
    Settings.hideline = {} -- сброс, чтобы актуальные параметры сгенерировать

    for x = 2, LINES, 1 do
        Settings.hideline[x] = { -- LineERROR: здесь line[x] было (ошибка ниже)
            Name = "Line" .. tostring(x),
            Type = Settings.line[1].Type,
            Color = Settings.line[1].Color,
            Width = Settings.line[1].Width
    }
    end
    LINES = #Settings.line + #Settings.hideline
    -- А какой смысл возвращать другое значение?
    -- В МТ5 тут статус Инит, который может быть ошибкой.
    -- Но, количество линий? Где логика?
    -- Если превысить, то добавятся линии с случайным цветом...
    return LINES
end

function OnChangeSettings()
    -- Юзер сменил Settings.Count ?
    Init()
    -- Function OnChangeSettings: LineERROR: attempt to index a nil value (field 'line')

    -- ИЗМЕНЕНИЙ НЕТ! Линии не добавились и не покрасились.
    -- Очередная наспех сделанная кривая функция...
end

function OnCalculate(index)
    local start = O(index)
    if start == nil then
        return nil
    end
    if MINSTEP == nil then
        local info = getDataSourceInfo()
        MINSTEP = getSecurityInfo(info.class_code, info.sec_code).min_price_step
        FIRST = (math.tointeger(LINES / 2) + 1) * Settings.Step * MINSTEP
    end
    local result = {}
    start = start - ((math.tointeger(math.ceil(start / MINSTEP)) % Settings.Step) * MINSTEP) + FIRST
    for x = 1, LINES, 1 do
        table.insert(result, start - (x * Settings.Step * MINSTEP))
    end
    return table.unpack(result)
end

---@class roffild
---@field ISTRADINGALLOWED_SECONDS number Секунд в ожидании обезличиной сделки (по умолчанию = 3)
local roffild = {
    ISTRADINGALLOWED_SECONDS = 3,
}

---`isConnected() == 1` ещё ДО ввода PIN при Двухфакторной аутентификации.
---Обход бага через `getInfoParam("LASTRECORDTIME")`.
---@param seconds? number Секунд для ожидания (по умолчанию = 3 = `ISTRADINGALLOWED_SECONDS`)
---@return boolean
function roffild.isTradingAllowed(seconds)
    if isConnected() == 1 then
        local lastrecordtime = getInfoParam("LASTRECORDTIME")
        local servertime = getInfoParam("SERVERTIME") -- время с часовым поясом сервера (секунды локальные)
        if
            not (lastrecordtime == nil or lastrecordtime == "")
            and not (servertime == nil or servertime == "")
        then
            -- convertDateOrTimeToUnix из-за ":" не работает
            local fixlastrecordtime = os.sysdate()
            fixlastrecordtime.hour = tonumber(string.sub(lastrecordtime, 0, -7))
            fixlastrecordtime.min = tonumber(string.sub(lastrecordtime, -5, -4))
            fixlastrecordtime.sec = tonumber(string.sub(lastrecordtime, -2))
            if -- clearing
                fixlastrecordtime.hour < 7
                or (fixlastrecordtime.hour == 14 and fixlastrecordtime.min < 5)
                or (fixlastrecordtime.hour == 18 and fixlastrecordtime.min >= 45)
                or (fixlastrecordtime.hour == 19 and fixlastrecordtime.min < 5)
                or (fixlastrecordtime.hour == 23 and fixlastrecordtime.min >= 50)
            then
                return false
            end
            local fixservertime = os.sysdate()
            fixservertime.hour = tonumber(string.sub(servertime, 0, -7))
            fixservertime.min = tonumber(string.sub(servertime, -5, -4))
            fixservertime.sec = tonumber(string.sub(servertime, -2))
            return (math.abs(os.time(fixservertime) - os.time(fixlastrecordtime)) <=
                (seconds or roffild.ISTRADINGALLOWED_SECONDS))
        end
    end
    return false
end

return roffild

---@class roffild
---@field LAST_TIME_ANONYMIZED_DEAL qluaDateTime Время последней обезличенной сделки
---@field ISTRADINGALLOWED_SECONDS number Секунд в ожидании обезличиной сделки (по умолчанию = 3)
local roffild = {
    LAST_TIME_ANONYMIZED_DEAL = os.sysdate(),
    ISTRADINGALLOWED_SECONDS = 3,
}

roffild.LAST_TIME_ANONYMIZED_DEAL.hour = 0 -- для начальной разницы времени

---Функция должна вызываться в `OnAllTrade()`, когда она переопределена.
function roffild.OnAllTrade(alltrade)
    ---@type qluaDateTime
    roffild.LAST_TIME_ANONYMIZED_DEAL = alltrade.datetime
end

function OnAllTrade(alltrade)
    roffild.OnAllTrade(alltrade)
end

---`isConnected() == 1` ещё ДО ввода PIN при Двухфакторной аутентификации. Обход бага через `OnAllTrade()`. \
--- \
---**ЗАВИСИТ от интенсивности "Таблица обезличенных сделок".**
---@param seconds? number Секунд в ожидании обезличиной сделки (по умолчанию = 3 = `ISTRADINGALLOWED_SECONDS`)
---@return boolean
function roffild.isTradingAllowed(seconds)
    return (isConnected() == 1
        and (os.time(os.sysdate()) - os.time(roffild.LAST_TIME_ANONYMIZED_DEAL)) <= (seconds or roffild.ISTRADINGALLOWED_SECONDS))
end

-- Закрытие по stoploss реальных позиций.
for k, v in pairs(getTable("futures_client_holding")) do
    k = nil
    if v.totalnet == nil or v.totalnet == 0 then
        -- continues --
    else
        k = initSymbol(v.sec_code)
    end
    if k then
        open = v.avrposnprice
        for k1, v1 in pairs(getDeals(1, nil, nil, v.sec_code, nil, v.trdaccid)) do
            -- В futures_client_holding нет реальной цены последней сделки
            open = v1.price
            -- БАГ: Только вот из-за рассихрона таблиц, в Сделках цена тоже может быть НЕ ПОСЛЕДНЯЯ!
        end
        LASTTRANS = nil
        if v.totalnet > 0 then
            close = tonumber(getParamEx2("SPBFUT", v.sec_code, "BID").param_value)
            if close == nil or close == 0.0 then
                -- continues --
                message("No data!")
            elseif close <= (open - k.stoploss) then
                log:write("buy close "..tostring(close).." "..tostring(open).." "..tostring(open-close).."\n")
                LASTTRANS = sendOrder(createOrder("SPBFUT", v.sec_code, v.trdaccid, nil,
                        true, close - k.depth, math.abs(v.totalnet)))
            end
        else
            close = tonumber(getParamEx2("SPBFUT", v.sec_code, "OFFER").param_value)
            if close == nil or close == 0.0 then
                -- continues --
                message("No data!")
            elseif close >= (open + k.stoploss) then
                log:write("sell close "..tostring(close).." "..tostring(open).." "..tostring(open-close).."\n")
                LASTTRANS = sendOrder(createOrder("SPBFUT", v.sec_code, v.trdaccid, nil,
                        false, close + k.depth, math.abs(v.totalnet)))
            end
        end
        if waitTrans(LASTTRANS) then
            goto continues
        end
    end
end

function isTradeAllow()
    return (
        isConnected() == 1 and
        not ( Периоды клининга )
    )
end

RegisterHotKey(hMainWnd, 999, MOD_CONTROL, VK_F6);

Ошибка создания заявки. [GW][332] "Нехватка средств по лимитам клиента.".

function main()
    ISRUN = true
    while ISRUN and isConnected() == 0 do
        sleep(1000)
    end
    -- код
end

local minstep = getSecurityInfo("SPBFUT", sec_code).min_price_step

function OnCalculate(index)
    -- код
    return r[1],r[2],r[3],r[4],r[5],r[6],r[7],r[8],r[9],r[10],r[11],r[12],r[13],r[14],r[15],r[16],r[17],r[18],r[19],r[20],r[21],r[22],r[23]
end

function OnCalculate(index)
    local result
    result = {7, 9}
    return result[1], result[2], result
end
function main()
    str = "R: "
    for k, v in pairs({OnCalculate()}) do
        if type(v) == "table" then
            for k0, v0 in pairs(v) do
                str = str.." tbl "..tostring(k0).."="..tostring(v0)
            end
        else
            str = str.." "..tostring(k).."="..tostring(v)
        end
    end
    message(str)
end

Идентификатор эксперта. Позволяет организовать аналитическую обработку торговых ордеров. Каждый эксперт может выставлять свой собственный идентификатор при отправке торгового запроса