Fremdsped korr.

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -37,9 +37,9 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
         Me.txtAbf_Planzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label42 = New System.Windows.Forms.Label()
-        Me.cboFremdspeditionExport = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFremdspeditionExport = New System.Windows.Forms.ComboBox()
         Me.lblHinweisKdNr = New System.Windows.Forms.Label()
-        Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
         Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
         Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
         Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
@@ -448,17 +448,12 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'cboFremdspeditionExport
         '
-        Me.cboFremdspeditionExport._allowedValuesFreiText = Nothing
-        Me.cboFremdspeditionExport._allowFreiText = False
-        Me.cboFremdspeditionExport._value = ""
         Me.cboFremdspeditionExport.Enabled = False
-        Me.cboFremdspeditionExport.FormattingEnabled = True
         Me.cboFremdspeditionExport.Items.AddRange(New Object() {"", "SEBERT", "SCHENKER", "AS-SPED", "NIETEN", "BUCHAUER"})
         Me.cboFremdspeditionExport.Location = New System.Drawing.Point(526, 222)
         Me.cboFremdspeditionExport.Name = "cboFremdspeditionExport"
         Me.cboFremdspeditionExport.Size = New System.Drawing.Size(126, 21)
         Me.cboFremdspeditionExport.TabIndex = 240
-        Me.cboFremdspeditionExport.Text = "SEBERT"
         '
         'lblHinweisKdNr
         '
@@ -473,17 +468,12 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'cboFremdspedition
         '
-        Me.cboFremdspedition._allowedValuesFreiText = Nothing
-        Me.cboFremdspedition._allowFreiText = False
-        Me.cboFremdspedition._value = ""
         Me.cboFremdspedition.Enabled = False
-        Me.cboFremdspedition.FormattingEnabled = True
         Me.cboFremdspedition.Items.AddRange(New Object() {"", "SEBERT", "SCHENKER", "AS-SPED", "NIETEN", "BUCHAUER"})
         Me.cboFremdspedition.Location = New System.Drawing.Point(333, 222)
         Me.cboFremdspedition.Name = "cboFremdspedition"
         Me.cboFremdspedition.Size = New System.Drawing.Size(126, 21)
         Me.cboFremdspedition.TabIndex = 238
-        Me.cboFremdspedition.Text = "SEBERT"
         '
         'cbxVerzolltBei
         '
@@ -4705,7 +4695,7 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents UsrCntlKundeFiskaldaten1 As usrCntlKundeFiskaldaten
     Friend WithEvents UsrCntlKundenBesonderheiten1 As usrCntlKundenBesonderheiten
     Friend WithEvents cbxBesonderheitenNEU As CheckBox
-    Friend WithEvents cboFremdspedition As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboFremdspedition As System.Windows.Forms.ComboBox
     Friend WithEvents cbxVerzolltBei As CheckBox
     Friend WithEvents Label93 As Label
     Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -4725,7 +4715,7 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents btnUIDPruef As Button
     Friend WithEvents Button13 As Button
     Friend WithEvents cbxVerzolltBeiExport As CheckBox
-    Friend WithEvents cboFremdspeditionExport As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboFremdspeditionExport As System.Windows.Forms.ComboBox
     Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
     Friend WithEvents Panel1 As Panel
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
 
 Public Class usrcntlKundeBearbeitenFull
 
@@ -367,9 +368,11 @@ Public Class usrcntlKundeBearbeitenFull
 
         cbxVerzolltBei.Checked = KUNDE_ERW.kde_KundeFremdspedition
         cboFremdspedition.Text = If(KUNDE_ERW.kde_verzolltBei, "")
+        'cboFremdspedition.changeItem(If(KUNDE_ERW.kde_verzolltBei, ""))
         cbxVerzolltBeiExport.Checked = KUNDE_ERW.kde_KundeFremdspeditionExport
-        cboFremdspeditionExport.Text = If(KUNDE_ERW.kde_verzolltBeiExport, "")
+        'cboFremdspeditionExport.changeItem(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
-        MsgBox(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
+        cboFremdspeditionExport.Text = (If(KUNDE_ERW.kde_verzolltBeiExport, ""))
+        '   MsgBox(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
         initBesonderheitenNEU()
 
         initKdKontakSpeziell()