CBAM, VERAG CustomsDec

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb

@@ -33,7 +33,6 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
         json.Load(resp.BodyStr)
 
         Dim r As New cCBAM_CnCode_Response With {.success = json.BoolOf("success")}
-
         If r.success Then
             r.data = New List(Of cCBAM_CnCode)
             Dim a = json.ArrayOf("data")
@@ -51,6 +50,27 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
         Return r
     End Function
 
+
+    Public Function insertinto_Greendeal_CBAM_Trn(cCBAM_CnCode_Response As cCBAM_CnCode_Response) As Boolean
+
+        VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.DELETE_ALL()
+
+        For Each CN In cCBAM_CnCode_Response.data
+            Dim CBAM As New VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn
+
+
+            CBAM.trnPattern = CN.cn_code & "%"
+            CBAM.sektor = ""
+            CBAM.ware = CN.cn_description
+            CBAM.is_exclusion = False
+            CBAM.is_active = True
+            CBAM.start_date = "01.10.2023"
+            CBAM.end_date = Nothing
+            CBAM.SAVE()
+        Next
+        Return True
+    End Function
+
     ' ------------------------------------------------------------------------
     ' GET /carbon-cost/cn-code-defaults
     ' ------------------------------------------------------------------------