From b92ba0480c6d13fb38462ab5f493258c5869d28a Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 20 Aug 2025 09:18:08 +0200
Subject: [PATCH] syska, ustva, etc.

---
 SDL/Fakturierung/usrCntlFaktAbrechnung.vb            |  2 +-
 SDL/USTV/frmMDM_USTVAntrag.vb                        |  2 +-
 .../Schnittstellen/cSyska_Interface.vb               | 12 ++++--------
 3 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index ddd5016d..b66cb8c2 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -5002,7 +5002,7 @@ mwst:
             Dim count_nichtAbgerVZ As Integer = -1
             count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & "  and  [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
             If count_nichtAbgerVZ = 0 Then
-                Return SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
+                Return SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) <> 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
             End If
         End If
 
diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index b3812eec..21015f00 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -3480,7 +3480,7 @@ Public Class frmMDM_USTVAntrag
             Next
 
             'würde prüfung nochmals für alle machen, performance allerdings nicht gut....
-            'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZDatetime],0) = 0 )")
+            'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull(UStVPo_VZ_RKID,0) <> 0)")
 
             Dim count_nichtAbgerVZ As Integer = -1
             count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & "  and  [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
index 895b6a28..f98c23fa 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
+++ b/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