Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsDB
    Public EDOKA_Data As New DataTable
    Public AVQ_Data As New DataTable



    Public Function Check_File(ByVal Dokumentid As String) As Boolean
        Try
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            'Dim conn As New SqlConnection(My.Settings.EDOKA_Connection)
            Dim conn As New SqlConnection(Globals.sConnectionString_edoka)
            Dim i As Integer
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "select * from dokument where dokumentid='" + Dokumentid + "'"
            scmCmdToExecute.CommandType = CommandType.Text
            scmCmdToExecute.Connection = conn
            sdaAdapter.Fill(EDOKA_Data)
            If EDOKA_Data.Rows.Count > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function



    Public Function Sendmail(ByVal email As String, ByVal msg As Integer, ByVal counter As Integer) As Boolean
        'Mails im Fehler- bzw. im OK-Fall versenden
        Dim meldung As String = ""
        Dim betreff As String = ""
        Select Case msg
            Case 0
                betreff = "EDKB16 - Return 0: EDOKA/DOCM-Generierung durchgeführt / " + Format(Now, "yyyyMMddHHmmss")
                meldung = "Die Verarbeitung EDKB16 wurde ordnungsgemäss durchgeführt:" + vbCrLf + vbCrLf + _
                          "Anzahl korrekt verarbeitet: " + counter.ToString + vbCrLf + vbCrLf + _
                          "Dieses Mail wurde durch den Job EDKB16 ausgelöst" + vbCrLf + _
                          "------------------------------------------------"
            Case 1
                betreff = "EDKB16 - Return 16: Fehler bei der Verarbeitung EDKB16 / " + Format(Now, "yyyyMMddHHmmss")
                meldung = "Die Verarbeitung EDKB16 wurde nicht ordnungsgemäss durchgeführt:" + vbCrLf + vbCrLf + _
                          "Anzahl korrekt verarbeitet: " + counter.ToString + vbCrLf + vbCrLf + _
                          MailBody + vbCrLf + vbCrLf + _
                          "Dieses Mail wurde durch den Job EDKB16 ausgelöst" + vbCrLf + _
                          "------------------------------------------------"
        End Select


        Dim scmCmdToExecute As SqlCommand = New SqlCommand
        scmCmdToExecute.CommandText = "dbo.SP_SendMail"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable
        scmCmdToExecute.Parameters.Add(New SqlParameter("@email", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, email))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung))
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        Try
            conn_edoka.OpenConnection()
        Catch
        End Try
        Sendmail = True
        Try
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Sendmail = False
        Finally
            scmCmdToExecute.Dispose()
            conn_edoka.CloseConnection(True)
        End Try
    End Function

End Class