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
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -67,6 +67,7 @@ Public Class usrcntlKundeBearbeitenFull
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")
@@ -251,6 +252,8 @@ Public Class usrcntlKundeBearbeitenFull
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
' ----- Abfertigungsverbot -----
' cboAbfVerb_Kreditlimit.Checked=loadValue(KUNDE.Kreditlimit, "")
' txtVers_Kreditlimit._value=loadValue(KUNDE.Kreditlimit vom, "")
@@ -292,6 +295,8 @@ Public Class usrcntlKundeBearbeitenFull
txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "")
txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "")
txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "")
cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
@@ -488,6 +493,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
' ----- Abfertigungsverbot -----
@@ -527,6 +533,7 @@ Public Class usrcntlKundeBearbeitenFull
ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text)
ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text)
ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text)
ADRESSE.UTAKundenNr = isLeerNothing(txtSonst_KdNrUTA.Text)
ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked
ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked
ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked