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

Anlage für Neukunden - Sicherheitsprüfung eingebaut

Browse Source
This commit is contained in:
d.breimaier
2023-05-05 09:57:54 +02:00
parent b9b30c6324
commit 3bbbe430c6
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

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