Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Linq
Imports Microsoft.VisualBasic
Imports YTxCommon.App.Enums
Imports OrderLoyalProgCalculations

Public Class UserOrderLoyalProgCalculations
    Implements OrderLoyalProgCalculations.IOrderLoyalProgCalculations

    Public Function OrderLoyalProgCalculation(ByVal arguments As OrderLoyalProgCalculationParameters) As OrderLoyalProgCalculationResult _
        Implements OrderLoyalProgCalculations.IOrderLoyalProgCalculations.OrderLoyalProgCalculation
        
        'Throw New NotImplementedException()
        'Return Nothing

        Dim result As OrderLoyalProgCalculationResult = New OrderLoyalProgCalculationResult

        result.BonusesChargeSum = arguments.Order.TotalPaySum * 5 / 100
        result.DiscountSum = arguments.Order.TotalPaySum * (-5 )/ 100

        result.CalculationLog =  result.CalculationLog + String.Format("Дисконт1: {0}{2}Бонусы: {1}{2} Количество заказов: {3}{2}",
                                              result.DiscountSum/100.0, result.BonusesChargeSum/100.0, vbCrLf, arguments.Client.OrdersCount)

        Return result
        
    End Function

End Class