Änderungen f Ambar (ilyas)

SDL/kunden/frmBonitaet.vb

@@ -30,6 +30,8 @@ Public Class frmBonitaet
                 cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
             ElseIf vbYes <> MsgBox("Es wurde heute um '" & cBonitaetsauskunft.ba_Datum.ToShortTimeString & "' bereits eine Bonitätsauskunft für den Kunden eingeholt, möchten Sie diese überschreiben?", vbYesNoCancel) Then
                 Exit Sub
+            Else
+                cBonitaetsauskunft.ba_datenarchivId = Nothing
             End If
 
             cBonitaetsauskunft.ba_KundenNr = (KdNR)

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2709,6 +2709,7 @@ Public Class usrCntlKundenuebersicht
         Dim name As String = checkNullStr(ADRESSE.Name_1)
 
         Cursor = Cursors.WaitCursor
+        btnCreditsafe.Enabled = False 'doppelklick verhindern!
 
         KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
 
@@ -2754,7 +2755,6 @@ Public Class usrCntlKundenuebersicht
 
                     Case "A" : land = "AT"
                     Case "D" : land = "DE"
-
                     Case Else
                         land = ADRESSE.LandKz
 
@@ -2765,9 +2765,23 @@ Public Class usrCntlKundenuebersicht
 
                 If lblBonitaetsdatum._value <> Nothing Then
 
+
                     Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
                     company.lastChecked = lastChecked
 
+                    If lastChecked = Today Then
+                        Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
+                        If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
+                            MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
+                            Cursor = Cursors.Default
+                            btnCreditsafe.Enabled = True
+                            Exit Sub
+                        End If
+                    End If
+
+
+
+
                     If cs.checkDateOfLastRequest(company) < lastChecked Then
                         Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
                         If a = vbYes Then
@@ -2797,6 +2811,7 @@ Public Class usrCntlKundenuebersicht
         initCreditsave()
         setKD(kdNr)
         Cursor = Cursors.Default
+        btnCreditsafe.Enabled = True
 
     End Sub
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -426,6 +426,8 @@ Public Class usrcntlKundeBearbeitenFull
                     Else
                         kundenkreis = "2262630-2291290" 'ausl.Kundenkreis
                     End If
+                Case "AMBAR"
+                    cbxFiBu.Checked = True
             End Select
 
             Dim s_KdNr = kundenkreis.Split("-")