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

---@param Sec table
---@param go number
---@param deal_price number
---@param Type string SELL|BUY
local function CalcPriceGO(Sec, go, deal_price, Type)

    if type(Sec) ~= 'table' then  error(("bad argument Sec (table expected, got %s)"):format(type(Sec)),2) end
    if type(go) ~= 'number' then  error(("bad argument go (number expected, got %s)"):format(type(go)),2) end
    if type(deal_price) ~= 'number' then  error(("bad argument deal_price (number expected, got %s)"):format(type(deal_price)),2) end
    if Type ~= 'BUY' and Type ~= 'SELL' then  error(("bad argument Type (string 'SELL' or 'BUY' expected, got %s)"):format(tostring(Type)),2) end
    local status, res = pcall(function()
        if getParamEx(Sec.CLASS_CODE, Sec.SEC_CODE, "CLPRICE").result ~= '1' then
            log.warn([[ Для точного расчета ГО необходимо включить в поток данных параметр "Котировка последнего клиринга".
                                      Сейчас он не включен. Будет взято базовое ГО]])
            return go
        end
        if getParamEx(Sec.CLASS_CODE, Sec.SEC_CODE, "PRICEMAX").result ~= '1' then
            log.warn([[ Для точного расчета ГО необходимо включить в поток данных параметр "Максимально возможная цена". Сейчас он не включен.
                                    Сейчас он не включен. Будет взято базовое ГО]])
            return go
        end
        if getParamEx(Sec.CLASS_CODE, Sec.SEC_CODE, "PRICEMIN").result ~= '1' then
            log.warn([[ Для точного расчета ГО необходимо включить в поток данных параметр "Минимально возможная цена". Сейчас он не включен.
                                    Сейчас он не включен. Будет взято базовое ГО]])
            return go
        end
        local priceKoeff         = Sec.STEPPRICE/Sec.SEC_PRICE_STEP
        local cl_price           = tonumber(getParamEx(Sec.CLASS_CODE,Sec.SEC_CODE,'CLPRICE').param_value) or 0
        local max_price          = tonumber(getParamEx(Sec.CLASS_CODE,Sec.SEC_CODE,'PRICEMAX').param_value) or 0
        local min_price          = tonumber(getParamEx(Sec.CLASS_CODE,Sec.SEC_CODE,'PRICEMIN').param_value) or 0
        if cl_price==0 or max_price == 0 or min_price == 0 then return go end
        local L2                 = (max_price-min_price)*math_pow(10, Sec.SCALE)
        local R                  = (go/(L2*priceKoeff) - 1)*100
        local sign               = Type == 'BUY' and -1 or 1
        return                   go + sign*(cl_price - deal_price)*priceKoeff*(1 + R/100)
    end)
    if not status then
        log.error('Error CalcPriceGO: '..tostring(res))
        return go
    end
    return res
end

-- Получение цены в правильном представленнии для выставления транзакции
---@param price number
---@param SCALE number|nil
local function format_to_scale(price, SCALE)
    if type(price) ~= 'number' then  error(("bad argument price (number expected, got %s)"):format(type(price)),2) end

    local status,res = pcall(function()

        SCALE = SCALE or 0
        price = tostring(price):gsub(',', '.')
        -- Ищет в числе позицию точки
        local dot_pos   = price:find('%.')

        if SCALE > 0 then
            -- Если передано целое число
            if dot_pos == nil then
                -- Добавляет к числу '.' и необходимое количество нулей и возвращает результат
                price = price..'.'..string_rep('0', SCALE)
            else -- передано вещественное число
                local remain = price:sub(dot_pos+1, -1)
                local scale  = remain:len()
                if scale ~= SCALE then
                    price = price:sub(1, dot_pos)..remain:sub(1, math_min(scale, SCALE))
                    price = price..(SCALE > scale and string_rep('0', SCALE - scale) or '')
                end
            end
        elseif dot_pos ~= nil and SCALE == 0 then
            price = price:sub(1, dot_pos-1)
        end
        return price
    end)
    if not status then
        log.error('Error format_to_scale: '..tostring(res))
        return price
    end
    return res
end