diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb
index a153c10f..1e6f0c0e 100644
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -216,7 +216,10 @@ Public Class frmFormulare
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                     Case "IMEX"
                         MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Checkliste", FormularManagerArten.CBAM_Checkliste))
+                    Case "FRONTOFFICE"
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Checkliste", FormularManagerArten.CBAM_Checkliste))
                     Case "AMBAR"
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Checkliste", FormularManagerArten.CBAM_Checkliste))
                     Case "ATILLA"
                     Case "UNISPED"
                         MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Checkliste", FormularManagerArten.CBAM_Checkliste))
diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb
index c7797fa8..eb730cf9 100644
--- a/SDL/kunden/usrCntlCBAM.Designer.vb
+++ b/SDL/kunden/usrCntlCBAM.Designer.vb
@@ -68,12 +68,19 @@ Partial Class usrCntlCBAM
         Me.Button3 = New System.Windows.Forms.Button()
         Me.lblKafkaCnt = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button4 = New System.Windows.Forms.Button()
+        Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.cbxKosten = New System.Windows.Forms.CheckBox()
@@ -92,31 +99,24 @@ Partial Class usrCntlCBAM
         Me.Label13 = New System.Windows.Forms.Label()
         Me.lblErg_VERAG2 = New System.Windows.Forms.TextBox()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.txtCalc_Defaut_Country = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button7 = New System.Windows.Forms.Button()
+        Me.txtCalc_Defaut_Year = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label15 = New System.Windows.Forms.Label()
+        Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.Label17 = New System.Windows.Forms.Label()
+        Me.txtCalc_Defaut_Weight = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label18 = New System.Windows.Forms.Label()
+        Me.txtCalc_Defaut_KN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.btnVERAGCost = New System.Windows.Forms.Button()
         Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox()
         Me.cbxIndirekt = New System.Windows.Forms.CheckBox()
         Me.cboIndirekt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtCalc_Defaut_Country = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalc_Defaut_Year = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalc_Defaut_Weight = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalc_Defaut_KN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.cbxUNISPED = New System.Windows.Forms.CheckBox()
         Me.cbxIMEX = New System.Windows.Forms.CheckBox()
@@ -126,6 +126,7 @@ Partial Class usrCntlCBAM
         Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button8 = New System.Windows.Forms.Button()
         Me.cntxtAddSdl.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -668,6 +669,30 @@ Partial Class usrCntlCBAM
         Me.Panel1.Size = New System.Drawing.Size(223, 372)
         Me.Panel1.TabIndex = 52
         '
+        'txtBenchmark
+        '
+        Me.txtBenchmark._DateTimeOnly = False
+        Me.txtBenchmark._numbersOnly = True
+        Me.txtBenchmark._numbersOnlyKommastellen = ""
+        Me.txtBenchmark._numbersOnlyTrennzeichen = True
+        Me.txtBenchmark._Prozent = False
+        Me.txtBenchmark._ShortDateNew = False
+        Me.txtBenchmark._ShortDateOnly = False
+        Me.txtBenchmark._TimeOnly = False
+        Me.txtBenchmark._TimeOnly_Seconds = False
+        Me.txtBenchmark._value = ""
+        Me.txtBenchmark._Waehrung = False
+        Me.txtBenchmark._WaehrungZeichen = True
+        Me.txtBenchmark.ForeColor = System.Drawing.Color.Black
+        Me.txtBenchmark.Location = New System.Drawing.Point(73, 82)
+        Me.txtBenchmark.MaxLength = 10
+        Me.txtBenchmark.MaxLineLength = -1
+        Me.txtBenchmark.MaxLines_Warning = ""
+        Me.txtBenchmark.MaxLines_Warning_Label = Nothing
+        Me.txtBenchmark.Name = "txtBenchmark"
+        Me.txtBenchmark.Size = New System.Drawing.Size(147, 20)
+        Me.txtBenchmark.TabIndex = 66
+        '
         'Label12
         '
         Me.Label12.AutoSize = True
@@ -677,6 +702,60 @@ Partial Class usrCntlCBAM
         Me.Label12.TabIndex = 67
         Me.Label12.Text = "(Benchmark)"
         '
+        'txtCalcLand
+        '
+        Me.txtCalcLand._DateTimeOnly = False
+        Me.txtCalcLand._numbersOnly = False
+        Me.txtCalcLand._numbersOnlyKommastellen = ""
+        Me.txtCalcLand._numbersOnlyTrennzeichen = True
+        Me.txtCalcLand._Prozent = False
+        Me.txtCalcLand._ShortDateNew = False
+        Me.txtCalcLand._ShortDateOnly = False
+        Me.txtCalcLand._TimeOnly = False
+        Me.txtCalcLand._TimeOnly_Seconds = False
+        Me.txtCalcLand._value = ""
+        Me.txtCalcLand._Waehrung = False
+        Me.txtCalcLand._WaehrungZeichen = True
+        Me.txtCalcLand.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcLand.Location = New System.Drawing.Point(149, 101)
+        Me.txtCalcLand.MaxLength = 2
+        Me.txtCalcLand.MaxLineLength = -1
+        Me.txtCalcLand.MaxLines_Warning = ""
+        Me.txtCalcLand.MaxLines_Warning_Label = Nothing
+        Me.txtCalcLand.Name = "txtCalcLand"
+        Me.txtCalcLand.Size = New System.Drawing.Size(70, 20)
+        Me.txtCalcLand.TabIndex = 65
+        '
+        'txtCalcErg
+        '
+        Me.txtCalcErg._DateTimeOnly = False
+        Me.txtCalcErg._numbersOnly = False
+        Me.txtCalcErg._numbersOnlyKommastellen = ""
+        Me.txtCalcErg._numbersOnlyTrennzeichen = True
+        Me.txtCalcErg._Prozent = False
+        Me.txtCalcErg._ShortDateNew = False
+        Me.txtCalcErg._ShortDateOnly = False
+        Me.txtCalcErg._TimeOnly = False
+        Me.txtCalcErg._TimeOnly_Seconds = False
+        Me.txtCalcErg._value = ""
+        Me.txtCalcErg._Waehrung = False
+        Me.txtCalcErg._WaehrungZeichen = True
+        Me.txtCalcErg.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtCalcErg.BackColor = System.Drawing.Color.FloralWhite
+        Me.txtCalcErg.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcErg.Location = New System.Drawing.Point(3, 154)
+        Me.txtCalcErg.MaxLength = 3000
+        Me.txtCalcErg.MaxLineLength = -1
+        Me.txtCalcErg.MaxLines_Warning = ""
+        Me.txtCalcErg.MaxLines_Warning_Label = Nothing
+        Me.txtCalcErg.Multiline = True
+        Me.txtCalcErg.Name = "txtCalcErg"
+        Me.txtCalcErg.ReadOnly = True
+        Me.txtCalcErg.Size = New System.Drawing.Size(217, 218)
+        Me.txtCalcErg.TabIndex = 64
+        '
         'Button4
         '
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -687,6 +766,30 @@ Partial Class usrCntlCBAM
         Me.Button4.Text = "Berechnen"
         Me.Button4.UseVisualStyleBackColor = True
         '
