Improve Loading report, add TODOs

MultiTool.Shared/Documents/DocumentLoader.vb

@@ -145,6 +145,10 @@ Namespace Documents
                     Where(Function(t) t.Name = oTopLevelElement.Name).
                     FirstOrDefault()
 
+                ' TODO: All fields in the schema should be generated,
+                ' only creating the ones with values leads to wrong visual cues when asking for
+                ' docs/rows/fields with errors
+
                 For Each oSubElement As XElement In oSubElements
                     Dim oSchemaField = oTable.Columns.
                         Where(Function(c) c.Name = oSubElement.Name).

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.