MS

app/DD-Record-Organiser/ClassHelper.vb

@@ -100,7 +100,6 @@ Public Class ClassHelper
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
             Return ""
         End Try
-
     End Function
     '' <summary>
     ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
@@ -292,4 +291,21 @@ Public Class ClassHelper
             Return False
         End Try
     End Function
+    Public Shared Sub Create_USER_FILE_TABLE()
+        Try
+            Dim sql = String.Format("SELECT *, CONVERT(BIT,0) AS DELETE_FILE FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
+            CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while creating User_File_Table")
+        End Try
+    End Sub
+    Public Shared Function DELETE_PMO_FILE_USER(GUID As Integer)
+        Try
+            Dim del As String = String.Format("DELETE FROM TBPMO_FILES_USER WHERE GUID = {0}", GUID)
+            Return ClassDatabase.Execute_non_Query(del, True)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in DELETE_PMO_FILE_USER: " & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
 End Class