edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CBAM Checkliste

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-07 15:46:47 +01:00
parent afcbfd37ac
commit 5f18e9816c
4 changed files with 367 additions and 344 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -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))

688
SDL/kunden/usrCntlCBAM.Designer.vb generated
View File

@@ -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

9
SDL/kunden/usrCntlCBAM.vb
View File

@@ -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

11
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
View File

@@ -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)