Export Columns in Export Grid

MultiTool.Shared/Winline/Entities/Document.vb

@@ -21,6 +21,8 @@
         Public Property IsExported As Boolean = False
 
         Public Property FilenameExport As String
+        Public Property ExportedWhen As Date
+        Public Property ExportedWho As String
     End Class
 
 End Namespace

MultiTool.Shared/Winline/WinlineData.vb

@@ -4,6 +4,7 @@ Imports MultiTool.Shared.Winline.Entities
 Imports System.Text.RegularExpressions
 Imports MultiTool.Shared.Templates
 Imports MultiTool.Shared.Constants
+Imports DigitalData.Modules.Language
 
 Namespace Winline
     Public Class WinlineData
@@ -569,7 +570,10 @@ Namespace Winline
                     c100 GROSS_AMOUNT,
                     c114 NET_AMOUNT,
 
-                    U010 ALREADY_EXPORTED
+                    U010 ALREADY_EXPORTED,
+                    U011 EXPORTED_WHO,
+                    U012 EXPORTED_WHEN,
+                    U013 EXPORTED_FILE
 
                     FROM [{pMandator.Database}].[dbo].[T025]
                     WHERE 
@@ -621,7 +625,11 @@ Namespace Winline
             Dim oDocumentKind As Integer = pDataRow.Item("DOCUMENT_KIND")
             Dim oGrossAmount As Double = pDataRow.Item("GROSS_AMOUNT")
             Dim oNetAmount As Double = pDataRow.Item("NET_AMOUNT")
-            Dim oExported As Boolean = pDataRow.Item("ALREADY_EXPORTED")
+            Dim oExported As Boolean = pDataRow.ItemEx("ALREADY_EXPORTED", False)
+            Dim oExportedWho As String = pDataRow.ItemEx("EXPORTED_WHO", "")
+            Dim oExportedWhen As Date = pDataRow.ItemEx(Of Date)("EXPORTED_WHEN", Nothing)
+            Dim oExportFile As String = pDataRow.ItemEx("EXPORTED_FILE", "")
+
             Dim oDocumentNumber As String = Nothing
             Dim oDocumentDate As Date = Nothing
             Dim oDocumentDateColumn As String = Nothing
@@ -663,7 +671,10 @@ Namespace Winline
                 .Kind = oKind,
                 .GrossAmount = oGrossAmount,
                 .NetAmount = oNetAmount,
-                .IsExported = oExported
+                .IsExported = oExported,
+                .ExportedWhen = oExportedWhen,
+                .ExportedWho = oExportedWho,
+                .FilenameExport = oExportFile
             }
 
             Return oDocument