FaktMail, MDM-Vollmachten, MDM-Auswertung

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
 Imports System.Windows.Forms
+Imports com.sun.org.apache.xpath.internal.operations
 'Imports DocumentFormat.OpenXml.Drawing.Charts
 'Imports DocumentFormat.OpenXml.Spreadsheet
 
@@ -563,14 +564,28 @@ Public Class cRechnungsausgang
         End If
         Return True
     End Function
-    Public Function SAVE_ANHAENGE(RK_ID) As Boolean
-        If DELETE_ANHAENGE() Then ' zuerst Einträge löschen...
-            'ORDER_ANHAENGE() ' ... dann ordnen ...
-            For Each p In ANHAENGE
-                If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
-            Next
-        Else : Return False
-        End If
+    Public Function SAVE_ANHAENGE(RK_ID As Integer, Optional delete As Boolean = True) As Boolean
+
+        Select Case delete
+
+            Case 1
+
+                If DELETE_ANHAENGE() Then
+                    For Each p In ANHAENGE
+                        If Not p.INSERT(RK_ID) Then Return False
+                    Next
+                Else
+                    Return False
+                End If
+
+            Case Else
+
+                For Each p In ANHAENGE
+                    If Not p.INSERT(RK_ID) Then Return False
+                Next
+
+        End Select
+
         Return True
     End Function
 
@@ -666,6 +681,11 @@ Public Class cRechnungsausgang
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
 
+    Public Function DELETE_POSITIONEN(RK_ID As Integer, LeistungsNr As Integer, Steuerpflichtig As Boolean, LeistungsBez As String, IndexZkteingang As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim sqlstr = " DELETE FROM [RechnungsausgangPositionen]  WHERE RK_ID=" & RK_ID & " AND LeistungsNr = " & LeistungsNr & " and LeistungsBez = '" & LeistungsBez & "' And IndexZkteing = " & IndexZkteingang & " AND Steuerpflichtig =" & IIf(Steuerpflichtig, 1, 0)
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
     Public Function DELETE_ANHAENGE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim sqlstr = " DELETE FROM [RechnungsausgangAnhaenge]  WHERE RK_ID=" & Me.RK_ID
         Return SQL.doSQL(sqlstr, "FMZOLL")