cbam
This commit is contained in:
474
SDL/kunden/usrCntlCBAM.Designer.vb
generated
474
SDL/kunden/usrCntlCBAM.Designer.vb
generated
@@ -115,6 +115,20 @@ Partial Class usrCntlCBAM
|
|||||||
Me.btnVERAGCost = New System.Windows.Forms.Button()
|
Me.btnVERAGCost = New System.Windows.Forms.Button()
|
||||||
Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox()
|
Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox()
|
||||||
Me.cbxIndirekt = 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.cboIndirekt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||||
@@ -126,26 +140,12 @@ Partial Class usrCntlCBAM
|
|||||||
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.Button8 = New System.Windows.Forms.Button()
|
Me.cboCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
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.cntxtAddSdl.SuspendLayout()
|
Me.cntxtAddSdl.SuspendLayout()
|
||||||
Me.Panel1.SuspendLayout()
|
Me.Panel1.SuspendLayout()
|
||||||
Me.Panel2.SuspendLayout()
|
Me.Panel2.SuspendLayout()
|
||||||
Me.MyPanel1.SuspendLayout()
|
|
||||||
Me.Panel3.SuspendLayout()
|
Me.Panel3.SuspendLayout()
|
||||||
|
Me.MyPanel1.SuspendLayout()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'lblOffert
|
'lblOffert
|
||||||
@@ -1390,6 +1390,215 @@ Partial Class usrCntlCBAM
|
|||||||
Me.cbxIndirekt.Text = "INDIREKT"
|
Me.cbxIndirekt.Text = "INDIREKT"
|
||||||
Me.cbxIndirekt.UseVisualStyleBackColor = True
|
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
|
'cboIndirekt
|
||||||
'
|
'
|
||||||
Me.cboIndirekt._allowedValuesFreiText = Nothing
|
Me.cboIndirekt._allowedValuesFreiText = Nothing
|
||||||
@@ -1559,225 +1768,16 @@ Partial Class usrCntlCBAM
|
|||||||
Me.txtEori.Size = New System.Drawing.Size(341, 20)
|
Me.txtEori.Size = New System.Drawing.Size(341, 20)
|
||||||
Me.txtEori.TabIndex = 1
|
Me.txtEori.TabIndex = 1
|
||||||
'
|
'
|
||||||
'Button8
|
'cboCBAM_KdSett_Status
|
||||||
'
|
'
|
||||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.cboCBAM_KdSett_Status._allowedValuesFreiText = Nothing
|
||||||
Me.Button8.Location = New System.Drawing.Point(1097, 131)
|
Me.cboCBAM_KdSett_Status._allowFreiText = False
|
||||||
Me.Button8.Name = "Button8"
|
Me.cboCBAM_KdSett_Status._value = ""
|
||||||
Me.Button8.Size = New System.Drawing.Size(68, 37)
|
Me.cboCBAM_KdSett_Status.FormattingEnabled = True
|
||||||
Me.Button8.TabIndex = 72
|
Me.cboCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 22)
|
||||||
Me.Button8.Text = "CBAM Today"
|
Me.cboCBAM_KdSett_Status.Name = "cboCBAM_KdSett_Status"
|
||||||
Me.Button8.UseVisualStyleBackColor = True
|
Me.cboCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21)
|
||||||
Me.Button8.Visible = False
|
Me.cboCBAM_KdSett_Status.TabIndex = 74
|
||||||
'
|
|
||||||
'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"
|
|
||||||
'
|
'
|
||||||
'usrCntlCBAM
|
'usrCntlCBAM
|
||||||
'
|
'
|
||||||
@@ -1866,10 +1866,10 @@ Partial Class usrCntlCBAM
|
|||||||
Me.Panel1.PerformLayout()
|
Me.Panel1.PerformLayout()
|
||||||
Me.Panel2.ResumeLayout(False)
|
Me.Panel2.ResumeLayout(False)
|
||||||
Me.Panel2.PerformLayout()
|
Me.Panel2.PerformLayout()
|
||||||
Me.MyPanel1.ResumeLayout(False)
|
|
||||||
Me.MyPanel1.PerformLayout()
|
|
||||||
Me.Panel3.ResumeLayout(False)
|
Me.Panel3.ResumeLayout(False)
|
||||||
Me.Panel3.PerformLayout()
|
Me.Panel3.PerformLayout()
|
||||||
|
Me.MyPanel1.ResumeLayout(False)
|
||||||
|
Me.MyPanel1.PerformLayout()
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
Me.PerformLayout()
|
Me.PerformLayout()
|
||||||
|
|
||||||
@@ -1982,7 +1982,6 @@ Partial Class usrCntlCBAM
|
|||||||
Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents Label14 As Label
|
Friend WithEvents Label14 As Label
|
||||||
Friend WithEvents txtCBAM_KdSett_Warn2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
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 Button9 As Button
|
||||||
Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents Label20 As Label
|
Friend WithEvents Label20 As Label
|
||||||
@@ -1992,4 +1991,5 @@ Partial Class usrCntlCBAM
|
|||||||
Friend WithEvents Label23 As Label
|
Friend WithEvents Label23 As Label
|
||||||
Friend WithEvents Label25 As Label
|
Friend WithEvents Label25 As Label
|
||||||
Friend WithEvents Label24 As Label
|
Friend WithEvents Label24 As Label
|
||||||
|
Friend WithEvents cboCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -423,13 +423,13 @@ Public Class usrCntlCBAM
|
|||||||
txtEori.Text = KD.EORITIN
|
txtEori.Text = KD.EORITIN
|
||||||
End If
|
End If
|
||||||
|
|
||||||
txtCBAM_KdSett_Status.Items.Clear()
|
cboCBAM_KdSett_Status.Items.Clear()
|
||||||
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", ""))
|
cboCBAM_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"))
|
cboCBAM_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"))
|
cboCBAM_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"))
|
cboCBAM_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"))
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO"))
|
||||||
txtCBAM_KdSett_Status.changeItem("undefined")
|
cboCBAM_KdSett_Status.changeItem("undefined")
|
||||||
|
|
||||||
|
|
||||||
cboIndirekt.Items.Clear()
|
cboIndirekt.Items.Clear()
|
||||||
@@ -443,7 +443,7 @@ Public Class usrCntlCBAM
|
|||||||
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540"))
|
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540"))
|
||||||
|
|
||||||
If ERW IsNot Nothing Then
|
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_Warn1._value = If(ERW.kde_CBAM_Warn1, "")
|
||||||
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "")
|
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "")
|
||||||
txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "")
|
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))))
|
Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN))))
|
||||||
End Sub
|
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_ApplNo.Enabled = False
|
||||||
txtCBAM_KdSett_CBAMNo.Enabled = False
|
txtCBAM_KdSett_CBAMNo.Enabled = False
|
||||||
txtCBAM_KdSett_Warn1.Enabled = False
|
txtCBAM_KdSett_Warn1.Enabled = False
|
||||||
txtCBAM_KdSett_Warn2.Enabled = False
|
txtCBAM_KdSett_Warn2.Enabled = False
|
||||||
|
|
||||||
Select Case txtCBAM_KdSett_Status._value
|
Select Case cboCBAM_KdSett_Status._value
|
||||||
Case ""
|
Case ""
|
||||||
txtCBAM_KdSett_Warn1.Enabled = True
|
txtCBAM_KdSett_Warn1.Enabled = True
|
||||||
txtCBAM_KdSett_Warn2.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
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||||
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
|
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
|
||||||
|
|
||||||
ERW.kde_CBAM_Status = txtCBAM_KdSett_Status._value
|
ERW.kde_CBAM_Status = cboCBAM_KdSett_Status._value
|
||||||
ERW.kde_CBAM_Warn1 = txtCBAM_KdSett_Warn1._value
|
ERW.kde_CBAM_Warn1 = cProgramFunctions.isLeerNothing(txtCBAM_KdSett_Warn1._value)
|
||||||
ERW.kde_CBAM_Warn2 = txtCBAM_KdSett_Warn2._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_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)
|
ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing)
|
||||||
|
|
||||||
|
|||||||
@@ -39,7 +39,7 @@ Public Class cFremdwaehrungskurse
|
|||||||
Public Function SAVE() As Boolean
|
Public Function SAVE() As Boolean
|
||||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
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) " &
|
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 " &
|
" BEGIN " & getUpdateCmd() & " END " &
|
||||||
" Else " &
|
" Else " &
|
||||||
|
|||||||
@@ -368,10 +368,12 @@ Public Class cVERAG_CustomsDeclarations
|
|||||||
|
|
||||||
If hasCBAM(CBAM_ITEMS) Then
|
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 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 ImporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).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 ExporterEORI As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.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 ExporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).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 KD As cKunde = Nothing
|
||||||
Dim AD As cAdressen = Nothing
|
Dim AD As cAdressen = Nothing
|
||||||
@@ -401,7 +403,7 @@ Public Class cVERAG_CustomsDeclarations
|
|||||||
|
|
||||||
If isIndirect() Then
|
If isIndirect() Then
|
||||||
|
|
||||||
|
Dim EORI_IND = If(vertretenerEORI IsNot Nothing, vertretenerEORI, If(importerEORI IsNot Nothing, importerEORI, ExporterEORI))
|
||||||
|
|
||||||
'==================>> INDIRECT <<=========================
|
'==================>> INDIRECT <<=========================
|
||||||
Dim itemsHtml As String =
|
Dim itemsHtml As String =
|
||||||
@@ -503,6 +505,10 @@ Public Class cVERAG_CustomsDeclarations
|
|||||||
"CBAM-pflichtige Warenpositionen erkannt.<br/>" &
|
"CBAM-pflichtige Warenpositionen erkannt.<br/>" &
|
||||||
"Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." &
|
"Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." &
|
||||||
"</p>" &
|
"</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'>" &
|
"<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>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>" &
|
"<tr><td><b>Schwellenwert</b></td><td>" & Schwellenwert.ToString("N0") & " Tonnen</td></tr>" &
|
||||||
@@ -511,11 +517,6 @@ Public Class cVERAG_CustomsDeclarations
|
|||||||
"<b>Importeur:</b><br/>" &
|
"<b>Importeur:</b><br/>" &
|
||||||
If(importerEORI, "") & "<br>" & If(ImporterString, "") &
|
If(importerEORI, "") & "<br>" & If(ImporterString, "") &
|
||||||
"</p>" &
|
"</p>" &
|
||||||
"<p>" &
|
|
||||||
"<b>Exporteur:</b><br/>" &
|
|
||||||
If(ExporterEORI, "") & "<br>" & If(ExporterString, "") &
|
|
||||||
"</p>" &
|
|
||||||
"<p style='color:#b00020'><b>WICHTIG</b></p>" &
|
|
||||||
"<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/>" &
|
"ist eine gültige CBAM-Registrierung zwingend erforderlich.<br/>" &
|
||||||
@@ -529,7 +530,12 @@ Public Class cVERAG_CustomsDeclarations
|
|||||||
"<p><b>VERAG DCS – CBAM Compliance Services</b></p>" &
|
"<p><b>VERAG DCS – CBAM Compliance Services</b></p>" &
|
||||||
"<p>VERAG Spedition AG<br>A-4975 Suben, Suben 100</p>" &
|
"<p>VERAG Spedition AG<br>A-4975 Suben, Suben 100</p>" &
|
||||||
"</body></html>"
|
"</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), "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")
|
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")
|
||||||
|
|||||||
Reference in New Issue
Block a user