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

Creditsafe Verbesserungen, Mehrfach-UID-Verwendung eingebaut.

Browse Source
This commit is contained in:
d.breimaier
2023-04-24 13:14:35 +02:00
parent 9519d0612a
commit b4bb2a04a6
6 changed files with 2155 additions and 2128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -353,6 +353,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False)
cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung
txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked
@@ -582,6 +583,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB = cbxSndDatenAusSTB.Checked
KUNDE_ERW.kde_UIDMehrfachverwendung = cbxUIDMehrfachverwendung.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
@@ -678,7 +680,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim err = ""
If Not ADRESSE.VALID(err, KUNDE) Then
If Not ADRESSE.VALID(err, KUNDE, cbxUIDMehrfachverwendung.Checked) Then
txtERROR.Text = err : Exit Sub
End If
If Not KUNDE.VALID(err) Then