WIP

MultiTool.Shared/Winline/WinlineData.vb

@@ -6,7 +6,7 @@ Imports System.Text.RegularExpressions
 
 
 Namespace Winline
-    Public Class Data
+    Public Class WinlineData
         Inherits BaseClass
 
         Private ReadOnly Database As MSSQLServer
@@ -411,7 +411,13 @@ Namespace Winline
                 Where(Function(r) r.Name.ToUpper.EndsWith("T026")).
                 ToList()
             Dim oEANNumbers = oPositions.
-                Select(Function(p) p.Fields.Item("Artikelnummer").Original).
+                Select(Function(p)
+                           If p.Fields.ContainsKey("Artikelnummer") Then
+                               Return p.Fields.Item("Artikelnummer").Original
+                           Else
+                               Throw New Exceptions.MissingAttributeException("Artikelnummer")
+                           End If
+                       End Function).
                 Distinct().
                 ToList()