MS

app/DD-Record-Organiser/frmRecordView.vb

@@ -516,9 +516,9 @@ Public Class frmRecordView
             Next
             Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             If ClassDatabase.Execute_Scalar(sql, True) >= 1 Then
-                sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
-                CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
+                ClassHelper.Create_USER_FILE_TABLE()
                 If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
+                   
                     If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
                         For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
                             'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")