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
2020-10-02 10:37:26 +02:00
parent ce31c2c398
commit 75b12f314d
42 changed files with 1131 additions and 510 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -113,7 +113,14 @@ Public Class frmKundenUebersichtZOLL
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
KdSearchBox1.initKdBox(Me) ', lblKdNr)
@@ -1155,7 +1162,14 @@ Public Class frmKundenUebersichtZOLL
End Sub
Private Sub btnUbersicht_Click(sender As Object, e As EventArgs) Handles btnUbersicht.Click
Dim rptKundeUebersicht As New SDL.rptKundeUebersicht(kdNr)
Dim Firma = "VERAG"
Select Case cboKundenblattFirma._value
Case "7" : Firma = "ATILLA"
Case "20" : Firma = "IMEX"
End Select
Dim rptKundeUebersicht As New SDL.rptKundeUebersicht(kdNr, cboKundenblattFirma._value, Firma)
Dim rpt As New frmPrintLayout
rpt.Text = ""