Kundensicherheit, CustomsDeclaration, etc.

VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb

@@ -37,10 +37,10 @@ Public Class cKundenSicherheiten
         LOAD()
     End Sub
 
-    Sub New(sc_kundenNr As String, sc_cbam_quartal As Integer, sc_cbam_jahr As Integer)
+    Sub New(_sc_kundenNr As String, _sc_cbam_quartal As Integer, _sc_cbam_jahr As Integer)
-        sc_kundenNr = sc_kundenNr
+        sc_kundenNr = _sc_kundenNr
-        sc_cbam_quartal = sc_cbam_quartal
+        sc_cbam_quartal = _sc_cbam_quartal
-        sc_cbam_jahr = sc_cbam_jahr
+        sc_cbam_jahr = _sc_cbam_jahr
         LOADCBAM()
     End Sub
 
@@ -119,7 +119,7 @@ Public Class cKundenSicherheiten
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblKundenSicherheiten WHERE sc_kundenNr=@sc_kundenNr and sc_cbam_quartal = @sc_cbam_quartal and sc_cbam_jahr = @sc_cbamsc_cbam_jahr_year", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblKundenSicherheiten WHERE sc_kundenNr=@sc_kundenNr and sc_cbam_quartal = @sc_cbam_quartal and sc_cbam_jahr = @sc_cbam_jahr", conn)
                     cmd.Parameters.AddWithValue("@sc_kundenNr", sc_kundenNr)
                     cmd.Parameters.AddWithValue("@sc_cbam_quartal", sc_cbam_quartal)
                     cmd.Parameters.AddWithValue("@sc_cbam_jahr", sc_cbam_jahr)

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)
+            Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
-        If Kunde_Sicherheit.hasEntry Then
+            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