115 lines
4.5 KiB
VB.net
115 lines
4.5 KiB
VB.net
|
|
Imports System.Data.SqlClient
|
|
Imports System.Reflection
|
|
|
|
Public Class cEmailBenachrichtigungList
|
|
Property eb_KundenNr As Object = Nothing
|
|
Property eb_ebartId As Object = Nothing
|
|
Public LIST As New List(Of cEmailBenachrichtigung)
|
|
Dim SQL As New SQL
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
|
|
Sub New(eb_KundenNr, eb_ebartId)
|
|
Me.eb_KundenNr = eb_KundenNr
|
|
Me.eb_ebartId = eb_ebartId
|
|
LOAD(Me.eb_KundenNr, Me.eb_ebartId)
|
|
End Sub
|
|
Public Sub CLEAR()
|
|
LIST.Clear()
|
|
End Sub
|
|
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
|
Dim l As New cEmailBenachrichtigung
|
|
l.eb_KundenNr = eb_KundenNr
|
|
l.eb_ebartId = eb_ebartId
|
|
l.eb_EMail = eb_EMail
|
|
l.eb_cc = cc
|
|
l.eb_bcc = bcc
|
|
LIST.Add(l)
|
|
End Sub
|
|
Public Sub LOAD(eb_KundenNr, eb_ebartId)
|
|
Try
|
|
LIST.Clear()
|
|
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn)
|
|
cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
|
|
cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cEmailBenachrichtigung
|
|
l.eb_KundenNr = dr.Item("eb_KundenNr")
|
|
l.eb_ebartId = dr.Item("eb_ebartId")
|
|
l.eb_EMail = dr.Item("eb_EMail")
|
|
l.eb_cc = dr.Item("eb_cc")
|
|
l.eb_bcc = dr.Item("eb_bcc")
|
|
LIST.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
Function SAVE()
|
|
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
|
For Each l In LIST
|
|
If Not l.INSERT() Then Return False
|
|
Next
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
End Class
|
|
Public Class cEmailBenachrichtigung
|
|
Property eb_KundenNr As Object = Nothing
|
|
Property eb_ebartId As Object = Nothing
|
|
Property eb_EMail As Object = Nothing
|
|
Property eb_cc As Boolean = False
|
|
Property eb_bcc As Boolean = False
|
|
|
|
Dim SQL As New SQL
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_KundenNr", eb_KundenNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
|
|
Return list
|
|
End Function
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblEmailBenachrichtigung (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
End Class
|