neu

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -239,6 +239,7 @@ Public Class cKundenKontakte
     Shared Function getMailAdress(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_Email