edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

201020

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -54,7 +54,7 @@ Public Class usrcntlKundeBearbeitenFull
End Select
If ADRESSE.AdressenNr <= 0 Then
KUNDE_ERW.kde_BesonderheitenNeu = 1
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"))
@@ -273,6 +273,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
@@ -533,6 +534,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
@@ -684,6 +686,7 @@ Public Class usrcntlKundeBearbeitenFull
cboFiliale.changeItem("5601")
Case "AMBAR"
cboFiliale.changeItem("5701")
MsgBox("AMBAR")
Case "ATILLA"
cboFiliale.changeItem("4801")
Case Else
@@ -1114,6 +1117,7 @@ Public Class usrcntlKundeBearbeitenFull
Select Case cboKundenkreis._value
Case "1000000-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")
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
@@ -1175,6 +1179,12 @@ Public Class usrcntlKundeBearbeitenFull
cboFirma._value = 20
selCheck = True
End If
Case "AMBAR"
If cboFiliale._value = "5701" Then
selCheck = False
cboFirma._value = 24
selCheck = True
End If
Case "FRONTOFFICE"
If cboFiliale._value = "5801" Then
selCheck = False