Kundensicherheit, CustomsDeclaration, etc.

VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb

@@ -521,8 +521,6 @@ Public Class cVERAG_CustomsDeclarations
 
     Public Sub checkfreshCBAMWarning()
 
-        'TODO: die CBAM-Kosten pro Quartal berechnen und als "Bankgarantie" in die tblKundenSicherheiten schreiben/aktualisieren (wird aktuell noch händisch gemacht, Fehleranfällig und 
-
         Try
             Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item)
 
@@ -888,25 +886,31 @@ Public Class cVERAG_CustomsDeclarations
             gesamtBetrag += cost
         Next
 
+        If gesamtBetrag > 0 Then
 
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
 
-        Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
-        If Kunde_Sicherheit.hasEntry Then
+            Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
+            If Kunde_Sicherheit.hasEntry Then
+
+                Kunde_Sicherheit.sc_Betrag = gesamtBetrag
+                Kunde_Sicherheit.SAVE()
+            Else
+                Kunde_Sicherheit.sc_Bemerkung = "EUR"
+                Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2") & " EUR"
+                Kunde_Sicherheit.sc_Art = "BANKGARANTIE"
+                Kunde_Sicherheit.sc_Betrag = gesamtBetrag
+                Kunde_Sicherheit.sc_gueltigVon = New Date(2026, 1, 1)
+                Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
+                Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
+                Kunde_Sicherheit.SAVE()
+            End If
+
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
 
-            Kunde_Sicherheit.sc_Betrag = gesamtBetrag
-            KUNDE.SAVE()
-        Else
-            Kunde_Sicherheit.sc_Bemerkung = "EUR"
-            Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear
-            Kunde_Sicherheit.sc_Art = "BANKGARANTIE"
-            Kunde_Sicherheit.sc_Betrag = gesamtBetrag
-            Kunde_Sicherheit.sc_datum = Today()
-            Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
-            KUNDE.SAVE()
         End If
 
 
-
     End Function
 
     Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal