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

cbam

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-14 08:45:37 +01:00
parent 283ba40d9c
commit dbce3f0ba9
4 changed files with 269 additions and 263 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

26
SDL/kunden/usrCntlCBAM.vb
View File

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

2
VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb
View File

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

30
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
View File

@@ -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.<br/>" &
"Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." &
"</p>" &
"<p style='font-style:italic; color:#444'>" &
"Falls Sie uns Ihre CBAM-Antrags- oder Registriernummer bereits übermittelt haben, " &
"betrachten Sie diese Nachricht bitte als gegenstandslos." &
"</p>" &
"<table cellpadding='6' cellspacing='0' border='1' style='border-collapse:collapse'>" &
"<tr><td><b>Warnstufe</b></td><td>" & WarnLevel & If(WarnLevel = 3, " - <span style='color:#b00020'><b>ÜBERSCHREITUNG!</b></span>", "") & "</td></tr>" &
"<tr><td><b>Schwellenwert</b></td><td>" & Schwellenwert.ToString("N0") & " Tonnen</td></tr>" &
@@ -512,12 +518,7 @@ Public Class cVERAG_CustomsDeclarations
If(importerEORI, "") & "<br>" & If(ImporterString, "") &
"</p>" &
"<p>" &
"<b>Exporteur:</b><br/>" &
If(ExporterEORI, "") & "<br>" & If(ExporterString, "") &
"</p>" &
"<p style='color:#b00020'><b>WICHTIG</b></p>" &
"<p>" &
"Bei Überschreitung einer jährlichen Gesamtmenge von <b>50 Tonnen CBAM-pflichtiger Waren</b> (Jahressumme) " &
"Bei Überschreitung einer jährlichen Gesamtmenge von <b>50 Tonnen CBAM-pflichtiger Waren</b> (Jahressumme) " &
"ist eine gültige CBAM-Registrierung zwingend erforderlich.<br/>" &
"Ohne gültige Registrierung kann es zu Zollblockaden oder Abfertigungsstopps kommen." &
"</p>" &
@@ -529,7 +530,12 @@ Public Class cVERAG_CustomsDeclarations
"<p><b>VERAG DCS – CBAM Compliance Services</b></p>" &
"<p>VERAG Spedition AG<br>A-4975 Suben, Suben 100</p>" &
"</body></html>"
Console.WriteLine(bodyHtml)
'"<b>Exporteur:</b><br/>" &
' If (ExporterEORI, "") & "<br>" & If(ExporterString, "") &
' "</p>" &
' "<p style='color:#b00020'><b>WICHTIG</b></p>" &
' "<p>" &
' 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")