WIP

ImporterShared/Winline/Account.vb

@@ -3,6 +3,15 @@
         Public Property Id As String
         Public Property Name As String
         Public Property Mandator As String
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Account).Id = Id
+        End Function
+
         Public Overrides Function ToString() As String
             Return $"{Name} ({Id})"
         End Function

ImporterShared/Winline/Data.vb

@@ -162,9 +162,9 @@ Namespace Winline
 
         Public Function FindMatchingMandatorFromOrder(pData As Schemas.Orders.Input.MESOWebService) As Mandator
             Dim oPositions As List(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
-            Where(Function(i) TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
-            Select(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
-            ToList()
+                Where(Function(i) TypeOf i Is Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026).
+                Select(Of Schemas.Orders.Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
+                ToList()
             Dim oYear = GetWinLineYear()
             Dim oMandatorId As String = String.Empty
             Dim oWhitelistedMandators = Mandators.

ImporterShared/Winline/Mandator.vb

@@ -8,6 +8,14 @@
         Public Property Order As Integer
         Public Property IsWhitelisted As Boolean
 
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Mandator).Id = Id
+        End Function
+
         Public Overrides Function ToString() As String
             Return $"{Name} ({Id})"
         End Function

ImporterShared/Winline/WebService.vb

@@ -20,6 +20,7 @@ Namespace Winline
             FileEx = New File(pLogConfig)
             Serializer = New Serializer(pLogConfig)
             Config = pConfig
+            Mapper = MapperFactory.GetMapper()
         End Sub
 
         Public Function TransferDocumentToWinLine(pDocument As Document) As Boolean