Creditsafe Verbesserungen, Mehrfach-UID-Verwendung eingebaut.
This commit is contained in:
@@ -2721,7 +2721,7 @@ Public Class usrCntlKundenuebersicht
|
||||
Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click
|
||||
|
||||
Dim UID As String = ""
|
||||
Dim land As String = checkNullStr(ADRESSE.UstIdKz)
|
||||
Dim land As String = "" 'checkNullStr(ADRESSE.UstIdKz)
|
||||
Dim name As String = checkNullStr(ADRESSE.Name_1)
|
||||
|
||||
Cursor = Cursors.WaitCursor
|
||||
@@ -2735,9 +2735,19 @@ Public Class usrCntlKundenuebersicht
|
||||
UID = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr)
|
||||
End If
|
||||
|
||||
Select Case checkNullStr(ADRESSE.LandKz)
|
||||
|
||||
Case "A", "" : land = "AT"
|
||||
Case "D" : land = "DE"
|
||||
|
||||
Case Else
|
||||
land = ADRESSE.LandKz
|
||||
|
||||
End Select
|
||||
|
||||
Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land)
|
||||
Using tmpForm As Form = New Form()
|
||||
tmpForm.Width = UserControl1.Width
|
||||
tmpForm.Width = UserControl1.Width + 10
|
||||
tmpForm.Height = UserControl1.Height + 40
|
||||
tmpForm.Text = "Creditsafe-Firmensuche"
|
||||
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
|
||||
@@ -2758,27 +2768,24 @@ Public Class usrCntlKundenuebersicht
|
||||
'If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then
|
||||
If cs.authenticate("creditsafe@verag.ag", "^AZcBVTBUIHTT5SQ1C9OOH") = "200" Then
|
||||
|
||||
|
||||
'Prüfung wird benötigt, da deutsche Abfragen einen Reasoncode benötigen!
|
||||
If checkNullStr(ADRESSE.LandKz) = "" Then
|
||||
MsgBox("Land im Kunden muss hinterlegt sein!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim laenderKZ As String
|
||||
|
||||
Select Case ADRESSE.LandKz
|
||||
|
||||
Case "A" : laenderKZ = "AT"
|
||||
Case "D" : laenderKZ = "DE"
|
||||
Case "A" : land = "AT"
|
||||
Case "D" : land = "DE"
|
||||
|
||||
Case Else
|
||||
laenderKZ = "AT"
|
||||
land = ADRESSE.LandKz
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
Dim company As New cCreditSafeAPI.Company("", "", laenderKZ, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing)
|
||||
Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing)
|
||||
Dim pdfObject As Byte() = Nothing
|
||||
If lblBonitaetsdatum._value <> Nothing Then
|
||||
|
||||
@@ -2788,7 +2795,7 @@ Public Class usrCntlKundenuebersicht
|
||||
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
|
||||
MsgBox(cs.getReport(company, True, pdfObject))
|
||||
cs.getReport(company, True, pdfObject)
|
||||
setCreditSafeEntry(company, pdfObject, kdNr)
|
||||
End If
|
||||
|
||||
@@ -2799,7 +2806,7 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
Else
|
||||
|
||||
MsgBox(cs.getReport(company, True, pdfObject))
|
||||
cs.getReport(company, True, pdfObject)
|
||||
setCreditSafeEntry(company, pdfObject, kdNr)
|
||||
|
||||
End If
|
||||
@@ -2819,6 +2826,10 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer)
|
||||
|
||||
If company.csFailure <> "" Then
|
||||
MsgBox(company.csFailure)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
|
||||
|
||||
@@ -2854,12 +2865,12 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
cBonitaetsauskunft.ba_Hoechstkredit = cProgramFunctions.isLeerNothingDbl(company.csMaxCreditAmount)
|
||||
cBonitaetsauskunft.ba_Hoechstkredit = IIf(company.csMaxCreditAmount <> "", CDbl(company.csMaxCreditAmount), 0) 'cProgramFunctions.isLeerNothingDbl(CDbl(company.csMaxCreditAmount), 0)
|
||||
cBonitaetsauskunft.ba_Bankverbindung = ""
|
||||
cBonitaetsauskunft.ba_Zahlungsweise = ""
|
||||
cBonitaetsauskunft.ba_GFName = ""
|
||||
cBonitaetsauskunft.ba_Sonstiges = ""
|
||||
cBonitaetsauskunft.ba_GruendundsDatum = company.csDFoundingDate
|
||||
cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
|
||||
|
||||
If cBonitaetsauskunft.SAVE Then
|
||||
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
|
||||
|
||||
4188
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
4188
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -353,6 +353,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
|
||||
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
|
||||
cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False)
|
||||
cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung
|
||||
|
||||
|
||||
txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked
|
||||
@@ -582,6 +583,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
||||
KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
|
||||
KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB = cbxSndDatenAusSTB.Checked
|
||||
KUNDE_ERW.kde_UIDMehrfachverwendung = cbxUIDMehrfachverwendung.Checked
|
||||
|
||||
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
|
||||
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
|
||||
@@ -678,7 +680,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
Dim err = ""
|
||||
If Not ADRESSE.VALID(err, KUNDE) Then
|
||||
If Not ADRESSE.VALID(err, KUNDE, cbxUIDMehrfachverwendung.Checked) Then
|
||||
txtERROR.Text = err : Exit Sub
|
||||
End If
|
||||
If Not KUNDE.VALID(err) Then
|
||||
|
||||
Reference in New Issue
Block a user