MS

2016-07-18 14:29:33 +02:00
parent b9388d045a
commit b089c68613
37 changed files with 5975 additions and 2701 deletions
--- a/app/DD-Record-Organiser/ClassFileResult.vb
+++ b/app/DD-Record-Organiser/ClassFileResult.vb
@@ -0,0 +1,78 @@
+Public Class ClassFileResult
+    Public Shared DocID As Integer
+    Public Shared InWork As Boolean = False
+    Public Shared Function Set_InWork(state As Integer, comment As String)
+        Try
+            Dim upd As String
+            InWork = False
+            If comment = "" Then
+                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0} WHERE DocID = {1}", state, DocID)
+            Else
+                upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, Environment.UserName, comment, DocID)
+            End If
+            If ClassDatabase.Execute_non_Query(upd) = True Then
+                InWork = True
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Set_Displayname(Displayname As String)
+        Try
+            Dim upd As String
+            upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID)
+            Return ClassDatabase.Execute_non_Query(upd)
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function GET_DATATABLE_INDICES_PMO()
+        Try
+            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = " & CURRENT_FORM_ID & " AND DOCTYPE_ID = " & CURRENT_DOKARTID, True)
+            CURRENT_TBPMO_INDEX_MAN = DT
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function SET_DOCID_INDICES()
+        Try
+            Dim DT As DataTable = CURRENT_TBPMO_INDEX_MAN
+            If DT.Rows.Count > 0 Then
+                For Each row As DataRow In DT.Rows
+                    Dim insert As String = String.Format("INSERT INTO TBPMO_DOC_INDICES (DocID,INDEX_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", DocID, row.Item("GUID"), row.Item("MAN_VALUE"), Environment.UserName)
+                    ClassDatabase.Execute_non_Query(insert)
+                Next
+            End If
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
+        Try
+            Dim del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
+            If ClassDatabase.Execute_non_Query(del) = True Then
+                del = "DELETE FROM TBPMO_DOC_INDICES WHERE DocID = " & RESULT_DOC_ID
+                ClassDatabase.Execute_non_Query(del)
+                Return True
+            Else
+                MsgBox("Could not delete file from Search-table - Check logfile", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in Delete ResultFile: " & ex.Message, True)
+            MsgBox("Unexpected Error in Delete ResultFile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+
+End Class