neu
This commit is contained in:
@@ -64,14 +64,14 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
|
||||
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"))
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-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")
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
|
||||
cboKundenkreis.changeItem("1080000-1099990")
|
||||
Case "UNISPED"
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
|
||||
cboKundenkreis.changeItem("2000000-2099990")
|
||||
@@ -96,7 +96,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "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"))
|
||||
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
|
||||
cboKundenkreis.changeItem("728000-799999")
|
||||
End Select
|
||||
End If
|
||||
@@ -110,10 +110,10 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
pnlNeukunde.Visible = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
|
||||
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
|
||||
|
||||
@@ -379,6 +379,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End Function
|
||||
|
||||
Function loadDataInKdAd() As Boolean
|
||||
|
||||
If ADRESSE.AdressenNr <= 0 Then
|
||||
|
||||
If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
|
||||
@@ -390,13 +391,18 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
If cbxLandKz._value = "A" Then
|
||||
kundenkreis = "2200250-2209999" 'AT-Kundenkreis
|
||||
Else
|
||||
kundenkreis = "2256000 -2259990" 'ausl.Kundenkreis
|
||||
kundenkreis = "2256000-2259990" 'ausl.Kundenkreis
|
||||
End If
|
||||
End Select
|
||||
|
||||
Dim s_KdNr = kundenkreis.Split("-")
|
||||
Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben:
|
||||
If WunschKdNr <= 0 Then kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
|
||||
|
||||
If WunschKdNr <= 0 Then
|
||||
|
||||
kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
|
||||
|
||||
End If
|
||||
|
||||
If kdnr > 0 Then
|
||||
' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
||||
@@ -713,18 +719,18 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
cboFiliale.changeItem("5501")
|
||||
Case "UNISPED"
|
||||
cboFiliale.changeItem("5601")
|
||||
Case "AMBAR"
|
||||
cboFiliale.changeItem("5701")
|
||||
cboFiliale.changeItem("5701")
|
||||
Case "ATILLA"
|
||||
cboFiliale.changeItem("4801")
|
||||
Case Else
|
||||
cboFiliale.changeItem("4803")
|
||||
End Select
|
||||
Case "IMEX"
|
||||
cboFiliale.changeItem("5501")
|
||||
Case "UNISPED"
|
||||
cboFiliale.changeItem("5601")
|
||||
Case "AMBAR"
|
||||
cboFiliale.changeItem("5701")
|
||||
cboFiliale.changeItem("5701")
|
||||
Case "ATILLA"
|
||||
cboFiliale.changeItem("4801")
|
||||
Case Else
|
||||
cboFiliale.changeItem("4803")
|
||||
End Select
|
||||
|
||||
|
||||
cboAuswahl.Items.Clear()
|
||||
@@ -1034,6 +1040,11 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
||||
btnFirmendatenFormularSpeichern.Enabled = False
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
|
||||
Label97.Visible = True
|
||||
Button4.Visible = True
|
||||
End If
|
||||
tbcntrAbf.TabPages.Remove(TabPage4)
|
||||
|
||||
If Filiale > 0 Then
|
||||
@@ -1153,7 +1164,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
If ADRESSE Is Nothing OrElse ADRESSE.AdressenNr <= 0 Then
|
||||
|
||||
Select Case cboKundenkreis._value
|
||||
Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
|
||||
Case "1080000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
|
||||
Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
|
||||
Case "3000000-3099990" : cbxFiBu.Checked = True : cboFirma.changeItem("24") : cboFiliale.changeItem("5701")
|
||||
Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
|
||||
@@ -1171,7 +1182,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
Case "VERAG"
|
||||
If cboKundenkreis._value = "100000-199999" Then
|
||||
cboFiliale.changeItem("4801")
|
||||
ElseIf cboKundenkreis._value = "1000000-1999999" Then
|
||||
ElseIf cboKundenkreis._value = "1000000-1099999" Then
|
||||
cboFiliale.changeItem("5501")
|
||||
Else
|
||||
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
|
||||
@@ -1311,4 +1322,15 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cboKundenkreis.changeItem("2000000-2099999")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
If KUNDE Is Nothing Then Exit Sub
|
||||
If CheckBox1.Checked Then btnFirmendatenFormularSpeichern.PerformClick() 'Speichern!
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
|
||||
Dim f As New frmKundenSyska_DatenÜbertragen(KUNDE.KundenNr)
|
||||
f.ShowDialog(Me)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user