From 3bbbe430c6d6a4ab779bd7f169cfab37e446fd93 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 5 May 2023 09:57:54 +0200
Subject: [PATCH] =?UTF-8?q?Anlage=20f=C3=BCr=20Neukunden=20-=20Sicherheits?=
 =?UTF-8?q?pr=C3=BCfung=20eingebaut?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SDL/Creditsafe/usrcntlCreditsafe.vb | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/SDL/Creditsafe/usrcntlCreditsafe.vb b/SDL/Creditsafe/usrcntlCreditsafe.vb
index 520f5e99..c5d6fd12 100644
--- a/SDL/Creditsafe/usrcntlCreditsafe.vb
+++ b/SDL/Creditsafe/usrcntlCreditsafe.vb
@@ -11,9 +11,11 @@ Public Class usrcntlCreditsafe
     Dim dataTable As New DataTable()
     Public comp As Company
     Dim uidDefault As String
+    Public createCostumer As Boolean = False
     Sub New()
 
         InitializeComponent()
+        createCostumer = True
         init()
 
     End Sub
@@ -200,8 +202,19 @@ Public Class usrcntlCreditsafe
         Next
 
         If comp.safeNo Is Nothing Or comp.safeNo = "" Then
-            lblWarning.Text = "Daten von Creditsafe sind unvollständig, es kann kein Creditreport erstellt werden!"
-            o.DialogResult = DialogResult.None
+            If Not createCostumer Then
+                lblWarning.Text = "Daten von Creditsafe sind unvollständig, es kann kein Creditreport erstellt werden!"
+                o.DialogResult = DialogResult.None
+            Else
+                Dim a As MsgBoxResult = MsgBox("Die Daten des Unternehmens " & comp.name & " sind unnvollständig " & vbNewLine & "Trotzdem fortfahren?", vbYesNo)
+                If a = vbYes Then
+                    o.DialogResult = DialogResult.OK
+                    Exit Sub
+                Else
+                    o.DialogResult = DialogResult.None
+                End If
+            End If
+
         ElseIf comp.status.ToLower <> "active" Then
             Dim a As MsgBoxResult = MsgBox("Das Unternehmen " & comp.name & " besitzt den Status: " & comp.status & vbNewLine & "Trotzdem fortfahren?", vbYesNo)
             If a = vbYes Then
@@ -247,10 +260,15 @@ Public Class usrcntlCreditsafe
             regNo = _regNo
             city = _city
             postCode = _postCode
-            credissafeId = _credissafeId
             phoneNo = _phoneNo
             dateOfLatestChange = dateOfLatestChange
             status = _status
+            If safeNo <> "" And safeNo IsNot Nothing Then
+                credissafeId = _credissafeId
+            Else
+                credissafeId = ""
+            End If
+
         End Sub