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

CredtisafeAPI erweitert

Browse Source
This commit is contained in:
d.breimaier
2023-03-31 11:56:47 +02:00
parent 71c7a97aad
commit fcaf27b69c
1 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -585,6 +585,8 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value) KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value)
KUNDE_ERW.kde_CreditSaveId = isLeerNothing(txtCreditsafe.Text)
' ----- Fremdsped ----- ' ----- Fremdsped -----
@@ -1477,23 +1479,32 @@ Public Class usrcntlKundeBearbeitenFull
If tmpForm.ShowDialog() = DialogResult.OK Then If tmpForm.ShowDialog() = DialogResult.OK Then
txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city
txtFirmenname1.Text = UserControl1.comp.name txtFirmenname1.Text = UserControl1.comp.name
cboUSt_UstIdNrLand.changeItem(UserControl1.comp.country)
If UserControl1.comp.country IsNot Nothing Then
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
Else
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
End If
txtCreditsafe.Text = UserControl1.comp.credissafeId txtCreditsafe.Text = UserControl1.comp.credissafeId
txtStrasse.Text = UserControl1.comp.street txtStrasse.Text = UserControl1.comp.street
txtOrt.Text = UserControl1.comp.city txtOrt.Text = UserControl1.comp.city
txtPlz.Text = UserControl1.comp.postCode txtPlz.Text = UserControl1.comp.postCode
txtTel.Text = UserControl1.comp.phoneNo txtTel.Text = UserControl1.comp.phoneNo
If UserControl1.comp.country IsNot Nothing Then
cbxLandKz.changeItem(UserControl1.comp.country.Substring(0, 1))
End If End If
If UserControl1.comp.vatNo IsNot Nothing Then
cboUSt_UstIdNrLand.changeItem(UserControl1.comp.vatNo.Substring(0, 2))
If UserControl1.comp.country IsNot Nothing Then
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
Else
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
End If
End If
End If
End Using End Using
End Using End Using