API Creditsafe

This commit is contained in:
2023-03-29 09:30:45 +02:00
parent 30f380d9af
commit ee2131a5c7
5 changed files with 28 additions and 19 deletions

View File

@@ -101,7 +101,7 @@ Public Class usrcntlCreditsafe
dataTable.Columns.Add("postCode", GetType(String))
dataTable.Columns.Add("status", GetType(String))
dataTable.Columns.Add("phoneNo", GetType(String))
dataTable.Columns.Add("dateOfLatestChange", GetType(String))
dataTable.Columns.Add("dateOfLatestChange", GetType(DateTime))
End Sub
@@ -114,26 +114,27 @@ Public Class usrcntlCreditsafe
With dgvCreditsafe
.RowHeadersWidth = 10
.Columns("id").Visible = False
.Columns("country").Visible = True
.Columns("country").Visible = False
.Columns("name").HeaderText = "Name"
.Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("safeNo").Width = 100
.Columns("safeNo").HeaderText = "Nr"
.Columns("safeNo").Visible = False
.Columns("vatNo").Width = 100
.Columns("vatNo").HeaderText = "UID"
.Columns("regNo").Width = 100
.Columns("regNo").HeaderText = "FN-Nr."
.Columns("regNo").HeaderText = "FB-Nr."
.Columns("street").Width = 100
.Columns("street").HeaderText = "Strasse"
.Columns("city").Width = 100
.Columns("city").HeaderText = "Ort"
.Columns("postCode").Width = 100
.Columns("postCode").Width = 75
.Columns("postCode").HeaderText = "PLZ"
.Columns("phoneNo").Width = 100
.Columns("phoneNo").HeaderText = "Tel-Nr"
.Columns("status").Width = 100
.Columns("status").HeaderText = "Status"
.Columns("dateOfLatestChange").Width = 50
.Columns("dateOfLatestChange").Width = 100
.Columns("dateOfLatestChange").HeaderText = "letzte Änderung"
End With

View File

@@ -87,7 +87,7 @@
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />

View File

@@ -2720,7 +2720,7 @@ Public Class usrCntlKundenuebersicht
Using tmpForm As Form = New Form()
tmpForm.Width = UserControl1.Width
tmpForm.Height = UserControl1.Height + 40
tmpForm.Text = "Creditsafe-Prüfung"
tmpForm.Text = "Creditsafe-Firmensuche"
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then

View File

@@ -1472,7 +1472,7 @@ Public Class usrcntlKundeBearbeitenFull
Using tmpForm As Form = New Form()
tmpForm.Width = UserControl1.Width
tmpForm.Height = UserControl1.Height + 40
tmpForm.Text = "Creditsafe-Prüfung"
tmpForm.Text = "Creditsafe-Firmensuche"
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then