Ustv, etc.

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -106,6 +106,8 @@ Public Class cKundenKontakte
     Property kkd_Geburtsort As Object = Nothing
     Property kkd_Geburtsland As Object = Nothing
 
+    Public hasEntry = False
+
 
 
 
@@ -121,6 +123,13 @@ Public Class cKundenKontakte
         LOAD(kkd_id)
     End Sub
 
+
+    Sub New(kkda_id, kkd_KundenNr)
+        Me.kkd_kkaId = kkda_id
+        Me.kkd_KundenNr = kkd_KundenNr
+        LOAD(kkda_id, kkd_KundenNr)
+    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("kkd_id", kkd_id,, True, True))
@@ -157,6 +166,9 @@ Public Class cKundenKontakte
 
     Public Sub LOAD(kkd_id)
         Try
+
+            hasEntry = False
+
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_id=@kkd_id ", conn)
                     cmd.Parameters.AddWithValue("@kkd_id", kkd_id)
@@ -173,6 +185,41 @@ Public Class cKundenKontakte
                             End If
 
                         Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            'Return Nothing
+        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 Nothing
+    End Sub
+
+    Public Sub LOAD(kkda_id, kkd_KundenNr)
+        Try
+
+            hasEntry = False
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM [tblKundenKontakt] WHERE kkd_kkaId=@kkd_kkaId and kkd_KundenNr=@kkd_KundenNr ", conn)
+                    cmd.Parameters.AddWithValue("@kkd_kkaId", kkda_id)
+                    cmd.Parameters.AddWithValue("@kkd_KundenNr", kkd_KundenNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
                     End If
                     dr.Close()
                 End Using