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

Fremdsped korr.

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-11 21:18:05 +01:00
parent e6284b28f1
commit f73b7f3e93
2 changed files with 9 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

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

7
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -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, "")
MsgBox(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
'cboFremdspeditionExport.changeItem(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
cboFremdspeditionExport.Text = (If(KUNDE_ERW.kde_verzolltBeiExport, ""))
' MsgBox(If(KUNDE_ERW.kde_verzolltBeiExport, ""))
initBesonderheitenNEU()
initKdKontakSpeziell()