Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging

Public Class ClassUserFiles
    Inherits BaseClass

    Public Sub New(pLogConfig As LogConfig)
        MyBase.New(pLogConfig)
    End Sub

    Public Function Insert_GI_File(filename As String, handleType As String) As Boolean
        Try
            filename = filename.Replace("'", "''")

            Dim filename_only As String = IO.Path.GetFileName(filename)
            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
            Return My.DatabaseECM.ExecuteNonQuery(ins)

        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function FileExistsinDropTable(Filename As String) As Date
        Dim oSQL As String
        Dim oHash As String
        Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig)

        Try
            If Filename.Contains("'") Then
                Filename = Filename.Replace("'", "''")
            End If

            Try
                oHash = oFilesystem.GetChecksum(Filename)
            Catch ex As Exception
                oHash = ""
            End Try

            oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
            Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)

            If oResult Is Nothing Then
                Return Nothing
            End If

            If oResult.Rows.Count = 0 Then
                oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
                oResult = My.DatabaseECM.GetDatatable(oSQL)

                If oResult Is Nothing Then
                    Return Nothing
                End If

                If oResult.Rows.Count = 0 Then
                    Return Nothing
                Else
                    Dim oFirstRow As DataRow = oResult.Rows.Item(0)
                    Return oFirstRow.Item("ADDED_WHEN")
                End If
            Else
                Dim oFirstRow As DataRow = oResult.Rows.Item(0)
                Return oFirstRow.Item("ADDED_WHEN")
            End If
        Catch ex As Exception
            MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function
End Class