div. Änderungen

VERAG_PROG_ALLGEMEIN/Classes/cKundenveranlagungUID.vb

@@ -18,6 +18,7 @@ Public Class cKundenveranlagungUID
         Me.UstIdKz = UstIdKz
         LOAD()
     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("kdNr", kdNr))
@@ -28,18 +29,8 @@ Public Class cKundenveranlagungUID
         Return list
     End Function
 
-
-    Shared Sub LOAD_LIST_ByKdNr(ByRef UID_LIST As List(Of cKundenveranlagungUID), kdNr As Integer)
-        If UID_LIST Is Nothing Then UID_LIST = New List(Of cKundenveranlagungUID)
-        UID_LIST.Clear()
-        Dim SQL As New SQL
-        For Each r In SQL.loadDgvBySql("SELECT UstIdKz FROM tblKundenveranlagungUID WHERE kdNr=" & kdNr, "AVISO").Rows
-            UID_LIST.Add(New VERAG_PROG_ALLGEMEIN.cKundenveranlagungUID(kdNr, r("UstIdKz")))
-        Next
-    End Sub
-
-
     Public Function SAVE() As Boolean
+
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenveranlagungUID  WHERE kdNr=@kdNr and UstIdKz = @UstIdKz) " &
@@ -48,7 +39,7 @@ Public Class cKundenveranlagungUID
                        " BEGIN " & getInsertCmd() & " END " &
                        " commit tran "
 
-        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , List)
     End Function
 
     Public Sub LOAD()
@@ -93,7 +84,7 @@ Public Class cKundenveranlagungUID
                 End If
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
-            Return (" UPDATE [tblKundenveranlagungUID] SET " & str & " WHERE kdNr=@kdNr and UstIdKz = @UstIdKz ")
+            Return (" UPDATE tblKundenveranlagungUID SET " & str & " WHERE kdNr=@kdNr and UstIdKz = @UstIdKz ")
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -122,4 +113,10 @@ Public Class cKundenveranlagungUID
         Return ""
     End Function
 
+    Public Function DELETE()
+
+        SQL.doSQL("DELETE FROM tblKundenveranlagungUID WHERE kdNr=" & Me.kdNr & " and UstIdKz = '" & Me.UstIdKz & "'", "FMZOLL")
+
+    End Function
+
 End Class