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-03-23 11:19:27 +01:00
parent b4612ab3e0
commit e625acc609
22 changed files with 2028 additions and 1763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/Fakturierung/frmFaktAufschubSuche.vb
View File

@@ -30,7 +30,12 @@
btnMonat.Text = "Monat"
btnJahr.Text = Now.Year
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
Select Case FirmaTmp
Case "IMEX"
cboKonto.Items.Clear()
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'002719','002718'"))
@@ -44,6 +49,15 @@
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (006145)", "'006145'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST AT (006077)", "'006077'"))
cboKonto.SelectedIndex = 0
Case "VERAGIMEX"
cboKonto.Items.Clear()
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006136','006128','3517233','002719','002718'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG DE EUST (006136)", "'006136'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG DE ZOLL (006128)", "'006128'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG AT ZOLL/EUST (3517233)", "'3517233'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX EUST (002719)", "'002719'"))
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX ZOLL (002718)", "'002718'"))
cboKonto.SelectedIndex = 0
Case Else
cboKonto.Items.Clear()
cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006136','006128','3517233'"))