You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
3.5 KiB
78 lines
3.5 KiB
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
|