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