Imports ImporterForm.Positions
Imports ImporterShared.Schemas

Public Class PositionData
    Public Shared Function Load(pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position)
        Dim oPositions = Orders.Helpers.GetOrderPositions(pData)
        Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(pDataOriginal)
        Dim oPositionList As New List(Of Position)

        For Each oPosition In oPositions
            Dim oPositionOriginal = oPositionsOriginal.
                Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer).
                SingleOrDefault()

            oPositionList.Add(New Position With {
                .ArticleNumber = oPosition.Artikelnummer,
                .RowNumber = oPosition.Zeilennummer,
                .ArticleDescription = oPosition.Bezeichnung,
                .ArticleNumberVendor = oPosition.Lieferantenartikelnummer,
                .EDIPrice = oPosition.Einzelpreis,
                .WinLinePrice = 0,
                .Price = 0,
                .Amount = oPosition.Menge_bestellt,
                .EuropeanArticleNumber = oPositionOriginal.Artikelnummer
            })
        Next

        Return oPositionList
    End Function
End Class