new

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -88,6 +88,8 @@ Public Class cKundenKontakte
     Property kkd_kkaBez As Object = Nothing
     Property kkd_Tel As Object = Nothing
     Property kkd_Email As Object = Nothing
+    Property kkd_EmailCC As Object = Nothing
+    Property kkd_EmailBCC As Object = Nothing
     Property kkd_Fax As Object = Nothing
     Property kkd_Homepage As Object = Nothing
     Property kkd_Mobil As Object = Nothing
@@ -115,6 +117,8 @@ Public Class cKundenKontakte
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_kkaBez", kkd_kkaBez))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Tel", kkd_Tel))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Email", kkd_Email))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailCC", kkd_EmailCC))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_EmailBCC", kkd_EmailBCC))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Fax", kkd_Fax))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Homepage", kkd_Homepage))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Mobil", kkd_Mobil))
@@ -137,13 +141,13 @@ Public Class cKundenKontakte
 
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
-                        For Each l In getParameterList()
-                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
 
-                            If dr.Item(l.Text) Is DBNull.Value Then
+                            If dr.Item(li.Text) Is DBNull.Value Then
                                 propInfo.SetValue(Me, Nothing)
                             Else
-                                propInfo.SetValue(Me, dr.Item(l.Text))
+                                propInfo.SetValue(Me, dr.Item(li.Text))
                             End If
 
                         Next
@@ -236,13 +240,32 @@ Public Class cKundenKontakte
         If KdNr < 0 Then Return ""
         Dim KD_LIST = New cKundenKontakteList(KdNr)
         If KD_LIST IsNot Nothing Then
-            For Each l In KD_LIST.LIST
-                If l.kkd_kkaBez = bez Then Return l.kkd_Email
+            For Each li In KD_LIST.LIST
+                If li.kkd_kkaBez = bez Then Return li.kkd_Email
+            Next
+        End If
+        Return ""
+    End Function
+    Shared Function getMailAdressCC(KdNr As Integer, bez As String) As String
+        If KdNr < 0 Then Return ""
+        Dim KD_LIST = New cKundenKontakteList(KdNr)
+        If KD_LIST IsNot Nothing Then
+            For Each li In KD_LIST.LIST
+                If li.kkd_kkaBez = bez Then Return li.kkd_EmailCC
+            Next
+        End If
+        Return ""
+    End Function
+    Shared Function getMailAdressBCC(KdNr As Integer, bez As String) As String
+        If KdNr < 0 Then Return ""
+        Dim KD_LIST = New cKundenKontakteList(KdNr)
+        If KD_LIST IsNot Nothing Then
+            For Each li In KD_LIST.LIST
+                If li.kkd_kkaBez = bez Then Return li.kkd_EmailBCC
             Next
         End If
         Return ""
     End Function
-
     Shared Function getKdNrFromMailAdress(KMail As String, Optional serchInKd As Boolean = True) As Integer
         getKdNrFromMailAdress = -1
         If KMail = "" Then Return -1