+        'txtCalcJahr
+        '
+        Me.txtCalcJahr._DateTimeOnly = False
+        Me.txtCalcJahr._numbersOnly = False
+        Me.txtCalcJahr._numbersOnlyKommastellen = ""
+        Me.txtCalcJahr._numbersOnlyTrennzeichen = True
+        Me.txtCalcJahr._Prozent = False
+        Me.txtCalcJahr._ShortDateNew = False
+        Me.txtCalcJahr._ShortDateOnly = False
+        Me.txtCalcJahr._TimeOnly = False
+        Me.txtCalcJahr._TimeOnly_Seconds = False
+        Me.txtCalcJahr._value = ""
+        Me.txtCalcJahr._Waehrung = False
+        Me.txtCalcJahr._WaehrungZeichen = True
+        Me.txtCalcJahr.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcJahr.Location = New System.Drawing.Point(73, 101)
+        Me.txtCalcJahr.MaxLength = 4
+        Me.txtCalcJahr.MaxLineLength = -1
+        Me.txtCalcJahr.MaxLines_Warning = ""
+        Me.txtCalcJahr.MaxLines_Warning_Label = Nothing
+        Me.txtCalcJahr.Name = "txtCalcJahr"
+        Me.txtCalcJahr.Size = New System.Drawing.Size(70, 20)
+        Me.txtCalcJahr.TabIndex = 60
+        '
         'Label11
         '
         Me.Label11.AutoSize = True
@@ -696,6 +799,30 @@ Partial Class usrCntlCBAM
         Me.Label11.TabIndex = 61
         Me.Label11.Text = "(Jahr)/(Land)"
         '
+        'txtCalcEmission
+        '
+        Me.txtCalcEmission._DateTimeOnly = False
+        Me.txtCalcEmission._numbersOnly = True
+        Me.txtCalcEmission._numbersOnlyKommastellen = ""
+        Me.txtCalcEmission._numbersOnlyTrennzeichen = True
+        Me.txtCalcEmission._Prozent = False
+        Me.txtCalcEmission._ShortDateNew = False
+        Me.txtCalcEmission._ShortDateOnly = False
+        Me.txtCalcEmission._TimeOnly = False
+        Me.txtCalcEmission._TimeOnly_Seconds = False
+        Me.txtCalcEmission._value = ""
+        Me.txtCalcEmission._Waehrung = False
+        Me.txtCalcEmission._WaehrungZeichen = True
+        Me.txtCalcEmission.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcEmission.Location = New System.Drawing.Point(73, 62)
+        Me.txtCalcEmission.MaxLength = 10
+        Me.txtCalcEmission.MaxLineLength = -1
+        Me.txtCalcEmission.MaxLines_Warning = ""
+        Me.txtCalcEmission.MaxLines_Warning_Label = Nothing
+        Me.txtCalcEmission.Name = "txtCalcEmission"
+        Me.txtCalcEmission.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalcEmission.TabIndex = 58
+        '
         'Label10
         '
         Me.Label10.AutoSize = True
@@ -714,6 +841,30 @@ Partial Class usrCntlCBAM
         Me.Label9.TabIndex = 57
         Me.Label9.Text = "Gewicht(to):"
         '
+        'txtCalcGewicht
+        '
+        Me.txtCalcGewicht._DateTimeOnly = False
+        Me.txtCalcGewicht._numbersOnly = True
+        Me.txtCalcGewicht._numbersOnlyKommastellen = ""
+        Me.txtCalcGewicht._numbersOnlyTrennzeichen = True
+        Me.txtCalcGewicht._Prozent = False
+        Me.txtCalcGewicht._ShortDateNew = False
+        Me.txtCalcGewicht._ShortDateOnly = False
+        Me.txtCalcGewicht._TimeOnly = False
+        Me.txtCalcGewicht._TimeOnly_Seconds = False
+        Me.txtCalcGewicht._value = ""
+        Me.txtCalcGewicht._Waehrung = False
+        Me.txtCalcGewicht._WaehrungZeichen = True
+        Me.txtCalcGewicht.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcGewicht.Location = New System.Drawing.Point(73, 42)
+        Me.txtCalcGewicht.MaxLength = 10
+        Me.txtCalcGewicht.MaxLineLength = -1
+        Me.txtCalcGewicht.MaxLines_Warning = ""
+        Me.txtCalcGewicht.MaxLines_Warning_Label = Nothing
+        Me.txtCalcGewicht.Name = "txtCalcGewicht"
+        Me.txtCalcGewicht.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalcGewicht.TabIndex = 56
+        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -723,6 +874,30 @@ Partial Class usrCntlCBAM
         Me.Label8.TabIndex = 55
         Me.Label8.Text = "Tarif (8 St.)"
         '
