Change Name to MultiTool

MultiTool.Form/Positions/Position.vb

@@ -0,0 +1,16 @@
+Namespace Positions
+    Public Class Position
+        Public Property RowNumber As Integer
+        Public Property EuropeanArticleNumber As String
+        Public Property ArticleNumber As String
+        Public Property ArticleNumberVendor As String
+        Public Property ArticleDescription As String
+        Public Property EDIPrice As Double
+        Public Property WinLinePrice As Double
+        Public Property Price As Double
+        Public Property Amount As Double
+        Public Property ReplacementArticleNumber As String
+        Public Property UseReplacementNumber As Boolean = False
+    End Class
+
+End Namespace

MultiTool.Form/Positions/PositionColumns.vb

@@ -0,0 +1,76 @@
+Imports DevExpress.XtraGrid.Columns
+
+Namespace Positions
+    Public Class PositionColumns
+        Public Shared Property ColumnRowNumber As New GridColumn With {
+           .FieldName = "RowNumber",
+           .Caption = "Nr.",
+           .VisibleIndex = 0,
+           .MaxWidth = 30
+        }
+        Public Shared Property ColumnArticleNumber As New GridColumn With {
+            .FieldName = "ArticleNumber",
+            .Caption = "Artikelnummer",
+            .VisibleIndex = 1
+        }
+        Public Shared Property ColumnEuropeanArticleNumber As New GridColumn With {
+            .FieldName = "EuropeanArticleNumber",
+            .Caption = "EAN",
+            .VisibleIndex = 2
+        }
+        Public Shared Property ColumnReplacementArticleNumber As New GridColumn With {
+            .FieldName = "ReplacementArticleNumber",
+            .Caption = "Ersatzartikel",
+            .VisibleIndex = 3
+        }
+        Public Shared Property ColumnArticleNumberVendor As New GridColumn With {
+            .FieldName = "ArticleNumberVendor",
+            .Caption = "Artikel Lieferant",
+            .VisibleIndex = 4
+        }
+        Public Shared Property ColumnArticleDescription As New GridColumn With {
+            .FieldName = "ArticleDescription",
+            .Caption = "Artikel Beschreibung",
+            .VisibleIndex = 5
+        }
+        Public Shared Property ColumnAmount As New GridColumn With {
+            .FieldName = "Amount",
+            .Caption = "Menge",
+            .VisibleIndex = 6
+        }
+        Public Shared Property ColumnEDIPrice As New GridColumn With {
+            .FieldName = "EDIPrice",
+            .Caption = "Einzelpreis EDI",
+            .VisibleIndex = 7
+        }
+        Public Shared Property ColumnWinLinePrice As New GridColumn With {
+            .FieldName = "WinLinePrice",
+            .Caption = "Einzelpreis WinLine",
+            .VisibleIndex = 8
+        }
+        Public Shared Property ColumnPrice As New GridColumn With {
+            .FieldName = "Price",
+            .Caption = "Einzelpreis",
+            .VisibleIndex = 9
+        }
+
+        ''' <summary>
+        ''' Columns that can be changed in the positions grid
+        ''' </summary>
+        Public Shared Property WritableColumns As New List(Of GridColumn) From {
+            ColumnPrice
+        }
+
+        Public Shared Property AllColumns As New List(Of GridColumn) From {
+            ColumnRowNumber,
+            ColumnArticleNumber,
+            ColumnReplacementArticleNumber,
+            ColumnArticleNumberVendor,
+            ColumnEuropeanArticleNumber,
+            ColumnArticleDescription,
+            ColumnEDIPrice,
+            ColumnWinLinePrice,
+            ColumnPrice
+        }
+    End Class
+End Namespace

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

MultiTool.Form/Positions/PositionGrid.vb

@@ -0,0 +1,44 @@
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Grid
+Imports MultiTool.Shared.Documents
+Imports MultiTool.Form.Positions
+
+Namespace Positions
+    Public Class PositionGrid
+        Public Shared Sub LoadPositionViewAndColumns(pView As GridView, pDocumentType As DocumentType)
+            Dim oColumns As List(Of GridColumn)
+
+            ' Create columns list depending on DocumentType
+            Select Case pDocumentType
+                Case DocumentType.Order
+                    oColumns = PositionColumns.AllColumns
+
+                Case Else
+                    oColumns = New List(Of GridColumn)
+            End Select
+
+            ' Reset the grid
+            pView.GridControl.DataSource = Nothing
+            pView.GridControl.ForceInitialize()
+
+            ' Add and adjust columns
+            pView.Columns.AddRange(oColumns.ToArray())
+            pView.BestFitColumns()
+
+            ' Set columns readonly that need it
+            Dim oReadOnlyColumns = oColumns.
+                Except(PositionColumns.WritableColumns).
+                ToList()
+
+            For Each oColumn As GridColumn In pView.Columns
+                If oReadOnlyColumns.Contains(oColumn) Then
+                    oColumn.OptionsColumn.ReadOnly = True
+                    oColumn.OptionsColumn.AllowEdit = False
+                Else
+                    oColumn.Caption &= " *"
+                End If
+            Next
+        End Sub
+    End Class
+
+End Namespace