neu

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -163,7 +163,7 @@ Public Class cKundenKontakte
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt WITH(updlock,serializable) WHERE kkd_id=@kkd_id) " &
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenKontakt   WHERE kkd_id=@kkd_id) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " END " &
@@ -237,4 +237,22 @@ Public Class cKundenKontakte
         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
+        If Not KMail.Contains("@") Then Return -1
+
+        Dim SQL As New SQL
+        getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 [kkd_KundenNr] FROM [tblKundenKontakt] where kkd_Email LIKE ('%" & KMail & "%') AND kkd_kkaBez='OUTLOOK_AVISO_Eingang'", "FMZOLL",,, -1)
+
+        If serchInKd AndAlso getKdNrFromMailAdress < 0 Then
+            getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & KMail & "%') ", "FMZOLL",,, -1)
+
+            If getKdNrFromMailAdress < 0 Then
+                Dim sp = KMail.Split("@")
+                getKdNrFromMailAdress = SQL.getValueTxtBySql("SELECT TOP 1 AdressenNr FROM Adressen WHERE [E-Mail] LIKE ('%" & sp(1) & "%') ", "FMZOLL",,, -1)
+            End If
+        End If
+    End Function
 End Class