Improve Loading report, add TODOs

MultiTool.Shared/Winline/WinlineData.vb

@@ -415,16 +415,13 @@ Namespace Winline
                            If p.Fields.ContainsKey("Artikelnummer") Then
                                Return p.Fields.Item("Artikelnummer").Original
                            Else
+                               ' TODO: Throw or ignore?
                                Throw New Exceptions.MissingAttributeException("Artikelnummer")
                            End If
                        End Function).
                 Distinct().
                 ToList()
 
-            '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()
             Dim oYear = GetWinLineYear()
             Dim oMandatorId As String = String.Empty
             Dim oWhitelistedMandators = Mandators.