Personalakte

app/DD-Record-Organizer/Classes/ClassDocGrid.vb

@@ -16,6 +16,8 @@ Public Class ClassDocGrid
         Public Property Filename As String
         Public Property DisplayName As String
         Public Property DocType As String
+        Public Property InWork As Boolean
+        Public Property InWorkUser As String
     End Class
 
     Private ReadOnly GridView As GridView
@@ -109,13 +111,16 @@ Public Class ClassDocGrid
             Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
             Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
             Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
-
+            Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "in work?")
+            Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
             oDocuments.Add(New clsWMDoc With {
                 .DocId = oDocId,
                 .DocPath = oDocPath,
                 .DocType = oObjecttype,
                 .DisplayName = oDisplayName,
-                .Filename = oFilename
+                .Filename = oFilename,
+                .InWork = oInWork,
+                .InWorkUser = oInWorkUser
             })
         Next