+        'txtCalcKN8
+        '
+        Me.txtCalcKN8._DateTimeOnly = False
+        Me.txtCalcKN8._numbersOnly = False
+        Me.txtCalcKN8._numbersOnlyKommastellen = ""
+        Me.txtCalcKN8._numbersOnlyTrennzeichen = True
+        Me.txtCalcKN8._Prozent = False
+        Me.txtCalcKN8._ShortDateNew = False
+        Me.txtCalcKN8._ShortDateOnly = False
+        Me.txtCalcKN8._TimeOnly = False
+        Me.txtCalcKN8._TimeOnly_Seconds = False
+        Me.txtCalcKN8._value = ""
+        Me.txtCalcKN8._Waehrung = False
+        Me.txtCalcKN8._WaehrungZeichen = True
+        Me.txtCalcKN8.ForeColor = System.Drawing.Color.Black
+        Me.txtCalcKN8.Location = New System.Drawing.Point(73, 22)
+        Me.txtCalcKN8.MaxLength = 8
+        Me.txtCalcKN8.MaxLineLength = -1
+        Me.txtCalcKN8.MaxLines_Warning = ""
+        Me.txtCalcKN8.MaxLines_Warning_Label = Nothing
+        Me.txtCalcKN8.Name = "txtCalcKN8"
+        Me.txtCalcKN8.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalcKN8.TabIndex = 54
+        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -949,6 +1124,60 @@ Partial Class usrCntlCBAM
         Me.Panel2.Size = New System.Drawing.Size(223, 150)
         Me.Panel2.TabIndex = 68
         '
+        'txtCalc_Defaut_Country
+        '
+        Me.txtCalc_Defaut_Country._DateTimeOnly = False
+        Me.txtCalc_Defaut_Country._numbersOnly = False
+        Me.txtCalc_Defaut_Country._numbersOnlyKommastellen = ""
+        Me.txtCalc_Defaut_Country._numbersOnlyTrennzeichen = True
+        Me.txtCalc_Defaut_Country._Prozent = False
+        Me.txtCalc_Defaut_Country._ShortDateNew = False
+        Me.txtCalc_Defaut_Country._ShortDateOnly = False
+        Me.txtCalc_Defaut_Country._TimeOnly = False
+        Me.txtCalc_Defaut_Country._TimeOnly_Seconds = False
+        Me.txtCalc_Defaut_Country._value = ""
+        Me.txtCalc_Defaut_Country._Waehrung = False
+        Me.txtCalc_Defaut_Country._WaehrungZeichen = True
+        Me.txtCalc_Defaut_Country.ForeColor = System.Drawing.Color.Black
+        Me.txtCalc_Defaut_Country.Location = New System.Drawing.Point(149, 83)
+        Me.txtCalc_Defaut_Country.MaxLength = 2
+        Me.txtCalc_Defaut_Country.MaxLineLength = -1
+        Me.txtCalc_Defaut_Country.MaxLines_Warning = ""
+        Me.txtCalc_Defaut_Country.MaxLines_Warning_Label = Nothing
+        Me.txtCalc_Defaut_Country.Name = "txtCalc_Defaut_Country"
+        Me.txtCalc_Defaut_Country.Size = New System.Drawing.Size(70, 20)
+        Me.txtCalc_Defaut_Country.TabIndex = 65
+        '
+        'MyTextBox3
+        '
+        Me.MyTextBox3._DateTimeOnly = False
+        Me.MyTextBox3._numbersOnly = False
+        Me.MyTextBox3._numbersOnlyKommastellen = ""
+        Me.MyTextBox3._numbersOnlyTrennzeichen = True
+        Me.MyTextBox3._Prozent = False
+        Me.MyTextBox3._ShortDateNew = False
+        Me.MyTextBox3._ShortDateOnly = False
+        Me.MyTextBox3._TimeOnly = False
+        Me.MyTextBox3._TimeOnly_Seconds = False
+        Me.MyTextBox3._value = ""
+        Me.MyTextBox3._Waehrung = False
+        Me.MyTextBox3._WaehrungZeichen = True
+        Me.MyTextBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox3.BackColor = System.Drawing.Color.FloralWhite
+        Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox3.Location = New System.Drawing.Point(3, 154)
+        Me.MyTextBox3.MaxLength = 3000
+        Me.MyTextBox3.MaxLineLength = -1
+        Me.MyTextBox3.MaxLines_Warning = ""
+        Me.MyTextBox3.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox3.Multiline = True
+        Me.MyTextBox3.Name = "MyTextBox3"
+        Me.MyTextBox3.ReadOnly = True
+        Me.MyTextBox3.Size = New System.Drawing.Size(217, 0)
+        Me.MyTextBox3.TabIndex = 64
+        '
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -959,6 +1188,30 @@ Partial Class usrCntlCBAM
         Me.Button7.Text = "Berechnen"
         Me.Button7.UseVisualStyleBackColor = True
         '
+        'txtCalc_Defaut_Year
+        '
+        Me.txtCalc_Defaut_Year._DateTimeOnly = False
+        Me.txtCalc_Defaut_Year._numbersOnly = False
+        Me.txtCalc_Defaut_Year._numbersOnlyKommastellen = ""
+        Me.txtCalc_Defaut_Year._numbersOnlyTrennzeichen = True
+        Me.txtCalc_Defaut_Year._Prozent = False
+        Me.txtCalc_Defaut_Year._ShortDateNew = False
+        Me.txtCalc_Defaut_Year._ShortDateOnly = False
+        Me.txtCalc_Defaut_Year._TimeOnly = False
+        Me.txtCalc_Defaut_Year._TimeOnly_Seconds = False
+        Me.txtCalc_Defaut_Year._value = ""
+        Me.txtCalc_Defaut_Year._Waehrung = False
+        Me.txtCalc_Defaut_Year._WaehrungZeichen = True
+        Me.txtCalc_Defaut_Year.ForeColor = System.Drawing.Color.Black
+        Me.txtCalc_Defaut_Year.Location = New System.Drawing.Point(73, 83)
+        Me.txtCalc_Defaut_Year.MaxLength = 4
+        Me.txtCalc_Defaut_Year.MaxLineLength = -1
+        Me.txtCalc_Defaut_Year.MaxLines_Warning = ""
+        Me.txtCalc_Defaut_Year.MaxLines_Warning_Label = Nothing
+        Me.txtCalc_Defaut_Year.Name = "txtCalc_Defaut_Year"
+        Me.txtCalc_Defaut_Year.Size = New System.Drawing.Size(70, 20)
+        Me.txtCalc_Defaut_Year.TabIndex = 60
+        '
         'Label15
         '
         Me.Label15.AutoSize = True
