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 sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID  FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_FORM_ID, CURRENT_DOKARTID)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
            If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, 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 proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0}", RESULT_DOC_ID)
            If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
                Return True
            Else
                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