neu

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -205,6 +205,11 @@ Public Class cKundenKontakte
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
 
+    Public Shared Function DELETE_ALL_KONTAKTE(kkd_KundenNr, Optional kkd_kkaId = -1) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim sqlstr = " DELETE FROM [tblKundenKontakt] WITH(updlock,serializable) WHERE kkd_KundenNr=" & kkd_KundenNr & If(kkd_kkaId > 0, " AND kkd_kkaId='" & kkd_kkaId & "'", "")
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
 
     Public Function getInsertCmd() As String
         Try