@@ -968,6 +1221,30 @@ Partial Class usrCntlCBAM
         Me.Label15.TabIndex = 61
         Me.Label15.Text = "(Jahr)/(Land)"
         '
+        'txtCalc_Defaut_CertPrice
+        '
+        Me.txtCalc_Defaut_CertPrice._DateTimeOnly = False
+        Me.txtCalc_Defaut_CertPrice._numbersOnly = True
+        Me.txtCalc_Defaut_CertPrice._numbersOnlyKommastellen = ""
+        Me.txtCalc_Defaut_CertPrice._numbersOnlyTrennzeichen = True
+        Me.txtCalc_Defaut_CertPrice._Prozent = False
+        Me.txtCalc_Defaut_CertPrice._ShortDateNew = False
+        Me.txtCalc_Defaut_CertPrice._ShortDateOnly = False
+        Me.txtCalc_Defaut_CertPrice._TimeOnly = False
+        Me.txtCalc_Defaut_CertPrice._TimeOnly_Seconds = False
+        Me.txtCalc_Defaut_CertPrice._value = ""
+        Me.txtCalc_Defaut_CertPrice._Waehrung = False
+        Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True
+        Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red
+        Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(73, 62)
+        Me.txtCalc_Defaut_CertPrice.MaxLength = 10
+        Me.txtCalc_Defaut_CertPrice.MaxLineLength = -1
+        Me.txtCalc_Defaut_CertPrice.MaxLines_Warning = ""
+        Me.txtCalc_Defaut_CertPrice.MaxLines_Warning_Label = Nothing
+        Me.txtCalc_Defaut_CertPrice.Name = "txtCalc_Defaut_CertPrice"
+        Me.txtCalc_Defaut_CertPrice.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalc_Defaut_CertPrice.TabIndex = 58
+        '
         'Label16
         '
         Me.Label16.AutoSize = True
@@ -986,6 +1263,30 @@ Partial Class usrCntlCBAM
         Me.Label17.TabIndex = 57
         Me.Label17.Text = "Gewicht(to):"
         '
+        'txtCalc_Defaut_Weight
+        '
+        Me.txtCalc_Defaut_Weight._DateTimeOnly = False
+        Me.txtCalc_Defaut_Weight._numbersOnly = True
+        Me.txtCalc_Defaut_Weight._numbersOnlyKommastellen = ""
+        Me.txtCalc_Defaut_Weight._numbersOnlyTrennzeichen = True
+        Me.txtCalc_Defaut_Weight._Prozent = False
+        Me.txtCalc_Defaut_Weight._ShortDateNew = False
+        Me.txtCalc_Defaut_Weight._ShortDateOnly = False
+        Me.txtCalc_Defaut_Weight._TimeOnly = False
+        Me.txtCalc_Defaut_Weight._TimeOnly_Seconds = False
+        Me.txtCalc_Defaut_Weight._value = ""
+        Me.txtCalc_Defaut_Weight._Waehrung = False
+        Me.txtCalc_Defaut_Weight._WaehrungZeichen = True
+        Me.txtCalc_Defaut_Weight.ForeColor = System.Drawing.Color.Black
+        Me.txtCalc_Defaut_Weight.Location = New System.Drawing.Point(73, 42)
+        Me.txtCalc_Defaut_Weight.MaxLength = 10
+        Me.txtCalc_Defaut_Weight.MaxLineLength = -1
+        Me.txtCalc_Defaut_Weight.MaxLines_Warning = ""
+        Me.txtCalc_Defaut_Weight.MaxLines_Warning_Label = Nothing
+        Me.txtCalc_Defaut_Weight.Name = "txtCalc_Defaut_Weight"
+        Me.txtCalc_Defaut_Weight.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalc_Defaut_Weight.TabIndex = 56
+        '
         'Label18
         '
         Me.Label18.AutoSize = True
@@ -995,6 +1296,30 @@ Partial Class usrCntlCBAM
         Me.Label18.TabIndex = 55
         Me.Label18.Text = "Tarif (8 St.)"
         '
+        'txtCalc_Defaut_KN8
+        '
+        Me.txtCalc_Defaut_KN8._DateTimeOnly = False
+        Me.txtCalc_Defaut_KN8._numbersOnly = False
+        Me.txtCalc_Defaut_KN8._numbersOnlyKommastellen = ""
+        Me.txtCalc_Defaut_KN8._numbersOnlyTrennzeichen = True
+        Me.txtCalc_Defaut_KN8._Prozent = False
+        Me.txtCalc_Defaut_KN8._ShortDateNew = False
+        Me.txtCalc_Defaut_KN8._ShortDateOnly = False
+        Me.txtCalc_Defaut_KN8._TimeOnly = False
+        Me.txtCalc_Defaut_KN8._TimeOnly_Seconds = False
+        Me.txtCalc_Defaut_KN8._value = ""
+        Me.txtCalc_Defaut_KN8._Waehrung = False
+        Me.txtCalc_Defaut_KN8._WaehrungZeichen = True
+        Me.txtCalc_Defaut_KN8.ForeColor = System.Drawing.Color.Black
+        Me.txtCalc_Defaut_KN8.Location = New System.Drawing.Point(73, 22)
+        Me.txtCalc_Defaut_KN8.MaxLength = 8
+        Me.txtCalc_Defaut_KN8.MaxLineLength = -1
+        Me.txtCalc_Defaut_KN8.MaxLines_Warning = ""
+        Me.txtCalc_Defaut_KN8.MaxLines_Warning_Label = Nothing
+        Me.txtCalc_Defaut_KN8.Name = "txtCalc_Defaut_KN8"
+        Me.txtCalc_Defaut_KN8.Size = New System.Drawing.Size(147, 20)
+        Me.txtCalc_Defaut_KN8.TabIndex = 54
+        '
         'Label19
         '
         Me.Label19.AutoSize = True
