WIP

EDIDocumentImport/Positions/PositionData.vb

@@ -0,0 +1,30 @@
+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