Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -308,11 +308,9 @@ Public Class cSyska_Interface
 
             If Not System.IO.Directory.Exists(path) Then System.IO.Directory.CreateDirectory(path)
             If Not System.IO.Directory.Exists(pathArchiv) Then System.IO.Directory.CreateDirectory(pathArchiv)
+
             '-------------------------------------------------------------------------------------------
 
-
-
-
             '----------------- Buchungssätze -----------------
             If True Then 'boolBuchungen Then
                 If WdhDateiname = "" AndAlso Not ambargubuchungen Then TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
@@ -330,11 +328,6 @@ Public Class cSyska_Interface
                         'file.WriteLine(genBuchungenBeginn()) 'not needed
                         For Each r In dt_Buchungen.Rows
 
-                            If r("Rechnungsnummer") = 25224877 Then
-                                MsgBox("")
-                            End If
-
-
                             Dim curDifferenzbetrag As Double = 0
                             If r("WährungFremd") Is DBNull.Value Then
                                 curDifferenzbetrag = Math.Round(If(r("RechnungsbetragLokal") < 0, 0 - r("RechnungsbetragLokal"), r("RechnungsbetragLokal")), 2)
@@ -364,6 +357,9 @@ Public Class cSyska_Interface
                             If r("BelegartenNr") = 71 And Not ambargubuchungen Then 'GUTSCHRIFT ---> Immer am Schluss
                                 file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA, ambargubuchungen))
                             End If
+                        Next
+
+                        For Each r In dt_Buchungen.Rows
                             If r("VZ") = 1 Then
                                 file.WriteLine(genBuchungsZeileVZ(r, SummeBuchungen, Geschaeftsjahr, FIRMA, ambargubuchungen))
                             End If
@@ -900,7 +896,7 @@ Public Class cSyska_Interface
         genBuchungsZeileVZ &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
         genBuchungsZeileVZ &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
         genBuchungsZeileVZ &= FiBuWährung & vbTab
-        genBuchungsZeileVZ &= Format(CDbl(SummeBuchungen), fmt) & vbTab
+        genBuchungsZeileVZ &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab