201020

VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb

@@ -84,6 +84,12 @@ Public Class cKundenBesonderheiten
         End Try
     End Sub
 
+    Public Shared Function DELETE_ALL_KD(kdb_KundenNr As Integer) As Boolean
+        Dim SQL As New SQL
+        Dim sqlstr = " DELETE FROM tblKundenBesonderheiten  WHERE kdb_KundenNr=" & kdb_KundenNr
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
 
 
     Public Function getUpdateCmd() As String