Anpassungen CreditSafe

2023-05-09 08:28:28 +02:00
parent a648a0bdde
commit a272dca129
15 changed files with 1434 additions and 262 deletions
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -84,6 +84,7 @@ Partial Class usrCntlKundenuebersicht
        Me.txtVorauskasse = New System.Windows.Forms.TextBox()
        Me.lblAviso = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
        Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.txtSammelrechnung = New System.Windows.Forms.TextBox()
@@ -152,6 +153,7 @@ Partial Class usrCntlKundenuebersicht
        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.tbKontaktSpez = New System.Windows.Forms.TabPage()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
        Me.Label38 = New System.Windows.Forms.Label()
        Me.txtDebitorennr = New System.Windows.Forms.TextBox()
        Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel()
@@ -197,6 +199,7 @@ Partial Class usrCntlKundenuebersicht
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.tbAvisoMail = New System.Windows.Forms.TabPage()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
        Me.tbKdSpez = New System.Windows.Forms.TabPage()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label43 = New System.Windows.Forms.Label()
@@ -248,9 +251,6 @@ Partial Class usrCntlKundenuebersicht
        Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnReloadOP = New System.Windows.Forms.Button()
        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
-        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
        Me.cntxtAddVM.SuspendLayout()
        Me.tbWeitereKundenDetails.SuspendLayout()
        Me.tbOfferten.SuspendLayout()
@@ -997,6 +997,16 @@ Partial Class usrCntlKundenuebersicht
        Me.Label2.Text = "Aviso:"
        Me.Label2.Visible = False
        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
        'lblAbfertigungsverbot
        '
        Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red
@@ -1432,11 +1442,14 @@ Partial Class usrCntlKundenuebersicht
        '
        'btnCreditsafe
        '
-        Me.btnCreditsafe.Location = New System.Drawing.Point(582, 3)
+        Me.btnCreditsafe.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.creditsafe
+        Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCreditsafe.Location = New System.Drawing.Point(562, 1)
        Me.btnCreditsafe.Name = "btnCreditsafe"
-        Me.btnCreditsafe.Size = New System.Drawing.Size(67, 20)
+        Me.btnCreditsafe.Size = New System.Drawing.Size(88, 22)
        Me.btnCreditsafe.TabIndex = 10
-        Me.btnCreditsafe.Text = "Creditsafe"
        Me.btnCreditsafe.UseVisualStyleBackColor = True
        Me.btnCreditsafe.Visible = False
        '
@@ -2087,6 +2100,14 @@ Partial Class usrCntlKundenuebersicht
        Me.tbKontaktSpez.Text = "Spezifisch"
        Me.tbKontaktSpez.UseVisualStyleBackColor = True
        '
+        'ucKundenKontakte
+        '
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
        'Label38
        '
        Me.Label38.AutoSize = True
@@ -2713,6 +2734,15 @@ Partial Class usrCntlKundenuebersicht
        Me.tbAvisoMail.Text = "Aviso E-Mails"
        Me.tbAvisoMail.UseVisualStyleBackColor = True
        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
+        '
        'tbKdSpez
        '
        Me.tbKdSpez.Controls.Add(Me.Label14)
@@ -3244,33 +3274,6 @@ Partial Class usrCntlKundenuebersicht
        Me.cboFirmaFMZOLL.TabIndex = 10
        Me.cboFirmaFMZOLL.Visible = False
        '
-        'UsrCntlKundenBesonderheiten1
-        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
-        'ucKundenKontakte
-        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
-        Me.ucKundenKontakte.TabIndex = 0
-        '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
-        '
        'usrCntlKundenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2689,23 +2689,33 @@ Public Class usrCntlKundenuebersicht

            End Select

-            Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land)
-                Using tmpForm As Form = New Form()
-                    tmpForm.Width = UserControl1.Width + 10
-                    tmpForm.Height = UserControl1.Height + 40
-                    tmpForm.Text = "Creditsafe-Firmensuche"
-                    tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
-                    tmpForm.Controls.Add(UserControl1)
-                    If tmpForm.ShowDialog() = DialogResult.OK Then
-                        KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId
-                        KUNDE_ERW.kde_CreditSaveNo = UserControl1.comp.safeNo
-                        KUNDE_ERW.SAVE()

-                    End If
+            Dim f As New frmCreditSafeSearch
+            If f.ShowDialog = DialogResult.OK Then
+                KUNDE_ERW.kde_CreditSaveId = f.UsrcntlCreditsafe1.comp.credissafeId
+                KUNDE_ERW.kde_CreditSaveNo = f.UsrcntlCreditsafe1.comp.safeNo
+                KUNDE_ERW.SAVE()
+            End If


-                End Using
-            End Using
+
+            'Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land)
+            '    Using tmpForm As Form = New Form()
+            '        tmpForm.Width = UserControl1.Width + 10
+            '        tmpForm.Height = UserControl1.Height + 40
+            '        tmpForm.Text = "Creditsafe-Firmensuche"
+            '        tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
+            '        tmpForm.Controls.Add(UserControl1)
+            '        If tmpForm.ShowDialog() = DialogResult.OK Then
+            '            KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId
+            '            KUNDE_ERW.kde_CreditSaveNo = UserControl1.comp.safeNo
+            '            KUNDE_ERW.SAVE()
+
+            '        End If
+
+
+            '    End Using
+            'End Using

        Else
            Dim cs = New cCreditSafeAPI()
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -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