Verzollungspreise weitere Sprache Englisch

This commit is contained in:
2024-10-10 14:37:07 +02:00
parent 3cd3df842f
commit 8ce76ed4f6
3 changed files with 798 additions and 354 deletions

View File

@@ -46,6 +46,8 @@ Partial Class usrcntlVerzollungspreise
Me.ZLeistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ZPreis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.MyComboBoxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvZusatzleistung, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -190,10 +192,12 @@ Partial Class usrcntlVerzollungspreise
Me.txtZahlunsziel._DateTimeOnly = False
Me.txtZahlunsziel._numbersOnly = True
Me.txtZahlunsziel._numbersOnlyKommastellen = ""
Me.txtZahlunsziel._numbersOnlyTrennzeichen = True
Me.txtZahlunsziel._Prozent = False
Me.txtZahlunsziel._ShortDateNew = False
Me.txtZahlunsziel._ShortDateOnly = False
Me.txtZahlunsziel._TimeOnly = False
Me.txtZahlunsziel._TimeOnly_Seconds = False
Me.txtZahlunsziel._value = "10"
Me.txtZahlunsziel._Waehrung = False
Me.txtZahlunsziel._WaehrungZeichen = True
@@ -284,12 +288,35 @@ Partial Class usrcntlVerzollungspreise
Me.cbxZollpflichtigeAbfertigung.Text = "Zollpflichtige Abfertigung"
Me.cbxZollpflichtigeAbfertigung.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 92)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 13)
Me.Label1.TabIndex = 38
Me.Label1.Text = "Sprache:"
'
'MyComboBoxSprache
'
Me.MyComboBoxSprache._allowedValuesFreiText = Nothing
Me.MyComboBoxSprache._allowFreiText = False
Me.MyComboBoxSprache._value = ""
Me.MyComboBoxSprache.FormattingEnabled = True
Me.MyComboBoxSprache.Location = New System.Drawing.Point(72, 89)
Me.MyComboBoxSprache.Name = "MyComboBoxSprache"
Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21)
Me.MyComboBoxSprache.TabIndex = 39
'
'usrcntlVerzollungspreise
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.MyComboBoxSprache)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung)
Me.Controls.Add(Me.dgvZusatzleistung)
Me.Controls.Add(Me.cboFirma)
@@ -339,4 +366,6 @@ Partial Class usrcntlVerzollungspreise
Friend WithEvents ZLeistung As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ZPreis As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox
Friend WithEvents Label1 As Label
Friend WithEvents MyComboBoxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

View File

@@ -616,6 +616,10 @@ Public Class frmFormulare
End If
End Sub
MyFlowLayoutPanel1.Controls.Add(c)
Dim sprachen() As String = {"DE", "EN"}
c.MyComboBoxSprache.Items.Clear()
c.MyComboBoxSprache.Items.AddRange(sprachen)
End If
Case FormularManagerArten.Boniteatsauskunft
Dim c As New usrcntlCreditreformBoniAuskunft