Change Name to MultiTool

MultiTool.Form/Positions/PositionData.vb

@@ -0,0 +1,49 @@
+Imports DigitalData.Modules.Logging
+Imports MultiTool.Form.Positions
+Imports MultiTool.Shared.Winline
+Imports MultiTool.Shared.Schemas
+
+Public Class PositionData
+    Inherits MultiTool.Shared.BaseClass
+
+    Private Winline As Data
+
+    Public Sub New(pLogConfig As LogConfig, pWinline As Data)
+        MyBase.New(pLogConfig, pLogConfig.GetLogger())
+        Winline = pWinline
+    End Sub
+
+    'Public Function Load(pMandator As Mandator, pData As Orders.Input.MESOWebService, pDataOriginal As Orders.Input.MESOWebService) As List(Of Position)
+    '    Dim oPositions = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pData)
+    '    Dim oPositionsOriginal = Orders.Helpers.GetOrderPositions(Of Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(pDataOriginal)
+    '    Dim oPositionList As New List(Of Position)
+
+    '    For Each oPosition In oPositions
+    '        Dim oPositionOriginal = oPositionsOriginal.
+    '            Where(Function(p) p.Zeilennummer = oPosition.Zeilennummer).
+    '            SingleOrDefault()
+
+    '        Dim oReplacementNumber As String = Winline.GetReplacementArticleNumber(oPosition.Artikelnummer, pMandator)
+
+    '        ' If ArticleNumber is the same as the replacement Number, this Article does not have a replacement Number
+    '        If oReplacementNumber = oPosition.Artikelnummer Then
+    '            oReplacementNumber = Nothing
+    '        End If
+
+    '        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,
+    '            .ReplacementArticleNumber = oReplacementNumber
+    '        })
+    '    Next
+
+    '    Return oPositionList
+    'End Function
+End Class