Verzollungspreise weitere Sprache Englisch

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb

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

SDL/Formulare/KDFormulare/frmFormulare.vb

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