WIP

MultiTool.Shared/Documents/DocumentLoader.vb

@@ -11,6 +11,12 @@ Namespace Documents
         Private ReadOnly Winline As Winline.Data
 
         Public Property Files As New List(Of Document)
+        Public Event FileLoadComplete As EventHandler(Of FileLoadInfo)
+
+        Public Structure FileLoadInfo
+            Public FilesLoaded As Integer
+            Public FilesTotal As Integer
+        End Structure
 
         Public Sub New(pLogConfig As LogConfig, pWinline As Winline.Data)
             MyBase.New(pLogConfig, pLogConfig.GetLogger())
@@ -35,6 +41,12 @@ Namespace Documents
                 For Each oFile In oFiles
                     Dim oDocument = LoadFile(oFile, pSchema, pMandator)
                     Files.Add(oDocument)
+
+                    Dim oInfo As FileLoadInfo
+                    oInfo.FilesLoaded = Files.Count
+                    oInfo.FilesTotal = oFiles.Count
+
+                    RaiseEvent FileLoadComplete(Me, oInfo)
                 Next
 
                 Return True
@@ -212,6 +224,8 @@ Namespace Documents
                              If oArticleNumber IsNot Nothing Then
                                  oNumberItem.External = oArticleNumber
                                  oNumberItem.Final = oArticleNumber
+                             Else
+                                 oNumberItem.Error = DocumentRow.FieldError.ArticleNotFound
                              End If
                          End Sub).
                 ToList()
@@ -249,6 +263,8 @@ Namespace Documents
                         .Final = oAccount.Name
                     })
                 End If
+            Else
+                oNumberItem.Error = DocumentRow.FieldError.AccountNotFound
             End If
         End Sub