From 1d81c245e042b1e29d427be4546c6fd9dda2b3d9 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 2 Apr 2026 17:12:12 +0200
Subject: [PATCH] Sicherheiten

---
 VERAG_PROG_ALLGEMEIN/cSicherheiten.vb | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
index 8bd769c2..15634b24 100644
--- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
+++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
@@ -439,4 +439,21 @@ Public Class cSicherheiten
     End Function
 
 
+    Public Shared Function getDifferenz(gs_gsnr As Integer) As Double
+
+        Dim SQL_Query = "SELECT CASE WHEN MAX(CASE WHEN gs.gs_isRundungsdiff = 1 THEN 1 ELSE 0 END) = 1
+                                            THEN 0
+                                            ELSE SUM(gs.gs_sicherheitsbetrag) - SUM(gsp.gsp_sicherheitsbetrag)
+                                            END AS Differenzbetrag
+                            FROM tblGesamtsicherheit gs INNER JOIN tblGesamtsicherheitsPositionen gsp ON gs.gs_gsId = gsp.gsp_gsId WHERE 
+                            gs.gs_gsnr = " & gs_gsnr & " AND gs.gs_dakoyimport = 1 AND gsp.gsp_freitext NOT IN ('DAKOSY-WAITING') GROUP BY gs.gs_gsnr"
+
+        If gs_gsnr > 0 Then
+            Return CDbl((New SQL).getValueTxtBySql(SQL_Query, "AVISO",,, 0))
+        Else
+            Return 0
+        End If
+
+    End Function
+
 End Class