From b1f152c9f3570116dfef96e1f24016de71f730d6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 6 Nov 2026 11:02:06 +0100 Subject: [PATCH] Sicherheiten -> CBAM --- .../cVERAG_CustomsDeclarations.vb | 22 ++++++++++--------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb index 64b02e95..516f1749 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb @@ -601,8 +601,8 @@ Public Class cVERAG_CustomsDeclarations Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(vertretenerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000 Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0) - Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "") - createOrUpdateKundenSicherheitseintrag(KD_IND, CountryOfOrigin, vertretenerEORI, quarter, dateCBAM.Year) + Dim ImportCountry As String = If(za_CountryImport, "") + createOrUpdateKundenSicherheitseintrag(KD, ImportCountry, vertretenerEORI, quarter, dateCBAM.Year) 'Prüft, ob Vertrag vorliegt: @@ -686,9 +686,9 @@ Public Class cVERAG_CustomsDeclarations Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now) - Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "") + Dim ImportCountry As String = If(za_CountryImport, "") Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0) - createOrUpdateKundenSicherheitseintrag(KD, CountryOfOrigin, importerEORI, quarter, dateCBAM.Year) + createOrUpdateKundenSicherheitseintrag(KD, ImportCountry, importerEORI, quarter, dateCBAM.Year) Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000 Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year)) / 1000 @@ -818,7 +818,7 @@ Public Class cVERAG_CustomsDeclarations Return String.Join(", ", result) End Function - Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, CountryOfOrigin As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer) + Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, ImportCountry As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer) Dim von As Date Dim bis As Date @@ -849,7 +849,7 @@ Public Class cVERAG_CustomsDeclarations Dim EORI_ = {EORI} - Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, CountryOfOrigin, von, bis,, True) + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, ImportCountry, von, bis,, True) Dim grouped = From za In LIST @@ -870,9 +870,6 @@ Public Class cVERAG_CustomsDeclarations } - - - If grouped.Count < 1 Then Return False End If @@ -884,10 +881,15 @@ Public Class cVERAG_CustomsDeclarations For Each r In grouped - cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, r.Rohmasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark) + Dim eigMasse = If(IsNumeric(r.Eigenmasse), r.Eigenmasse / 1000, 0) + cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, eigMasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark) gesamtBetrag += cost Next + If gesamtBetrag > 0 Then + gesamtBetrag *= -1 + End If + If gesamtBetrag <> 0 Then Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)