-- Id: 6108
-- More information about this indicator can be found at:
-- http://fxcodebase.com/code/viewtopic.php?f=31&t=14956

--+------------------------------------------------------------------+
--|                               Copyright © 2018, Gehtsoft USA LLC |
--|                                            http://fxcodebase.com |
--+------------------------------------------------------------------+
--|                                 Support our efforts by donating  |
--|                                    Paypal: https://goo.gl/9Rj74e |
--+------------------------------------------------------------------+
--|                                Patreon :  https://goo.gl/GdXWeN  |
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |
--|                BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg  |
--|           Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D  |
--|                   LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD  |
--+------------------------------------------------------------------+

function Init() --The strategy profile initialization
    strategy:name("GrossPL close strategy")
    strategy:description("GrossPL close strategy")
    strategy:setTag("Version", "2")
    strategy:setTag("NonOptimizableParameters", "Email,SendEmail,SoundFile,RecurrentSound,PlaySound, ShowAlert")

    strategy.parameters:addGroup("Parameters")
    strategy.parameters:addDouble("Profit", "Profit level", "", 50)
    strategy.parameters:addDouble("Loss", "Loss level", "", -60)
    strategy.parameters:addBoolean("AllowTrade", "Allow strategy to trade", "", true);
    strategy.parameters:setFlag("AllowTrade", core.FLAG_ALLOW_TRADE);

    strategy.parameters:addGroup("Signal Parameters")
    strategy.parameters:addString("Account", "Account to trade on", "", "")
    strategy.parameters:setFlag("Account", core.FLAG_ACCOUNT)
    strategy.parameters:addBoolean("ShowAlert", "Show Alert", "", true)
    strategy.parameters:addBoolean("PlaySound", "Play Sound", "", false)
    strategy.parameters:addFile("SoundFile", "Sound File", "", "")
    strategy.parameters:setFlag("SoundFile", core.FLAG_SOUND)
    strategy.parameters:addBoolean("Recurrent", "RecurrentSound", "", false)

    strategy.parameters:addGroup("Email Parameters")
    strategy.parameters:addBoolean("SendEmail", "Send email", "", false)
    strategy.parameters:addString("Email", "Email address", "", "")
    strategy.parameters:setFlag("Email", core.FLAG_EMAIL)
end

-- Signal Parameters
local ShowAlert
local SoundFile
local RecurrentSound
local SendEmail, Email

-- Trading parameters
local Account = nil
local BaseSize = nil
local PipSize
local ProfitLevel, LossLevel
local CanClose

function Prepare(nameOnly)
    ShowAlert = instance.parameters.ShowAlert
    ProfitLevel = instance.parameters.Profit
    LossLevel = instance.parameters.Loss
    local PlaySound = instance.parameters.PlaySound
    if PlaySound then
        SoundFile = instance.parameters.SoundFile
    else
        SoundFile = nil
    end
    assert(not (PlaySound) or SoundFile ~= "", "Sound file must be chosen")
    RecurrentSound = instance.parameters.Recurrent

    local SendEmail = instance.parameters.SendEmail
    if SendEmail then
        Email = instance.parameters.Email
    else
        Email = nil
    end
    assert(not (SendEmail) or Email ~= "", "Email address must be specified")

    local name
    name = profile:id() .. "(" .. instance.bid:name() .. "," .. ")"
    instance:name(name)
    if nameOnly then
        return
    end

    Source = ExtSubscribe(2, nil, "t1", true, "bar")
    Account = instance.parameters.Account
    CanClose = core.host:execute("getTradingProperty", "canCreateMarketClose", instance.bid:instrument(), Account)

    ExtSetupSignal(profile:id() .. ":", ShowAlert)
    ExtSetupSignalMail(name)
end

function ExtUpdate(id, source, period) -- The method called every time when a new bid or ask price appears.
    if not instance.parameters.AllowTrade then
        return;
    end
    local trades = core.host:findTable("trades")
    local enum = trades:enumerator()
    local TotalPL = 0
    while true do
        local row = enum:next()
        if row == nil then
            break
        end
        TotalPL = TotalPL + row.GrossPL
    end

    local TP, SL = false, false

    if TotalPL >= ProfitLevel then
        TP = true
    end
    if TotalPL <= LossLevel then
        SL = true
    end

    if TP then
        ExtSignal(source, period, "Profit level achieved", SoundFile, Email, RecurrentSound)
        CloseAll()
        core.host:execute("stop")
        return
    end
    if SL then
        ExtSignal(source, period, "Loss level achieved", SoundFile, Email, RecurrentSound)
        CloseAll()
        core.host:execute("stop")
        return
    end
end

function CloseAll()
    local trades = core.host:findTable("trades")
    local enum = trades:enumerator()
    while true do
        local row = enum:next()
        if row == nil then
            break
        end
        local valuemap
        valuemap = core.valuemap()

        if CanClose then
            -- non-FIFO account, create a close market order
            valuemap.OrderType = "CM"
            valuemap.TradeID = row.TradeID
        else
            -- FIFO account, create an opposite market order
            valuemap.OrderType = "OM"
        end

        valuemap.OfferID = row.OfferID
        valuemap.AcctID = row.AccountID
        valuemap.Quantity = row.Lot
        valuemap.CustomID = row.QTXT
        if row.BS == "B" then
            valuemap.BuySell = "S"
        else
            valuemap.BuySell = "B"
        end
        success, msg = terminal:execute(200, valuemap)
        assert(success, msg)
    end
end

-- The strategy instance finalization.
function ReleaseInstance()
end

function AsyncOperationFinished(cookie, successful, message)
    if not successful then
        core.host:trace("Error: " .. message)
    end
end

dofile(core.app_path() .. "\\strategies\\standard\\include\\helper.lua")