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

Anpassungen CreditSafe

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-09 08:28:28 +02:00
parent a648a0bdde
commit a272dca129
15 changed files with 1434 additions and 262 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1477,45 +1477,75 @@ Public Class usrcntlKundeBearbeitenFull
Cursor = Cursors.WaitCursor
Dim f As New frmCreditSafeSearch
Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe()
Using tmpForm As Form = New Form()
tmpForm.Width = UserControl1.Width
tmpForm.Height = UserControl1.Height + 40
tmpForm.Text = "Creditsafe-Firmensuche"
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then
txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city
txtFirmenname1.Text = UserControl1.comp.name
txtCreditsafe.Text = UserControl1.comp.credissafeId
txtStrasse.Text = UserControl1.comp.street
txtOrt.Text = UserControl1.comp.city
txtPlz.Text = UserControl1.comp.postCode
txtTel.Text = UserControl1.comp.phoneNo
If f.ShowDialog = DialogResult.OK Then
If UserControl1.comp.country IsNot Nothing Then
cbxLandKz.changeItem(UserControl1.comp.country.Substring(0, 1))
End If
If UserControl1.comp.vatNo <> "" Then
cboUSt_UstIdNrLand.changeItem(UserControl1.comp.vatNo.Substring(0, 2))
If UserControl1.comp.country <> "" Then
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
Else
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
End If
End If
txtKurzname.Text = f.UsrcntlCreditsafe1.comp.name & ";" & f.UsrcntlCreditsafe1.comp.city
txtFirmenname1.Text = f.UsrcntlCreditsafe1.comp.name
txtCreditsafe.Text = f.UsrcntlCreditsafe1.comp.credissafeId
txtStrasse.Text = f.UsrcntlCreditsafe1.comp.street
txtOrt.Text = f.UsrcntlCreditsafe1.comp.city
txtPlz.Text = f.UsrcntlCreditsafe1.comp.postCode
txtTel.Text = f.UsrcntlCreditsafe1.comp.phoneNo
If f.UsrcntlCreditsafe1.comp.country IsNot Nothing Then
cbxLandKz.changeItem(f.UsrcntlCreditsafe1.comp.country.Substring(0, 1))
End If
If f.UsrcntlCreditsafe1.comp.vatNo <> "" Then
cboUSt_UstIdNrLand.changeItem(f.UsrcntlCreditsafe1.comp.vatNo.Substring(0, 2))
If f.UsrcntlCreditsafe1.comp.country <> "" Then
txtUSt_UstIdNr.Text = f.UsrcntlCreditsafe1.comp.vatNo.Replace(f.UsrcntlCreditsafe1.comp.country, "").Replace(" ", "")
Else
txtUSt_UstIdNr.Text = f.UsrcntlCreditsafe1.comp.vatNo
End If
End If
End Using
End Using
End If
'Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe()
' Using tmpForm As Form = New Form()
' tmpForm.Width = UserControl1.Width
' tmpForm.Height = UserControl1.Height + 40
' tmpForm.Text = "Creditsafe-Firmensuche"
' tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
' tmpForm.Controls.Add(UserControl1)
' If tmpForm.ShowDialog() = DialogResult.OK Then
' txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city
' txtFirmenname1.Text = UserControl1.comp.name
' txtCreditsafe.Text = UserControl1.comp.credissafeId
' txtStrasse.Text = UserControl1.comp.street
' txtOrt.Text = UserControl1.comp.city
' txtPlz.Text = UserControl1.comp.postCode
' txtTel.Text = UserControl1.comp.phoneNo
' If UserControl1.comp.country IsNot Nothing Then
' cbxLandKz.changeItem(UserControl1.comp.country.Substring(0, 1))
' End If
' If UserControl1.comp.vatNo <> "" Then
' cboUSt_UstIdNrLand.changeItem(UserControl1.comp.vatNo.Substring(0, 2))
' If UserControl1.comp.country <> "" 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
Cursor = Cursors.Default