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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-02-02 21:19:23 +01:00
parent 595851ec3c
commit 3aaf328ce6
16 changed files with 59 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -112,15 +112,31 @@ Public Class frmKundenUebersichtZOLL
Case 99 : Me.Close() : Exit Sub
End Select
'End If
cboKundenblattFirma.Items.Clear()
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (alle)", "1,11,15"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (AG)", "1"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (CS)", "11"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG + ATILLA", "1,11,15,7"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
cboKundenblattFirma.SelectedIndex = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
cboKundenblattFirma.SelectedIndex = 0
Case "UNISPED"
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "21,22,23"))
cboKundenblattFirma.SelectedIndex = 0
Case "ATILLA"
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
cboKundenblattFirma.SelectedIndex = 0
Case "AMBAR"
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "24"))
cboKundenblattFirma.SelectedIndex = 0
Case "VERAG"
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (alle)", "1,11,15"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (AG)", "1"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG (CS)", "11"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "7"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG + ATILLA", "1,11,15,7"))
cboKundenblattFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "20"))
cboKundenblattFirma.SelectedIndex = 0
Case Else
'
End Select
KdSearchBox1.initKdBox(Me) ', lblKdNr)
@@ -1166,6 +1182,7 @@ Public Class frmKundenUebersichtZOLL
Select Case cboKundenblattFirma._value
Case "7" : Firma = "ATILLA"
Case "20" : Firma = "IMEX"
Case "21,22,23" : Firma = "UNISPED"
End Select