@@ -1064,156 +1389,6 @@ Partial Class usrCntlCBAM
         Me.cboIndirekt.TabIndex = 71
         Me.cboIndirekt.Visible = False
         '
-        'txtCalc_Defaut_Country
-        '
-        Me.txtCalc_Defaut_Country._DateTimeOnly = False
-        Me.txtCalc_Defaut_Country._numbersOnly = False
-        Me.txtCalc_Defaut_Country._numbersOnlyKommastellen = ""
-        Me.txtCalc_Defaut_Country._numbersOnlyTrennzeichen = True
-        Me.txtCalc_Defaut_Country._Prozent = False
-        Me.txtCalc_Defaut_Country._ShortDateNew = False
-        Me.txtCalc_Defaut_Country._ShortDateOnly = False
-        Me.txtCalc_Defaut_Country._TimeOnly = False
-        Me.txtCalc_Defaut_Country._TimeOnly_Seconds = False
-        Me.txtCalc_Defaut_Country._value = ""
-        Me.txtCalc_Defaut_Country._Waehrung = False
-        Me.txtCalc_Defaut_Country._WaehrungZeichen = True
-        Me.txtCalc_Defaut_Country.ForeColor = System.Drawing.Color.Black
-        Me.txtCalc_Defaut_Country.Location = New System.Drawing.Point(149, 83)
-        Me.txtCalc_Defaut_Country.MaxLength = 2
-        Me.txtCalc_Defaut_Country.MaxLineLength = -1
-        Me.txtCalc_Defaut_Country.MaxLines_Warning = ""
-        Me.txtCalc_Defaut_Country.MaxLines_Warning_Label = Nothing
-        Me.txtCalc_Defaut_Country.Name = "txtCalc_Defaut_Country"
-        Me.txtCalc_Defaut_Country.Size = New System.Drawing.Size(70, 20)
-        Me.txtCalc_Defaut_Country.TabIndex = 65
-        '
-        'MyTextBox3
-        '
-        Me.MyTextBox3._DateTimeOnly = False
-        Me.MyTextBox3._numbersOnly = False
-        Me.MyTextBox3._numbersOnlyKommastellen = ""
-        Me.MyTextBox3._numbersOnlyTrennzeichen = True
-        Me.MyTextBox3._Prozent = False
-        Me.MyTextBox3._ShortDateNew = False
-        Me.MyTextBox3._ShortDateOnly = False
-        Me.MyTextBox3._TimeOnly = False
-        Me.MyTextBox3._TimeOnly_Seconds = False
-        Me.MyTextBox3._value = ""
-        Me.MyTextBox3._Waehrung = False
-        Me.MyTextBox3._WaehrungZeichen = True
-        Me.MyTextBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyTextBox3.BackColor = System.Drawing.Color.FloralWhite
-        Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox3.Location = New System.Drawing.Point(3, 154)
-        Me.MyTextBox3.MaxLength = 3000
-        Me.MyTextBox3.MaxLineLength = -1
-        Me.MyTextBox3.MaxLines_Warning = ""
-        Me.MyTextBox3.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox3.Multiline = True
-        Me.MyTextBox3.Name = "MyTextBox3"
-        Me.MyTextBox3.ReadOnly = True
-        Me.MyTextBox3.Size = New System.Drawing.Size(217, 0)
-        Me.MyTextBox3.TabIndex = 64
-        '
-        'txtCalc_Defaut_Year
-        '
-        Me.txtCalc_Defaut_Year._DateTimeOnly = False
-        Me.txtCalc_Defaut_Year._numbersOnly = False
-        Me.txtCalc_Defaut_Year._numbersOnlyKommastellen = ""
-        Me.txtCalc_Defaut_Year._numbersOnlyTrennzeichen = True
-        Me.txtCalc_Defaut_Year._Prozent = False
-        Me.txtCalc_Defaut_Year._ShortDateNew = False
-        Me.txtCalc_Defaut_Year._ShortDateOnly = False
-        Me.txtCalc_Defaut_Year._TimeOnly = False
-        Me.txtCalc_Defaut_Year._TimeOnly_Seconds = False
-        Me.txtCalc_Defaut_Year._value = ""
-        Me.txtCalc_Defaut_Year._Waehrung = False
-        Me.txtCalc_Defaut_Year._WaehrungZeichen = True
-        Me.txtCalc_Defaut_Year.ForeColor = System.Drawing.Color.Black
-        Me.txtCalc_Defaut_Year.Location = New System.Drawing.Point(73, 83)
-        Me.txtCalc_Defaut_Year.MaxLength = 4
-        Me.txtCalc_Defaut_Year.MaxLineLength = -1
-        Me.txtCalc_Defaut_Year.MaxLines_Warning = ""
-        Me.txtCalc_Defaut_Year.MaxLines_Warning_Label = Nothing
-        Me.txtCalc_Defaut_Year.Name = "txtCalc_Defaut_Year"
-        Me.txtCalc_Defaut_Year.Size = New System.Drawing.Size(70, 20)
-        Me.txtCalc_Defaut_Year.TabIndex = 60
-        '
-        'txtCalc_Defaut_CertPrice
-        '
-        Me.txtCalc_Defaut_CertPrice._DateTimeOnly = False
-        Me.txtCalc_Defaut_CertPrice._numbersOnly = True
-        Me.txtCalc_Defaut_CertPrice._numbersOnlyKommastellen = ""
-        Me.txtCalc_Defaut_CertPrice._numbersOnlyTrennzeichen = True
-        Me.txtCalc_Defaut_CertPrice._Prozent = False
-        Me.txtCalc_Defaut_CertPrice._ShortDateNew = False
-        Me.txtCalc_Defaut_CertPrice._ShortDateOnly = False
-        Me.txtCalc_Defaut_CertPrice._TimeOnly = False
-        Me.txtCalc_Defaut_CertPrice._TimeOnly_Seconds = False
-        Me.txtCalc_Defaut_CertPrice._value = ""
-        Me.txtCalc_Defaut_CertPrice._Waehrung = False
-        Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True
-        Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red
-        Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(73, 62)
-        Me.txtCalc_Defaut_CertPrice.MaxLength = 10
-        Me.txtCalc_Defaut_CertPrice.MaxLineLength = -1
-        Me.txtCalc_Defaut_CertPrice.MaxLines_Warning = ""
-        Me.txtCalc_Defaut_CertPrice.MaxLines_Warning_Label = Nothing
-        Me.txtCalc_Defaut_CertPrice.Name = "txtCalc_Defaut_CertPrice"
-        Me.txtCalc_Defaut_CertPrice.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalc_Defaut_CertPrice.TabIndex = 58
-        '
-        'txtCalc_Defaut_Weight
-        '
-        Me.txtCalc_Defaut_Weight._DateTimeOnly = False
-        Me.txtCalc_Defaut_Weight._numbersOnly = True
-        Me.txtCalc_Defaut_Weight._numbersOnlyKommastellen = ""
-        Me.txtCalc_Defaut_Weight._numbersOnlyTrennzeichen = True
-        Me.txtCalc_Defaut_Weight._Prozent = False
-        Me.txtCalc_Defaut_Weight._ShortDateNew = False
-        Me.txtCalc_Defaut_Weight._ShortDateOnly = False
-        Me.txtCalc_Defaut_Weight._TimeOnly = False
-        Me.txtCalc_Defaut_Weight._TimeOnly_Seconds = False
-        Me.txtCalc_Defaut_Weight._value = ""
-        Me.txtCalc_Defaut_Weight._Waehrung = False
-        Me.txtCalc_Defaut_Weight._WaehrungZeichen = True
-        Me.txtCalc_Defaut_Weight.ForeColor = System.Drawing.Color.Black
-        Me.txtCalc_Defaut_Weight.Location = New System.Drawing.Point(73, 42)
-        Me.txtCalc_Defaut_Weight.MaxLength = 10
-        Me.txtCalc_Defaut_Weight.MaxLineLength = -1
-        Me.txtCalc_Defaut_Weight.MaxLines_Warning = ""
-        Me.txtCalc_Defaut_Weight.MaxLines_Warning_Label = Nothing
-        Me.txtCalc_Defaut_Weight.Name = "txtCalc_Defaut_Weight"
-        Me.txtCalc_Defaut_Weight.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalc_Defaut_Weight.TabIndex = 56
-        '
-        'txtCalc_Defaut_KN8
-        '
-        Me.txtCalc_Defaut_KN8._DateTimeOnly = False
-        Me.txtCalc_Defaut_KN8._numbersOnly = False
-        Me.txtCalc_Defaut_KN8._numbersOnlyKommastellen = ""
-        Me.txtCalc_Defaut_KN8._numbersOnlyTrennzeichen = True
-        Me.txtCalc_Defaut_KN8._Prozent = False
-        Me.txtCalc_Defaut_KN8._ShortDateNew = False
-        Me.txtCalc_Defaut_KN8._ShortDateOnly = False
-        Me.txtCalc_Defaut_KN8._TimeOnly = False
-        Me.txtCalc_Defaut_KN8._TimeOnly_Seconds = False
-        Me.txtCalc_Defaut_KN8._value = ""
-        Me.txtCalc_Defaut_KN8._Waehrung = False
-        Me.txtCalc_Defaut_KN8._WaehrungZeichen = True
-        Me.txtCalc_Defaut_KN8.ForeColor = System.Drawing.Color.Black
-        Me.txtCalc_Defaut_KN8.Location = New System.Drawing.Point(73, 22)
-        Me.txtCalc_Defaut_KN8.MaxLength = 8
-        Me.txtCalc_Defaut_KN8.MaxLineLength = -1
-        Me.txtCalc_Defaut_KN8.MaxLines_Warning = ""
-        Me.txtCalc_Defaut_KN8.MaxLines_Warning_Label = Nothing
-        Me.txtCalc_Defaut_KN8.Name = "txtCalc_Defaut_KN8"
-        Me.txtCalc_Defaut_KN8.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalc_Defaut_KN8.TabIndex = 54
-        '
         'cbo_VERAG_ImpLand
         '
         Me.cbo_VERAG_ImpLand._allowedValuesFreiText = Nothing
