From dbce3f0ba9b6998aceb252a01d332119364159e0 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 14 Jan 2026 08:45:37 +0100 Subject: [PATCH] cbam --- SDL/kunden/usrCntlCBAM.Designer.vb | 474 +++++++++--------- SDL/kunden/usrCntlCBAM.vb | 26 +- .../Classes/cFremdwaehrungskurse.vb | 2 +- .../cVERAG_Zollanmeldung.vb | 30 +- 4 files changed, 269 insertions(+), 263 deletions(-) diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index 8a8aab71..668dd2c3 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -115,6 +115,20 @@ Partial Class usrCntlCBAM Me.btnVERAGCost = New System.Windows.Forms.Button() Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox() Me.cbxIndirekt = New System.Windows.Forms.CheckBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.txtCBAM_KdSett_ApplNo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtCBAM_KdSett_Warn2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button9 = New System.Windows.Forms.Button() + Me.txtCBAM_KdSett_CBAMNo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.txtCBAM_KdSett_Warn1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() Me.cboIndirekt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) @@ -126,26 +140,12 @@ 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.Panel3 = New System.Windows.Forms.Panel() - Me.Button9 = New System.Windows.Forms.Button() - Me.txtCBAM_KdSett_CBAMNo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label20 = New System.Windows.Forms.Label() - Me.Label21 = New System.Windows.Forms.Label() - Me.txtCBAM_KdSett_Warn1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label22 = New System.Windows.Forms.Label() - Me.Label23 = New System.Windows.Forms.Label() - Me.txtCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtCBAM_KdSett_Warn2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCBAM_KdSett_ApplNo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label24 = New System.Windows.Forms.Label() - Me.Label25 = New System.Windows.Forms.Label() + Me.cboCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cntxtAddSdl.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() - Me.MyPanel1.SuspendLayout() Me.Panel3.SuspendLayout() + Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' 'lblOffert @@ -1390,6 +1390,215 @@ Partial Class usrCntlCBAM Me.cbxIndirekt.Text = "INDIREKT" Me.cbxIndirekt.UseVisualStyleBackColor = True ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Location = New System.Drawing.Point(1097, 131) + 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 + ' + 'Panel3 + ' + Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel3.BackColor = System.Drawing.Color.FloralWhite + Me.Panel3.Controls.Add(Me.cboCBAM_KdSett_Status) + Me.Panel3.Controls.Add(Me.Label25) + Me.Panel3.Controls.Add(Me.Label24) + Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_ApplNo) + Me.Panel3.Controls.Add(Me.Label14) + Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn2) + Me.Panel3.Controls.Add(Me.Button9) + Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_CBAMNo) + Me.Panel3.Controls.Add(Me.Label20) + Me.Panel3.Controls.Add(Me.Label21) + Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn1) + Me.Panel3.Controls.Add(Me.Label22) + Me.Panel3.Controls.Add(Me.Label23) + Me.Panel3.Location = New System.Drawing.Point(491, 511) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(382, 182) + Me.Panel3.TabIndex = 73 + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label25.Location = New System.Drawing.Point(182, 52) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(40, 13) + Me.Label25.TabIndex = 80 + Me.Label25.Text = "Warn 2" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label24.Location = New System.Drawing.Point(118, 52) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(43, 13) + Me.Label24.TabIndex = 79 + Me.Label24.Text = "Warn 1 " + ' + 'txtCBAM_KdSett_ApplNo + ' + Me.txtCBAM_KdSett_ApplNo._DateTimeOnly = False + Me.txtCBAM_KdSett_ApplNo._numbersOnly = False + Me.txtCBAM_KdSett_ApplNo._numbersOnlyKommastellen = "" + Me.txtCBAM_KdSett_ApplNo._numbersOnlyTrennzeichen = False + Me.txtCBAM_KdSett_ApplNo._Prozent = False + Me.txtCBAM_KdSett_ApplNo._ShortDateNew = False + Me.txtCBAM_KdSett_ApplNo._ShortDateOnly = False + Me.txtCBAM_KdSett_ApplNo._TimeOnly = False + Me.txtCBAM_KdSett_ApplNo._TimeOnly_Seconds = False + Me.txtCBAM_KdSett_ApplNo._value = "" + Me.txtCBAM_KdSett_ApplNo._Waehrung = False + Me.txtCBAM_KdSett_ApplNo._WaehrungZeichen = True + Me.txtCBAM_KdSett_ApplNo.Enabled = False + Me.txtCBAM_KdSett_ApplNo.ForeColor = System.Drawing.Color.Red + Me.txtCBAM_KdSett_ApplNo.Location = New System.Drawing.Point(110, 95) + Me.txtCBAM_KdSett_ApplNo.MaxLength = 250 + Me.txtCBAM_KdSett_ApplNo.MaxLineLength = -1 + Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning = "" + Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning_Label = Nothing + Me.txtCBAM_KdSett_ApplNo.Name = "txtCBAM_KdSett_ApplNo" + Me.txtCBAM_KdSett_ApplNo.Size = New System.Drawing.Size(256, 20) + Me.txtCBAM_KdSett_ApplNo.TabIndex = 77 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(3, 98) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(79, 13) + Me.Label14.TabIndex = 78 + Me.Label14.Text = "Application-Nr.:" + ' + 'txtCBAM_KdSett_Warn2 + ' + Me.txtCBAM_KdSett_Warn2._DateTimeOnly = False + Me.txtCBAM_KdSett_Warn2._numbersOnly = True + Me.txtCBAM_KdSett_Warn2._numbersOnlyKommastellen = "" + Me.txtCBAM_KdSett_Warn2._numbersOnlyTrennzeichen = True + Me.txtCBAM_KdSett_Warn2._Prozent = False + Me.txtCBAM_KdSett_Warn2._ShortDateNew = False + Me.txtCBAM_KdSett_Warn2._ShortDateOnly = False + Me.txtCBAM_KdSett_Warn2._TimeOnly = False + Me.txtCBAM_KdSett_Warn2._TimeOnly_Seconds = False + Me.txtCBAM_KdSett_Warn2._value = "40" + Me.txtCBAM_KdSett_Warn2._Waehrung = False + Me.txtCBAM_KdSett_Warn2._WaehrungZeichen = True + Me.txtCBAM_KdSett_Warn2.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_KdSett_Warn2.Location = New System.Drawing.Point(174, 66) + Me.txtCBAM_KdSett_Warn2.MaxLength = 10 + Me.txtCBAM_KdSett_Warn2.MaxLineLength = -1 + Me.txtCBAM_KdSett_Warn2.MaxLines_Warning = "" + Me.txtCBAM_KdSett_Warn2.MaxLines_Warning_Label = Nothing + Me.txtCBAM_KdSett_Warn2.Name = "txtCBAM_KdSett_Warn2" + Me.txtCBAM_KdSett_Warn2.Size = New System.Drawing.Size(58, 20) + Me.txtCBAM_KdSett_Warn2.TabIndex = 75 + Me.txtCBAM_KdSett_Warn2.Text = "40" + ' + 'Button9 + ' + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Location = New System.Drawing.Point(149, 147) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(217, 28) + Me.Button9.TabIndex = 53 + Me.Button9.Text = "Speichern" + Me.Button9.UseVisualStyleBackColor = True + ' + 'txtCBAM_KdSett_CBAMNo + ' + Me.txtCBAM_KdSett_CBAMNo._DateTimeOnly = False + Me.txtCBAM_KdSett_CBAMNo._numbersOnly = False + Me.txtCBAM_KdSett_CBAMNo._numbersOnlyKommastellen = "" + Me.txtCBAM_KdSett_CBAMNo._numbersOnlyTrennzeichen = False + Me.txtCBAM_KdSett_CBAMNo._Prozent = False + Me.txtCBAM_KdSett_CBAMNo._ShortDateNew = False + Me.txtCBAM_KdSett_CBAMNo._ShortDateOnly = False + Me.txtCBAM_KdSett_CBAMNo._TimeOnly = False + Me.txtCBAM_KdSett_CBAMNo._TimeOnly_Seconds = False + Me.txtCBAM_KdSett_CBAMNo._value = "" + Me.txtCBAM_KdSett_CBAMNo._Waehrung = False + Me.txtCBAM_KdSett_CBAMNo._WaehrungZeichen = True + Me.txtCBAM_KdSett_CBAMNo.Enabled = False + Me.txtCBAM_KdSett_CBAMNo.ForeColor = System.Drawing.Color.Red + Me.txtCBAM_KdSett_CBAMNo.Location = New System.Drawing.Point(110, 118) + Me.txtCBAM_KdSett_CBAMNo.MaxLength = 250 + Me.txtCBAM_KdSett_CBAMNo.MaxLineLength = -1 + Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning = "" + Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning_Label = Nothing + Me.txtCBAM_KdSett_CBAMNo.Name = "txtCBAM_KdSett_CBAMNo" + Me.txtCBAM_KdSett_CBAMNo.Size = New System.Drawing.Size(256, 20) + Me.txtCBAM_KdSett_CBAMNo.TabIndex = 58 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(3, 121) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(88, 13) + Me.Label20.TabIndex = 59 + Me.Label20.Text = "CBAM Konto-Nr.:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(2, 69) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(102, 13) + Me.Label21.TabIndex = 57 + Me.Label21.Text = "Warnschwelle/Jahr:" + ' + 'txtCBAM_KdSett_Warn1 + ' + Me.txtCBAM_KdSett_Warn1._DateTimeOnly = False + Me.txtCBAM_KdSett_Warn1._numbersOnly = True + Me.txtCBAM_KdSett_Warn1._numbersOnlyKommastellen = "" + Me.txtCBAM_KdSett_Warn1._numbersOnlyTrennzeichen = True + Me.txtCBAM_KdSett_Warn1._Prozent = False + Me.txtCBAM_KdSett_Warn1._ShortDateNew = False + Me.txtCBAM_KdSett_Warn1._ShortDateOnly = False + Me.txtCBAM_KdSett_Warn1._TimeOnly = False + Me.txtCBAM_KdSett_Warn1._TimeOnly_Seconds = False + Me.txtCBAM_KdSett_Warn1._value = "30" + Me.txtCBAM_KdSett_Warn1._Waehrung = False + Me.txtCBAM_KdSett_Warn1._WaehrungZeichen = True + Me.txtCBAM_KdSett_Warn1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_KdSett_Warn1.Location = New System.Drawing.Point(110, 66) + Me.txtCBAM_KdSett_Warn1.MaxLength = 10 + Me.txtCBAM_KdSett_Warn1.MaxLineLength = -1 + Me.txtCBAM_KdSett_Warn1.MaxLines_Warning = "" + Me.txtCBAM_KdSett_Warn1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_KdSett_Warn1.Name = "txtCBAM_KdSett_Warn1" + Me.txtCBAM_KdSett_Warn1.Size = New System.Drawing.Size(58, 20) + Me.txtCBAM_KdSett_Warn1.TabIndex = 56 + Me.txtCBAM_KdSett_Warn1.Text = "30" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(3, 25) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(73, 13) + Me.Label22.TabIndex = 55 + Me.Label22.Text = "CBAM-Status:" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(3, 3) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(142, 13) + Me.Label23.TabIndex = 53 + Me.Label23.Text = "CBAM-Kundeneinstellungen:" + ' 'cboIndirekt ' Me.cboIndirekt._allowedValuesFreiText = Nothing @@ -1559,225 +1768,16 @@ Partial Class usrCntlCBAM Me.txtEori.Size = New System.Drawing.Size(341, 20) Me.txtEori.TabIndex = 1 ' - 'Button8 + 'cboCBAM_KdSett_Status ' - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Location = New System.Drawing.Point(1097, 131) - 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 - ' - 'Panel3 - ' - Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Panel3.BackColor = System.Drawing.Color.FloralWhite - Me.Panel3.Controls.Add(Me.Label25) - Me.Panel3.Controls.Add(Me.Label24) - Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_ApplNo) - Me.Panel3.Controls.Add(Me.Label14) - Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn2) - Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Status) - Me.Panel3.Controls.Add(Me.Button9) - Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_CBAMNo) - Me.Panel3.Controls.Add(Me.Label20) - Me.Panel3.Controls.Add(Me.Label21) - Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn1) - Me.Panel3.Controls.Add(Me.Label22) - Me.Panel3.Controls.Add(Me.Label23) - Me.Panel3.Location = New System.Drawing.Point(491, 511) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(382, 182) - Me.Panel3.TabIndex = 73 - ' - 'Button9 - ' - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.Location = New System.Drawing.Point(149, 147) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(217, 28) - Me.Button9.TabIndex = 53 - Me.Button9.Text = "Speichern" - Me.Button9.UseVisualStyleBackColor = True - ' - 'txtCBAM_KdSett_CBAMNo - ' - Me.txtCBAM_KdSett_CBAMNo._DateTimeOnly = False - Me.txtCBAM_KdSett_CBAMNo._numbersOnly = True - Me.txtCBAM_KdSett_CBAMNo._numbersOnlyKommastellen = "" - Me.txtCBAM_KdSett_CBAMNo._numbersOnlyTrennzeichen = True - Me.txtCBAM_KdSett_CBAMNo._Prozent = False - Me.txtCBAM_KdSett_CBAMNo._ShortDateNew = False - Me.txtCBAM_KdSett_CBAMNo._ShortDateOnly = False - Me.txtCBAM_KdSett_CBAMNo._TimeOnly = False - Me.txtCBAM_KdSett_CBAMNo._TimeOnly_Seconds = False - Me.txtCBAM_KdSett_CBAMNo._value = "" - Me.txtCBAM_KdSett_CBAMNo._Waehrung = False - Me.txtCBAM_KdSett_CBAMNo._WaehrungZeichen = True - Me.txtCBAM_KdSett_CBAMNo.Enabled = False - Me.txtCBAM_KdSett_CBAMNo.ForeColor = System.Drawing.Color.Red - Me.txtCBAM_KdSett_CBAMNo.Location = New System.Drawing.Point(110, 118) - Me.txtCBAM_KdSett_CBAMNo.MaxLength = 10 - Me.txtCBAM_KdSett_CBAMNo.MaxLineLength = -1 - Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning = "" - Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning_Label = Nothing - Me.txtCBAM_KdSett_CBAMNo.Name = "txtCBAM_KdSett_CBAMNo" - Me.txtCBAM_KdSett_CBAMNo.Size = New System.Drawing.Size(256, 20) - Me.txtCBAM_KdSett_CBAMNo.TabIndex = 58 - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(3, 121) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(88, 13) - Me.Label20.TabIndex = 59 - Me.Label20.Text = "CBAM Konto-Nr.:" - ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.Location = New System.Drawing.Point(2, 69) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(102, 13) - Me.Label21.TabIndex = 57 - Me.Label21.Text = "Warnschwelle/Jahr:" - ' - 'txtCBAM_KdSett_Warn1 - ' - Me.txtCBAM_KdSett_Warn1._DateTimeOnly = False - Me.txtCBAM_KdSett_Warn1._numbersOnly = True - Me.txtCBAM_KdSett_Warn1._numbersOnlyKommastellen = "" - Me.txtCBAM_KdSett_Warn1._numbersOnlyTrennzeichen = True - Me.txtCBAM_KdSett_Warn1._Prozent = False - Me.txtCBAM_KdSett_Warn1._ShortDateNew = False - Me.txtCBAM_KdSett_Warn1._ShortDateOnly = False - Me.txtCBAM_KdSett_Warn1._TimeOnly = False - Me.txtCBAM_KdSett_Warn1._TimeOnly_Seconds = False - Me.txtCBAM_KdSett_Warn1._value = "30" - Me.txtCBAM_KdSett_Warn1._Waehrung = False - Me.txtCBAM_KdSett_Warn1._WaehrungZeichen = True - Me.txtCBAM_KdSett_Warn1.ForeColor = System.Drawing.Color.Black - Me.txtCBAM_KdSett_Warn1.Location = New System.Drawing.Point(110, 66) - Me.txtCBAM_KdSett_Warn1.MaxLength = 10 - Me.txtCBAM_KdSett_Warn1.MaxLineLength = -1 - Me.txtCBAM_KdSett_Warn1.MaxLines_Warning = "" - Me.txtCBAM_KdSett_Warn1.MaxLines_Warning_Label = Nothing - Me.txtCBAM_KdSett_Warn1.Name = "txtCBAM_KdSett_Warn1" - Me.txtCBAM_KdSett_Warn1.Size = New System.Drawing.Size(58, 20) - Me.txtCBAM_KdSett_Warn1.TabIndex = 56 - Me.txtCBAM_KdSett_Warn1.Text = "30" - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(3, 25) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(73, 13) - Me.Label22.TabIndex = 55 - Me.Label22.Text = "CBAM-Status:" - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(3, 3) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(142, 13) - Me.Label23.TabIndex = 53 - Me.Label23.Text = "CBAM-Kundeneinstellungen:" - ' - 'txtCBAM_KdSett_Status - ' - Me.txtCBAM_KdSett_Status._allowedValuesFreiText = Nothing - Me.txtCBAM_KdSett_Status._allowFreiText = False - Me.txtCBAM_KdSett_Status._value = "" - Me.txtCBAM_KdSett_Status.FormattingEnabled = True - Me.txtCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 24) - Me.txtCBAM_KdSett_Status.Name = "txtCBAM_KdSett_Status" - Me.txtCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21) - Me.txtCBAM_KdSett_Status.TabIndex = 74 - ' - 'txtCBAM_KdSett_Warn2 - ' - Me.txtCBAM_KdSett_Warn2._DateTimeOnly = False - Me.txtCBAM_KdSett_Warn2._numbersOnly = True - Me.txtCBAM_KdSett_Warn2._numbersOnlyKommastellen = "" - Me.txtCBAM_KdSett_Warn2._numbersOnlyTrennzeichen = True - Me.txtCBAM_KdSett_Warn2._Prozent = False - Me.txtCBAM_KdSett_Warn2._ShortDateNew = False - Me.txtCBAM_KdSett_Warn2._ShortDateOnly = False - Me.txtCBAM_KdSett_Warn2._TimeOnly = False - Me.txtCBAM_KdSett_Warn2._TimeOnly_Seconds = False - Me.txtCBAM_KdSett_Warn2._value = "40" - Me.txtCBAM_KdSett_Warn2._Waehrung = False - Me.txtCBAM_KdSett_Warn2._WaehrungZeichen = True - Me.txtCBAM_KdSett_Warn2.ForeColor = System.Drawing.Color.Black - Me.txtCBAM_KdSett_Warn2.Location = New System.Drawing.Point(174, 66) - Me.txtCBAM_KdSett_Warn2.MaxLength = 10 - Me.txtCBAM_KdSett_Warn2.MaxLineLength = -1 - Me.txtCBAM_KdSett_Warn2.MaxLines_Warning = "" - Me.txtCBAM_KdSett_Warn2.MaxLines_Warning_Label = Nothing - Me.txtCBAM_KdSett_Warn2.Name = "txtCBAM_KdSett_Warn2" - Me.txtCBAM_KdSett_Warn2.Size = New System.Drawing.Size(58, 20) - Me.txtCBAM_KdSett_Warn2.TabIndex = 75 - Me.txtCBAM_KdSett_Warn2.Text = "40" - ' - 'txtCBAM_KdSett_ApplNo - ' - Me.txtCBAM_KdSett_ApplNo._DateTimeOnly = False - Me.txtCBAM_KdSett_ApplNo._numbersOnly = True - Me.txtCBAM_KdSett_ApplNo._numbersOnlyKommastellen = "" - Me.txtCBAM_KdSett_ApplNo._numbersOnlyTrennzeichen = True - Me.txtCBAM_KdSett_ApplNo._Prozent = False - Me.txtCBAM_KdSett_ApplNo._ShortDateNew = False - Me.txtCBAM_KdSett_ApplNo._ShortDateOnly = False - Me.txtCBAM_KdSett_ApplNo._TimeOnly = False - Me.txtCBAM_KdSett_ApplNo._TimeOnly_Seconds = False - Me.txtCBAM_KdSett_ApplNo._value = "" - Me.txtCBAM_KdSett_ApplNo._Waehrung = False - Me.txtCBAM_KdSett_ApplNo._WaehrungZeichen = True - Me.txtCBAM_KdSett_ApplNo.Enabled = False - Me.txtCBAM_KdSett_ApplNo.ForeColor = System.Drawing.Color.Red - Me.txtCBAM_KdSett_ApplNo.Location = New System.Drawing.Point(110, 95) - Me.txtCBAM_KdSett_ApplNo.MaxLength = 10 - Me.txtCBAM_KdSett_ApplNo.MaxLineLength = -1 - Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning = "" - Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning_Label = Nothing - Me.txtCBAM_KdSett_ApplNo.Name = "txtCBAM_KdSett_ApplNo" - Me.txtCBAM_KdSett_ApplNo.Size = New System.Drawing.Size(256, 20) - Me.txtCBAM_KdSett_ApplNo.TabIndex = 77 - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(3, 98) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(79, 13) - Me.Label14.TabIndex = 78 - Me.Label14.Text = "Application-Nr.:" - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label24.Location = New System.Drawing.Point(118, 52) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(43, 13) - Me.Label24.TabIndex = 79 - Me.Label24.Text = "Warn 1 " - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label25.Location = New System.Drawing.Point(182, 52) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(40, 13) - Me.Label25.TabIndex = 80 - Me.Label25.Text = "Warn 2" + Me.cboCBAM_KdSett_Status._allowedValuesFreiText = Nothing + Me.cboCBAM_KdSett_Status._allowFreiText = False + Me.cboCBAM_KdSett_Status._value = "" + Me.cboCBAM_KdSett_Status.FormattingEnabled = True + Me.cboCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 22) + Me.cboCBAM_KdSett_Status.Name = "cboCBAM_KdSett_Status" + Me.cboCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21) + Me.cboCBAM_KdSett_Status.TabIndex = 74 ' 'usrCntlCBAM ' @@ -1866,10 +1866,10 @@ Partial Class usrCntlCBAM Me.Panel1.PerformLayout() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() - Me.MyPanel1.ResumeLayout(False) - Me.MyPanel1.PerformLayout() Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() + Me.MyPanel1.ResumeLayout(False) + Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -1982,7 +1982,6 @@ Partial Class usrCntlCBAM Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label14 As Label Friend WithEvents txtCBAM_KdSett_Warn2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button9 As Button Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label20 As Label @@ -1992,4 +1991,5 @@ Partial Class usrCntlCBAM Friend WithEvents Label23 As Label Friend WithEvents Label25 As Label Friend WithEvents Label24 As Label + Friend WithEvents cboCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 24c806ac..af2504c6 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -423,13 +423,13 @@ Public Class usrCntlCBAM txtEori.Text = KD.EORITIN End If - txtCBAM_KdSett_Status.Items.Clear() - txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", "")) - txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("< 50 to (de minis)", "50to")) - txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Antrag abgegeben", "APPL")) - txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Konto vorhanden", "CBAM")) - txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO")) - txtCBAM_KdSett_Status.changeItem("undefined") + cboCBAM_KdSett_Status.Items.Clear() + cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", "")) + cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("< 50 to (de minis)", "50to")) + cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Antrag abgegeben", "APPL")) + cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Konto vorhanden", "CBAM")) + cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO")) + cboCBAM_KdSett_Status.changeItem("undefined") cboIndirekt.Items.Clear() @@ -443,7 +443,7 @@ Public Class usrCntlCBAM cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540")) If ERW IsNot Nothing Then - txtCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, "")) + cboCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, "")) txtCBAM_KdSett_Warn1._value = If(ERW.kde_CBAM_Warn1, "") txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "") txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "") @@ -2845,14 +2845,14 @@ Public Class usrCntlCBAM Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN)))) End Sub - Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles txtCBAM_KdSett_Status.SelectedIndexChanged + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCBAM_KdSett_Status.SelectedIndexChanged txtCBAM_KdSett_ApplNo.Enabled = False txtCBAM_KdSett_CBAMNo.Enabled = False txtCBAM_KdSett_Warn1.Enabled = False txtCBAM_KdSett_Warn2.Enabled = False - Select Case txtCBAM_KdSett_Status._value + Select Case cboCBAM_KdSett_Status._value Case "" txtCBAM_KdSett_Warn1.Enabled = True txtCBAM_KdSett_Warn2.Enabled = True @@ -2872,9 +2872,9 @@ Public Class usrCntlCBAM Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr) - ERW.kde_CBAM_Status = txtCBAM_KdSett_Status._value - ERW.kde_CBAM_Warn1 = txtCBAM_KdSett_Warn1._value - ERW.kde_CBAM_Warn2 = txtCBAM_KdSett_Warn2._value + ERW.kde_CBAM_Status = cboCBAM_KdSett_Status._value + ERW.kde_CBAM_Warn1 = cProgramFunctions.isLeerNothing(txtCBAM_KdSett_Warn1._value) + ERW.kde_CBAM_Warn2 = cProgramFunctions.isLeerNothing(txtCBAM_KdSett_Warn2._value) ERW.kde_CBAM_ApplicationNo = If(txtCBAM_KdSett_ApplNo._value <> "", txtCBAM_KdSett_ApplNo._value, Nothing) ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb index 6e996ca2..28799164 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb @@ -39,7 +39,7 @@ Public Class cFremdwaehrungskurse Public Function SAVE() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - + If fw_iso3 Is Nothing Then fw_iso3 = "" Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZOLL_Wechselkurse WITH(updlock,serializable) WHERE fw_iso2=@fw_iso2 AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum AND fw_kurswert=@fw_kurswert) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb index f43d1a23..6d919b35 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb @@ -368,10 +368,12 @@ Public Class cVERAG_CustomsDeclarations If hasCBAM(CBAM_ITEMS) Then - Dim importerEORI As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() - Dim ImporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault() - Dim ExporterEORI As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() - Dim ExporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault() + Dim vertreterEORI As String = Me.Parties.Where(Function(p) {"CB", "DT", "VERTRETER", "DEKLARANT", "DECLARANT"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() + Dim vertretenerEORI As String = Nothing 'Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() + Dim importerEORI As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER", "CONSIGNEE"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() + Dim ImporterString As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER", "CONSIGNEE"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault() + Dim ExporterEORI As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER", "CONSIGNOR"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault() + Dim ExporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER", "CONSIGNOR"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault() Dim KD As cKunde = Nothing Dim AD As cAdressen = Nothing @@ -401,7 +403,7 @@ Public Class cVERAG_CustomsDeclarations If isIndirect() Then - + Dim EORI_IND = If(vertretenerEORI IsNot Nothing, vertretenerEORI, If(importerEORI IsNot Nothing, importerEORI, ExporterEORI)) '==================>> INDIRECT <<========================= Dim itemsHtml As String = @@ -503,6 +505,10 @@ Public Class cVERAG_CustomsDeclarations "CBAM-pflichtige Warenpositionen erkannt.
" & "Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." & "

