Developer forum

Imports Dynamicweb.eCommerce
Imports Dynamicweb.eCommerce.Prices
Imports Dynamicweb.eCommerce.Orders
Imports Dynamicweb.eCommerce.Products
Imports Dynamicweb.Extensibility
Imports Dynamicweb.eCommerce.Orders.SalesDiscounts

    < _
    AddInName("My discount"), _
    AddInDescription("Your description"), _
    AddInActive(True)
    > _
    Public Class MyDiscount
        Inherits SalesDiscountProvider

        Private _ProductsAndGroups As New ProductsAndGroupsHandler()

        <AddInParameter("Products"), AddInParameterEditor(GetType(Editors.ProductsAndGroupsEditor), "width=300px;height=100px")> _
        Public Property ProductsAndGroups() As String
            Get
                If _ProductsAndGroups Is Nothing Then
                    _ProductsAndGroups = New ProductsAndGroupsHandler()
                End If
                Return _ProductsAndGroups.ToString()
            End Get
            Set(ByVal value As String)
                If _ProductsAndGroups Is Nothing Then
                    _ProductsAndGroups = New ProductsAndGroupsHandler()
                End If
                _ProductsAndGroups.ParseData(value)
            End Set
        End Property


        Public Overrides Sub ProcessOrder(ByVal _order As Order)
            For Each line As OrderLine In _order.OrderLines
		If Base.ChkNumber(line.Type) <= 0 AndAlso _ProductsAndGroups.IsProductIncluded(line.Product) AndAlso line.Quantity >= Me.ProductQuantity Then
                Select Case DiscountValue.Type
                    Case DiscountTypes.FixedAmount
                        Dim line As OrderLine
                        line = Me.CreateAmountOrderline(_order, DiscountValue.Amount, False)
                        _order.OrderLines.Add(line, False)
                    Case DiscountTypes.Percent
			Dim discount As Double = CalculateDiscountPrice(line, DiscountValue.Amount)
			Dim newLine As OrderLine = CreateOrderLine(_order, discount)
			_order.OrderLines.Add(newLine, False)
		    End Select

		End If
            Next
        End Sub

	Private Function CalculateDiscountPrice(ByVal _orderLine As OrderLine, ByVal _discountPercent As Double) As Double
		Dim discountPrice As Double = 0

		If _orderLine.Type <> Base.ChkString(Base.ChkInteger(OrderLine.OrderLineType.Discount)) Then
		    discountPrice += _orderLine.UnitPrice.PriceWithoutVAT / 100 * _discountPercent * _orderLine.Quantity
		End If

		Return discountPrice * -1
	End Function

	Private Function CreateOrderLine(ByVal _order As Order, ByVal discountPrice As Double) As OrderLine
		Dim line As OrderLine = New OrderLine()
		line.Order = _order
		line.Quantity = 1
		line.ProductName = DiscountName
        line.SetUnitPrice(discountPrice)
        line.DiscountID = DiscountID

        line.Type = Base.ChkString(Base.ChkNumber(OrderLine.OrderLineType.ProductDiscount))

		Return line
	End Function

    End Class