@@ -1225,180 +1400,6 @@ Partial Class usrCntlCBAM
         Me.cbo_VERAG_ImpLand.Size = New System.Drawing.Size(168, 21)
         Me.cbo_VERAG_ImpLand.TabIndex = 66
         '
-        'txtBenchmark
-        '
-        Me.txtBenchmark._DateTimeOnly = False
-        Me.txtBenchmark._numbersOnly = True
-        Me.txtBenchmark._numbersOnlyKommastellen = ""
-        Me.txtBenchmark._numbersOnlyTrennzeichen = True
-        Me.txtBenchmark._Prozent = False
-        Me.txtBenchmark._ShortDateNew = False
-        Me.txtBenchmark._ShortDateOnly = False
-        Me.txtBenchmark._TimeOnly = False
-        Me.txtBenchmark._TimeOnly_Seconds = False
-        Me.txtBenchmark._value = ""
-        Me.txtBenchmark._Waehrung = False
-        Me.txtBenchmark._WaehrungZeichen = True
-        Me.txtBenchmark.ForeColor = System.Drawing.Color.Black
-        Me.txtBenchmark.Location = New System.Drawing.Point(73, 82)
-        Me.txtBenchmark.MaxLength = 10
-        Me.txtBenchmark.MaxLineLength = -1
-        Me.txtBenchmark.MaxLines_Warning = ""
-        Me.txtBenchmark.MaxLines_Warning_Label = Nothing
-        Me.txtBenchmark.Name = "txtBenchmark"
-        Me.txtBenchmark.Size = New System.Drawing.Size(147, 20)
-        Me.txtBenchmark.TabIndex = 66
-        '
-        'txtCalcLand
-        '
-        Me.txtCalcLand._DateTimeOnly = False
-        Me.txtCalcLand._numbersOnly = False
-        Me.txtCalcLand._numbersOnlyKommastellen = ""
-        Me.txtCalcLand._numbersOnlyTrennzeichen = True
-        Me.txtCalcLand._Prozent = False
-        Me.txtCalcLand._ShortDateNew = False
-        Me.txtCalcLand._ShortDateOnly = False
-        Me.txtCalcLand._TimeOnly = False
-        Me.txtCalcLand._TimeOnly_Seconds = False
-        Me.txtCalcLand._value = ""
-        Me.txtCalcLand._Waehrung = False
-        Me.txtCalcLand._WaehrungZeichen = True
-        Me.txtCalcLand.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcLand.Location = New System.Drawing.Point(149, 101)
-        Me.txtCalcLand.MaxLength = 2
-        Me.txtCalcLand.MaxLineLength = -1
-        Me.txtCalcLand.MaxLines_Warning = ""
-        Me.txtCalcLand.MaxLines_Warning_Label = Nothing
-        Me.txtCalcLand.Name = "txtCalcLand"
-        Me.txtCalcLand.Size = New System.Drawing.Size(70, 20)
-        Me.txtCalcLand.TabIndex = 65
-        '
-        'txtCalcErg
-        '
-        Me.txtCalcErg._DateTimeOnly = False
-        Me.txtCalcErg._numbersOnly = False
-        Me.txtCalcErg._numbersOnlyKommastellen = ""
-        Me.txtCalcErg._numbersOnlyTrennzeichen = True
-        Me.txtCalcErg._Prozent = False
-        Me.txtCalcErg._ShortDateNew = False
-        Me.txtCalcErg._ShortDateOnly = False
-        Me.txtCalcErg._TimeOnly = False
-        Me.txtCalcErg._TimeOnly_Seconds = False
-        Me.txtCalcErg._value = ""
-        Me.txtCalcErg._Waehrung = False
-        Me.txtCalcErg._WaehrungZeichen = True
-        Me.txtCalcErg.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtCalcErg.BackColor = System.Drawing.Color.FloralWhite
-        Me.txtCalcErg.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcErg.Location = New System.Drawing.Point(3, 154)
-        Me.txtCalcErg.MaxLength = 3000
-        Me.txtCalcErg.MaxLineLength = -1
-        Me.txtCalcErg.MaxLines_Warning = ""
-        Me.txtCalcErg.MaxLines_Warning_Label = Nothing
-        Me.txtCalcErg.Multiline = True
-        Me.txtCalcErg.Name = "txtCalcErg"
-        Me.txtCalcErg.ReadOnly = True
-        Me.txtCalcErg.Size = New System.Drawing.Size(217, 218)
-        Me.txtCalcErg.TabIndex = 64
-        '
-        'txtCalcJahr
-        '
-        Me.txtCalcJahr._DateTimeOnly = False
-        Me.txtCalcJahr._numbersOnly = False
-        Me.txtCalcJahr._numbersOnlyKommastellen = ""
-        Me.txtCalcJahr._numbersOnlyTrennzeichen = True
-        Me.txtCalcJahr._Prozent = False
-        Me.txtCalcJahr._ShortDateNew = False
-        Me.txtCalcJahr._ShortDateOnly = False
-        Me.txtCalcJahr._TimeOnly = False
-        Me.txtCalcJahr._TimeOnly_Seconds = False
-        Me.txtCalcJahr._value = ""
-        Me.txtCalcJahr._Waehrung = False
-        Me.txtCalcJahr._WaehrungZeichen = True
-        Me.txtCalcJahr.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcJahr.Location = New System.Drawing.Point(73, 101)
-        Me.txtCalcJahr.MaxLength = 4
-        Me.txtCalcJahr.MaxLineLength = -1
-        Me.txtCalcJahr.MaxLines_Warning = ""
-        Me.txtCalcJahr.MaxLines_Warning_Label = Nothing
-        Me.txtCalcJahr.Name = "txtCalcJahr"
-        Me.txtCalcJahr.Size = New System.Drawing.Size(70, 20)
-        Me.txtCalcJahr.TabIndex = 60
-        '
-        'txtCalcEmission
-        '
-        Me.txtCalcEmission._DateTimeOnly = False
-        Me.txtCalcEmission._numbersOnly = True
-        Me.txtCalcEmission._numbersOnlyKommastellen = ""
-        Me.txtCalcEmission._numbersOnlyTrennzeichen = True
-        Me.txtCalcEmission._Prozent = False
-        Me.txtCalcEmission._ShortDateNew = False
-        Me.txtCalcEmission._ShortDateOnly = False
-        Me.txtCalcEmission._TimeOnly = False
-        Me.txtCalcEmission._TimeOnly_Seconds = False
-        Me.txtCalcEmission._value = ""
-        Me.txtCalcEmission._Waehrung = False
-        Me.txtCalcEmission._WaehrungZeichen = True
-        Me.txtCalcEmission.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcEmission.Location = New System.Drawing.Point(73, 62)
-        Me.txtCalcEmission.MaxLength = 10
-        Me.txtCalcEmission.MaxLineLength = -1
-        Me.txtCalcEmission.MaxLines_Warning = ""
-        Me.txtCalcEmission.MaxLines_Warning_Label = Nothing
-        Me.txtCalcEmission.Name = "txtCalcEmission"
-        Me.txtCalcEmission.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalcEmission.TabIndex = 58
-        '
-        'txtCalcGewicht
-        '
-        Me.txtCalcGewicht._DateTimeOnly = False
-        Me.txtCalcGewicht._numbersOnly = True
-        Me.txtCalcGewicht._numbersOnlyKommastellen = ""
-        Me.txtCalcGewicht._numbersOnlyTrennzeichen = True
-        Me.txtCalcGewicht._Prozent = False
-        Me.txtCalcGewicht._ShortDateNew = False
-        Me.txtCalcGewicht._ShortDateOnly = False
-        Me.txtCalcGewicht._TimeOnly = False
-        Me.txtCalcGewicht._TimeOnly_Seconds = False
-        Me.txtCalcGewicht._value = ""
-        Me.txtCalcGewicht._Waehrung = False
-        Me.txtCalcGewicht._WaehrungZeichen = True
-        Me.txtCalcGewicht.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcGewicht.Location = New System.Drawing.Point(73, 42)
-        Me.txtCalcGewicht.MaxLength = 10
-        Me.txtCalcGewicht.MaxLineLength = -1
-        Me.txtCalcGewicht.MaxLines_Warning = ""
-        Me.txtCalcGewicht.MaxLines_Warning_Label = Nothing
-        Me.txtCalcGewicht.Name = "txtCalcGewicht"
-        Me.txtCalcGewicht.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalcGewicht.TabIndex = 56
-        '
-        'txtCalcKN8
-        '
-        Me.txtCalcKN8._DateTimeOnly = False
-        Me.txtCalcKN8._numbersOnly = False
-        Me.txtCalcKN8._numbersOnlyKommastellen = ""
-        Me.txtCalcKN8._numbersOnlyTrennzeichen = True
-        Me.txtCalcKN8._Prozent = False
-        Me.txtCalcKN8._ShortDateNew = False
-        Me.txtCalcKN8._ShortDateOnly = False
-        Me.txtCalcKN8._TimeOnly = False
-        Me.txtCalcKN8._TimeOnly_Seconds = False
-        Me.txtCalcKN8._value = ""
-        Me.txtCalcKN8._Waehrung = False
-        Me.txtCalcKN8._WaehrungZeichen = True
-        Me.txtCalcKN8.ForeColor = System.Drawing.Color.Black
-        Me.txtCalcKN8.Location = New System.Drawing.Point(73, 22)
-        Me.txtCalcKN8.MaxLength = 8
-        Me.txtCalcKN8.MaxLineLength = -1
-        Me.txtCalcKN8.MaxLines_Warning = ""
-        Me.txtCalcKN8.MaxLines_Warning_Label = Nothing
-        Me.txtCalcKN8.Name = "txtCalcKN8"
-        Me.txtCalcKN8.Size = New System.Drawing.Size(147, 20)
-        Me.txtCalcKN8.TabIndex = 54
-        '
         'MyPanel1
         '
         Me.MyPanel1.Controls.Add(Me.cbxUNISPED)
