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

31
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -66,12 +66,13 @@ Public Class usrcntlKundeBearbeitenFull
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
ComboBox2.changeItem("3000000-3099990")
Case "ATILLA"
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")
Case Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA Bar/Sonstige", "100000-199999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
End If
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
@@ -327,7 +328,7 @@ Public Class usrcntlKundeBearbeitenFull
Function loadDataInKdAd() As Boolean
If ADRESSE.AdressenNr <= 0 Then
If ComboBox1.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
If Not ComboBox2._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False
Dim s_KdNr = ComboBox2._value.Split("-")
@@ -343,7 +344,7 @@ Public Class usrcntlKundeBearbeitenFull
' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
KUNDE.KundenNr = kdnr
KUNDE.KundenNrZentrale = kdnr
KUNDE.FilialenNr = ComboBox1._value
KUNDE.FilialenNr = cboFiliale._value
KUNDE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
KUNDE.Eingegeben_am = Now.ToShortDateString
KUNDE.INIT_NEWKD_DATA()
@@ -617,18 +618,18 @@ Public Class usrcntlKundeBearbeitenFull
cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True)
ComboBox1.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL")
cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
ComboBox1.changeItem("5501")
cboFiliale.changeItem("5501")
Case "UNISPED"
ComboBox1.changeItem("5601")
cboFiliale.changeItem("5601")
Case "AMBAR"
ComboBox1.changeItem("5701")
cboFiliale.changeItem("5701")
Case "ATILLA"
ComboBox1.changeItem("4801")
cboFiliale.changeItem("4801")
Case Else
ComboBox1.changeItem("4803")
cboFiliale.changeItem("4803")
End Select
cboAuswahl.Items.Clear()
cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
@@ -1063,9 +1064,11 @@ Public Class usrcntlKundeBearbeitenFull
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
If ComboBox2._value = "100000-199999" Then
ComboBox1.changeItem("5501")
cboFiliale.changeItem("4801")
ElseIf ComboBox2._value = "1000000-1999999" Then
cboFiliale.changeItem("5501")
Else
If ComboBox1._value = "4801" Then ComboBox1.changeItem("4803")
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
End If
End Select
End Sub