neu
This commit is contained in:
@@ -46,6 +46,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
FISKAL = New cFiskal_Daten(kdnr)
|
||||
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
||||
|
||||
cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
@@ -54,39 +55,56 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
If ADRESSE.AdressenNr <= 0 Then
|
||||
|
||||
ComboBox2.Items.Clear()
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
|
||||
ComboBox2.changeItem("1000000-1099990")
|
||||
Case "UNISPED"
|
||||
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
|
||||
ComboBox2.changeItem("2000000-2099990")
|
||||
Case "AMBAR"
|
||||
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(" 100000-199999: ATILLA", "100000-199999"))
|
||||
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
||||
'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", "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"))
|
||||
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
||||
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
|
||||
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
||||
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
|
||||
ComboBox2.changeItem("728000-799999")
|
||||
End Select
|
||||
cboKundenkreis.Items.Clear()
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
|
||||
|
||||
Else
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
|
||||
cboKundenkreis.changeItem("1000000-1099990")
|
||||
Case "UNISPED"
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
|
||||
cboKundenkreis.changeItem("2000000-2099990")
|
||||
Case "AMBAR"
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
|
||||
cboKundenkreis.changeItem("3000000-3099990")
|
||||
Case "ATILLA"
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
||||
'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"))
|
||||
cboKundenkreis.changeItem("100000-199999")
|
||||
|
||||
|
||||
Case Else
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
|
||||
End If
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
||||
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
|
||||
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
|
||||
cboKundenkreis.changeItem("728000-799999")
|
||||
End Select
|
||||
End If
|
||||
|
||||
pnlNeukunde.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
|
||||
End If
|
||||
|
||||
usrCntlAufschubkonten.initMe(kdnr)
|
||||
|
||||
ucKundenKontakte.btn.Visible = (kdnr > 0)
|
||||
@@ -334,9 +352,9 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
If ADRESSE.AdressenNr <= 0 Then
|
||||
|
||||
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
|
||||
If Not cboKundenkreis._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False
|
||||
|
||||
Dim s_KdNr = ComboBox2._value.Split("-")
|
||||
Dim s_KdNr = cboKundenkreis._value.Split("-")
|
||||
Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
|
||||
|
||||
If kdnr > 0 Then
|
||||
@@ -1056,27 +1074,33 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
|
||||
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKundenkreis.SelectedIndexChanged
|
||||
|
||||
If ADRESSE Is Nothing OrElse ADRESSE.AdressenNr <= 0 Then
|
||||
Select Case ComboBox2._value
|
||||
Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20")
|
||||
Case "728000-799999" : cbxFiBu.Checked = True
|
||||
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11")
|
||||
Case "500000-599999" : cbxFiBu.Checked = True
|
||||
Case "900000-999999" : cbxFiBu.Checked = False
|
||||
Case "100000-199999" : cbxFiBu.Checked = False
|
||||
|
||||
Select Case cboKundenkreis._value
|
||||
Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
|
||||
Case "2000000-2099990" : cbxFiBu.Checked = False : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
|
||||
Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
||||
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
|
||||
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
||||
Case "900000-999999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
||||
Case "100000-199999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
||||
Case "9900000-9999999" : cbxFiBu.Checked = False : cboFirma.changeItem("17") : cboFiliale.changeItem("5801")
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "VERAG"
|
||||
If ComboBox2._value = "100000-199999" Then
|
||||
If cboKundenkreis._value = "100000-199999" Then
|
||||
cboFiliale.changeItem("4801")
|
||||
ElseIf ComboBox2._value = "1000000-1999999" Then
|
||||
ElseIf cboKundenkreis._value = "1000000-1999999" Then
|
||||
cboFiliale.changeItem("5501")
|
||||
Else
|
||||
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@@ -1085,7 +1109,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cbxFiBu.Enabled = cboFiliale._value <> ""
|
||||
cbxFiBuLG.Enabled = cboFiliale._value <> ""
|
||||
If selCheck Then
|
||||
cbxFiBu.Checked = (cboFirma._value <> "")
|
||||
' cbxFiBu.Checked = (cboFirma._value <> "") --> unterschiedlich
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1106,11 +1130,24 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
Private Sub cbxFiBu_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFiBu.CheckedChanged, cbxFiBuLG.CheckedChanged
|
||||
If sender.checked Then
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
If KUNDE IsNot Nothing And KUNDE.hasEntry Then
|
||||
FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(KUNDE.FilialenNr, False)
|
||||
End If
|
||||
Select Case FirmaTmp
|
||||
Case "IMEX"
|
||||
selCheck = False
|
||||
cboFirma._value = 20
|
||||
selCheck = True
|
||||
If cboFiliale._value = "5501" Then
|
||||
selCheck = False
|
||||
cboFirma._value = 20
|
||||
selCheck = True
|
||||
End If
|
||||
Case "FRONTOFFICE"
|
||||
If cboFiliale._value = "5801" Then
|
||||
selCheck = False
|
||||
cboFirma._value = 17
|
||||
selCheck = True
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user