@@ -1543,11 +1544,23 @@ Partial Class usrCntlCBAM
         Me.txtEori.Size = New System.Drawing.Size(341, 20)
         Me.txtEori.TabIndex = 1
         '
+        'Button8
+        '
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.Location = New System.Drawing.Point(825, 672)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(68, 37)
+        Me.Button8.TabIndex = 72
+        Me.Button8.Text = "CBAM Today"
+        Me.Button8.UseVisualStyleBackColor = True
+        Me.Button8.Visible = False
+        '
         'usrCntlCBAM
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Button8)
         Me.Controls.Add(Me.cboIndirekt)
         Me.Controls.Add(Me.cbxIndirekt)
         Me.Controls.Add(Me.cbxVERAG_GPXLS)
@@ -1737,4 +1750,5 @@ Partial Class usrCntlCBAM
     Friend WithEvents cbxVERAG_GPXLS As CheckBox
     Friend WithEvents cboIndirekt As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbxIndirekt As CheckBox
+    Friend WithEvents Button8 As Button
 End Class
diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb
index 4cafc07d..eb705b72 100644
--- a/SDL/kunden/usrCntlCBAM.vb
+++ b/SDL/kunden/usrCntlCBAM.vb
@@ -402,7 +402,7 @@ Public Class usrCntlCBAM
         txtCalcJahr.Text = Now.Year
         txtCalc_Defaut_Year.Text = Now.Year
         txtCalc_Defaut_CertPrice._value = 95