" & + "

" & + "Falls Sie uns Ihre CBAM-Antrags- oder Registriernummer bereits übermittelt haben, " & + "betrachten Sie diese Nachricht bitte als gegenstandslos." & + "

" & "" & "" & "" & @@ -512,12 +518,7 @@ Public Class cVERAG_CustomsDeclarations If(importerEORI, "") & "
" & If(ImporterString, "") & "

" & "

" & - "Exporteur:
" & - If(ExporterEORI, "") & "
" & If(ExporterString, "") & - "

" & - "

WICHTIG

" & - "

" & - "Bei Überschreitung einer jährlichen Gesamtmenge von 50 Tonnen CBAM-pflichtiger Waren (Jahressumme) " & + "Bei Überschreitung einer jährlichen Gesamtmenge von 50 Tonnen CBAM-pflichtiger Waren (Jahressumme) " & "ist eine gültige CBAM-Registrierung zwingend erforderlich.
" & "Ohne gültige Registrierung kann es zu Zollblockaden oder Abfertigungsstopps kommen." & "

" & @@ -529,7 +530,12 @@ Public Class cVERAG_CustomsDeclarations "

VERAG DCS – CBAM Compliance Services

" & "

VERAG Spedition AG
A-4975 Suben, Suben 100

" & "" - Console.WriteLine(bodyHtml) + + '"Exporteur:
" & + ' If (ExporterEORI, "") & "
" & If(ExporterString, "") & + ' "

" & + ' "

WICHTIG

" & + ' "

" & ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), "cbam@verag.ag",, "al@verag.ag") VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), False, "cbam@verag.ag", "al@verag.ag")

Warnstufe" & WarnLevel & If(WarnLevel = 3, " - ÜBERSCHREITUNG!", "") & "
Schwellenwert" & Schwellenwert.ToString("N0") & " Tonnen