Parkplatz Abrechnung, Fakt div, etc

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -1358,6 +1358,30 @@ Public Class cSyska_Interface
                     Return False
                 End If
             End If
+            OP_LFD_SALDO_AKTUALISIERN(Firma_ID, KdNr)
+
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+    End Function
+    Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
+        Try
+
+            Dim sqlStr = " 
+                      UPDATE KUNDEN
+                    SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where  Kontonummer=KundenNrZentrale order by [OP_ID] desc )
+
+                      FROM
+                       Kunden   
+	                    WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE  KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0  "
+
+            If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' "
+
+
+            SQL.doSQL(sqlStr, "FMZOLL")
+
             Return True
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)