-
+        Button8.Visible = True
 
         If Now.Month < 3 Then
             txtJahr.Text = Now.Year - 1
@@ -2788,5 +2788,12 @@ Public Class usrCntlCBAM
         cboIndirekt.Visible = cbxIndirekt.Checked
         txtEori.Visible = Not cbxIndirekt.Checked
     End Sub
+
+    Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
+        Dim LIST = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM({}, "", Now.ToShortDateString, Now.ToShortDateString,, False, True)
+        MsgBox(LIST.Count & " Einträge: " & vbNewLine & vbNewLine &
+               String.Join(vbNewLine, LIST.
+                Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN))))
+    End Sub
 End Class
 
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
index 654b4fe0..3e7dbc62 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
@@ -235,9 +235,9 @@ Public Class cVERAG_CustomsDeclarations
             "   ON z.za_Id = p.zaParty_zaId " &
             "WHERE z.za_REGIME = 'IMPORT' " &
             "  AND z.za_IsFinalDeclaration = 1 " &
-            "  AND z.za_DeclarationDate >= @dateFrom " &
-            "  AND z.za_DeclarationDate <= @dateTo " &
-            "  AND p.zaParty_EORI IN (" & eoriIn & ") " &
+            "  AND cast(z.za_DeclarationDate as date) >= @dateFrom " &
+            "  AND cast(z.za_DeclarationDate  as date) <= @dateTo " &
+           If(eoriIn <> "", "  AND p.zaParty_EORI IN (" & eoriIn & ") ", "") &
             "  AND " & cbamWhere
 
             If indirect Then
@@ -255,13 +255,12 @@ Public Class cVERAG_CustomsDeclarations
             If CustomsSystem <> "" Then
                 sqlstr &= " AND z.za_System = @sys "
             End If
-
             Using conn = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand(sqlstr, conn)
 
                     ' cmd.Parameters.AddWithValue("@eori", EORI)
-                    cmd.Parameters.AddWithValue("@dateFrom", datFrom)
-                    cmd.Parameters.AddWithValue("@dateTo", datTo)
+                    cmd.Parameters.AddWithValue("@dateFrom", datFrom.ToShortDateString)
+                    cmd.Parameters.AddWithValue("@dateTo", datTo.ToShortDateString)
 
                     If ImportCountry <> "" Then
                         cmd.Parameters.AddWithValue("@importCountry", ImportCountry)