edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:47:48 +01:00
parent 3aaf328ce6
commit b4612ab3e0
142 changed files with 24372 additions and 14785 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
SDL/Classes/cEmailBenachrichtigung.vb
View File

@@ -1,114 +0,0 @@

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