Offerten mit Preisstaffel

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -517,8 +517,6 @@ Public Class cOffertPosition
 
     Public Function UPDATE(LEISTUNGSBEZ_ORG As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True)
-
-
         Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSBEZ_ORG), "FMZOLL", False, list)
     End Function
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -843,11 +843,9 @@ Public Class cSyska_Interface
 
         Dim FiBuWährung = "EUR"
 
-
         Dim ANTRAG As New cUSTVAntrag(row("UStVAn_ID"))
         Dim KUNDE_ERW As New cKundenErweitert(ANTRAG.UStVAn_KuNr)
 
-
         Dim MonthStart As String = IIf(CDate(ANTRAG.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(ANTRAG.UStVAn_ReDatVon).Month
         Dim MonthEnd As String = IIf(CDate(ANTRAG.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(ANTRAG.UStVAn_ReDatBis).Month
 
@@ -902,7 +900,7 @@ Public Class cSyska_Interface
         genBuchungsZeileVZ &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
         genBuchungsZeileVZ &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
         genBuchungsZeileVZ &= FiBuWährung & vbTab
-        genBuchungsZeileVZ &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
+        genBuchungsZeileVZ &= Format(CDbl(SummeBuchungen), fmt) & vbTab