MS_04.01

app/DD-Record-Organiser/ClassHelper.vb

@@ -135,6 +135,19 @@ Public Class ClassHelper
             ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
         End Try
     End Sub
+    Public Shared Sub Open_Folder(RESULT_DOC_PATH As Object, DocID As String)
+        Try
+            If RESULT_DOC_PATH <> Nothing Then
+                Dim _path = Path.GetDirectoryName(RESULT_DOC_PATH)
+                FOLDER_OPEN(_path, DocID)
+            Else
+                If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Open_Folder:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
+            ClassLogger.Add("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+        End Try
+    End Sub
     Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
         Try
             Dim DocView
@@ -158,7 +171,7 @@ Public Class ClassHelper
                 If System.IO.File.Exists(RESULT_DOC_PATH) = True Then
                     Process.Start(RESULT_DOC_PATH)
                 Else
-                    MsgBox("File Does Not Exist!", MsgBoxStyle.Exclamation)
+                    MsgBox("File '" & RESULT_DOC_PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
                 End If
 
 
@@ -168,98 +181,32 @@ Public Class ClassHelper
             ClassLogger.Add("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
         End Try
 
+    End Sub
+    Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
+        Try
+            If PATH <> Nothing Then
+
+                If System.IO.Directory.Exists(PATH) = True Then
+                    Process.Start(PATH)
+                Else
+                    MsgBox("Folder '" & PATH & "' not existing or accessible!", MsgBoxStyle.Exclamation)
+                End If
+
+
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in FOLDER_OPEN:" & vbNewLine & ex.Message & vbNewLine & PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
+            ClassLogger.Add("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID, True)
+        End Try
+
     End Sub
     Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date
         Throw New NotImplementedException
     End Function
-    Public Shared Function Return_listcheck(ENTITY_ID As Integer)
-
-        Try
-            Dim listcheck As New List(Of String)
-            ' Alle Checkboxen für aktuelle Ansicht heraussuchen
-            Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
-            Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
-            'Liste von allen Spaltentiteln mit Checkbox erstellen
-            If dtcheck.Rows.Count > 0 Then
-                For Each row As DataRow In dtcheck.Rows
-                    listcheck.Add(row.Item(0))
-                Next
-            End If
-            Return listcheck
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in Return_listcheck: " & ex.Message, True)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function Return_listdate(ENTITY_ID As Integer)
-        Try
-            Dim listdate As New List(Of String)
-            ' Alle Checkboxen für aktuelle Ansicht heraussuchen
-            Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & ENTITY_ID
-            Dim dtdate As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
-            'Liste von allen Spaltentiteln mit Checkbox erstellen
-            If dtdate.Rows.Count > 0 Then
-                For Each row As DataRow In dtdate.Rows
-                    listdate.Add(row.Item(0))
-                Next
-            End If
-            Return listdate
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in Return_listdate: " & ex.Message, True)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
-        Try
-            Dim tbltemp As DataTable = Primary_DT.Clone()
-            ' Nicht benötigt? Datumsspalten werden im Grid formatiert
-            For Each col As String In listdate
-                Dim colDate As DataColumn = tbltemp.Columns(col)
-                If Not IsNothing(colDate) Then
-                    Try
-                        colDate.DataType = GetType(Date)
-                    Catch ex As Exception
-                        MsgBox("Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                    End Try
-                End If
-            Next
-            For Each col1 As String In listcheck
-                Dim collist As DataColumn = tbltemp.Columns(col1)
-                If Not IsNothing(collist) Then
-                    collist.DataType = GetType(Boolean)
-                End If
-            Next
-            Try
-                Dim collist As DataColumn = tbltemp.Columns("files?")
-                If Not IsNothing(collist) Then
-                    collist.DataType = GetType(Boolean)
-                End If
-            Catch ex As Exception
-
-            End Try
-            Try
-                tbltemp.Load(Primary_DT.CreateDataReader)
-                Return tbltemp
-            Catch ex As Exception
-                ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
-                'Tabelle wird ohne Datekonvertierung geladen
-                Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
-                Dim primaryKey(1) As DataColumn
-                primaryKey(0) = DTEntity.Columns("Record-ID")
-                DTEntity.PrimaryKey = primaryKey
-                Return DTEntity
-            End Try
-        Catch ex As Exception
-            MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
-            Return Nothing
-        End Try
-
-    End Function
     Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
         Try
             Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
-            Return ClassDatabase.Execute_non_Query(insert)
+            Return ClassDatabase.Execute_non_Query(insert, False)
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True)
             Return False