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
2019-11-26 14:39:09 +01:00
parent 490ef4a702
commit ca1cc4f8fa
52 changed files with 8152 additions and 4542 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/kunden/frmNeuerKunde.vb
View File

@@ -29,10 +29,10 @@
ComboBox2.changeItem("3000000-3099990")
ComboBox1.changeItem("5701")
Case "ATILLA"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: Sonstige", "100000-199999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
ComboBox2.changeItem("728000-799999")
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
ComboBox2.changeItem("100000-199999")
ComboBox1.changeItem("4801")
Case Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
@@ -98,7 +98,7 @@
If username = "" Then username = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) + 1
kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
If kdnr > 0 Then
@@ -209,8 +209,10 @@
Case "VERAG"
If ComboBox2._value = "100000-199999" Then
ComboBox1.changeItem("4801")
ElseIf ComboBox2._value = "1000000-1999999" Then
ComboBox1.changeItem("5501")
Else
If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803")
If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803")
End If
End Select