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

KdSearchbox, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-12-29 14:53:52 +01:00
parent 5f635227eb
commit 51b7ecf2a0
5 changed files with 324 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -577,28 +577,27 @@ Public Class usrcntlKundeBearbeitenFull
End If
ADRESSE.Auswahl = cboAuswahl._value
ADRESSE.Ordnungsbegriff = isLeerNothing(txtKurzname.Text)
ADRESSE.Ordnungsbegriff = isLeerNothing(txtKurzname.Text.Trim)
ADRESSE.Name_1 = isLeerNothing(txtFirmenname1.Text)
ADRESSE.Name_2 = isLeerNothing(txtFirmenname2.Text)
ADRESSE.Name_2 = isLeerNothing(txtFirmenname2.Text)
ADRESSE.Name_1 = isLeerNothing(txtFirmenname1.Text.Trim)
ADRESSE.Name_2 = isLeerNothing(txtFirmenname2.Text.Trim)
KUNDE_ERW.kde_AdressZusatz = (txtAdresseZusatz.Text)
ADRESSE.Straße = isLeerNothing(txtStrasse.Text)
ADRESSE.PLZ = isLeerNothing(txtPlz.Text)
ADRESSE.Ort = isLeerNothing(txtOrt.Text)
ADRESSE.Straße = isLeerNothing(txtStrasse.Text.Trim)
ADRESSE.PLZ = isLeerNothing(txtPlz.Text.Trim)
ADRESSE.Ort = isLeerNothing(txtOrt.Text.Trim)
ADRESSE.LandKz = isLeerNothing(cbxLandKz._value)
ADRESSE.PLZPF = isLeerNothing(txtPostfachPlz.Text)
ADRESSE.Postfach = isLeerNothing(txtPostfachOrt.Text)
ADRESSE.Telefon = isLeerNothing(txtTel.Text)
ADRESSE.Telefax = isLeerNothing(txtFax.Text)
ADRESSE.Mobiltelefon = isLeerNothing(txtMobil.Text)
ADRESSE.E_Mail = isLeerNothing(txtEmail.Text)
ADRESSE.E_Mail2 = isLeerNothing(txtEmail2.Text)
ADRESSE.Telefon = isLeerNothing(txtTel.Text.Trim)
ADRESSE.Telefax = isLeerNothing(txtFax.Text.Trim)
ADRESSE.Mobiltelefon = isLeerNothing(txtMobil.Text.Trim)
ADRESSE.E_Mail = isLeerNothing(txtEmail.Text.Trim)
ADRESSE.E_Mail2 = isLeerNothing(txtEmail2.Text.Trim)
ADRESSE.Ansprechpartner = isLeerNothing(txtAnsprechpartner.Text)
ADRESSE.Anrede = isLeerNothing(txtAnsprechpartnerAnrede.Text)
ADRESSE.Ansprechpartner = isLeerNothing(txtAnsprechpartner.Text.Trim)
ADRESSE.Anrede = isLeerNothing(txtAnsprechpartnerAnrede.Text.Trim)
' txtBank.Text=ADRESSE.Bankverbindung"