From 4e8ddb8afc213a75f6a5c03744c2264b62fda6de Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 22 Jul 2026 17:15:40 +0200
Subject: [PATCH] abrechungsmaske, etc.

---
 initATLASAufschubkonten/cWorker_Verwahrung.vb | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index a42e4e2..5f16f31 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -941,6 +941,17 @@ Anzeige:
 
                                         End If
                                         Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100), 2)
+
+                                        'Prüfung einbauen, ob es in dieser Gestellung bereits zu dieser ATB-Nr dieser Sicherheitsbetrag eingefügt wurde, dann einfach 0 einfügen-
+                                        If True Then
+                                            If dtGesamtsicherheit.AsEnumerable().Any(Function(r) r.Field(Of String)("gs_MRNNr") = MRN_SUMA AndAlso r.Field(Of Double)("gsp_Warenwert") = WarenwertEUR) Then
+                                                Sicherheitsbetrag = 0
+                                                WarenwertEUR = 0
+                                            End If
+
+                                        End If
+
+
                                     End If
                                     End If