offerten, Bonit, Kundenuebersicht
This commit is contained in:
@@ -102,7 +102,7 @@ Public Class usrcntlCreditsafe
|
||||
|
||||
If cs.authenticate() = "200" Then
|
||||
|
||||
Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "")
|
||||
Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "", -1)
|
||||
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
|
||||
initDGV(dataTable)
|
||||
Cursor = Cursors.Default
|
||||
|
||||
@@ -62,7 +62,7 @@ SELECT ba_Datum" & sqlIndex & ",ba_GruendundsDatum,ba_Umsatz,ba_Mitarbeiter,ba_
|
||||
FROM tblBonitaetsauskunft
|
||||
where ba_KundenNr= " & KdSearchBox1.KdNr_value & "
|
||||
|
||||
UNION ALL
|
||||
UNION ALL
|
||||
|
||||
|
||||
SELECT
|
||||
|
||||
@@ -32,7 +32,7 @@ Public Class frmOffertenBearbeiten
|
||||
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
|
||||
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
|
||||
|
||||
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen ORDER BY Filialen.FilialenNr", False, "FMZOLL")
|
||||
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
|
||||
|
||||
|
||||
Dim where = ""
|
||||
@@ -42,20 +42,27 @@ Public Class frmOffertenBearbeiten
|
||||
cboSprache.Enabled = False
|
||||
cboSprache.changeItem("DE")
|
||||
where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) "
|
||||
|
||||
If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0
|
||||
Case "VERAG"
|
||||
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" AndAlso KUNDE.FilialenNr = 8001 AndAlso (KUNDE.KundenNrZentrale <> 140000 And KUNDE.KundenNrZentrale <> 150000 And KUNDE.KundenNrZentrale <> 180000) Then
|
||||
cboSprache.changeItem(KUNDE_ERW.kde_Fakturierung_Sprache)
|
||||
cboSprache.Enabled = True
|
||||
|
||||
Else
|
||||
cboSprache.changeItem("DE")
|
||||
cboSprache.Enabled = False
|
||||
End If
|
||||
If cboFiliale.Items.Count > 4 Then cboFiliale.SelectedIndex = 3 Else
|
||||
Case Else
|
||||
cboSprache.changeItem("DE")
|
||||
cboSprache.Enabled = False
|
||||
If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0
|
||||
|
||||
End Select
|
||||
|
||||
If cboFiliale.Items.Count = 0 Then cboFiliale.changeItem("")
|
||||
|
||||
|
||||
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where KundenNr=" & kdnr & " and [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
|
||||
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " & where & " order by OffertenNr"
|
||||
|
||||
@@ -86,7 +93,7 @@ Public Class frmOffertenBearbeiten
|
||||
If c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.MyCheckBoxValue) Then
|
||||
' MsgBox(c._value)
|
||||
If c.enabled And c.checked Then
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, cboFiliale._value, False)
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, IIf(cboFiliale._value <> "", cboFiliale._value, Nothing), False)
|
||||
o.Art = "Neuanlage"
|
||||
o.SAVE() 'speichern
|
||||
o.LOAD_POSITIONEN() 'positionen Laden
|
||||
|
||||
@@ -2842,7 +2842,7 @@ Public Class usrCntlKundenuebersicht
|
||||
Else
|
||||
land = ADRESSE.LandKz
|
||||
End If
|
||||
Dim company As New cCreditSafeAPI.Company("", "", "", land, 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, "", "", "", "", "", "", "", "", "", kdNr)
|
||||
|
||||
If lblBonitaetsdatum._value <> Nothing Then
|
||||
|
||||
@@ -2850,6 +2850,8 @@ Public Class usrCntlKundenuebersicht
|
||||
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
|
||||
|
||||
cs.AddCompanyToPortfolio(company)
|
||||
|
||||
If lastChecked = Today Then
|
||||
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
|
||||
If bonaus IsNot Nothing Then
|
||||
@@ -2994,6 +2996,70 @@ Public Class usrCntlKundenuebersicht
|
||||
KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
|
||||
KDERW.SAVE()
|
||||
updateDatenarchivId()
|
||||
|
||||
|
||||
'--------------------- weitere Kunden derselben CS-ID mitupdaten!
|
||||
|
||||
Dim DTweitereKundenMitCreditsaveId As DataTable = SQL.loadDgvBySql("select kde_KundenNr from [tblKundenErweitert] where kde_KundenNr <> " & kdNr & " and kde_CreditSaveId = '" & company.creditSafeId & "'", "FMZOLL")
|
||||
|
||||
If DTweitereKundenMitCreditsaveId.Rows.Count > 0 Then
|
||||
|
||||
For Each row As DataRow In DTweitereKundenMitCreditsaveId.Rows
|
||||
|
||||
If IsNumeric(row.Item("kde_KundenNr")) AndAlso row.Item("kde_KundenNr") > 0 Then
|
||||
|
||||
Dim cBonTemp = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
|
||||
|
||||
cBonTemp.ba_datenarchivId = cBonitaetsauskunft.ba_datenarchivId
|
||||
cBonTemp.ba_BonitaetsIndex = cBonitaetsauskunft.ba_BonitaetsIndex
|
||||
cBonTemp.ba_Risikostufe = cBonitaetsauskunft.ba_Risikostufe
|
||||
cBonTemp.ba_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
|
||||
cBonTemp.ba_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
|
||||
cBonTemp.ba_CreditSaveRisikoklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
|
||||
cBonTemp.ba_forcedRequest = cBonitaetsauskunft.ba_forcedRequest
|
||||
cBonTemp.ba_KundenNr = (row.Item("kde_KundenNr"))
|
||||
cBonTemp.ba_Datum = Now()
|
||||
cBonTemp.ba_Pruefungstool = cBonitaetsauskunft.ba_Pruefungstool
|
||||
cBonTemp.ba_CScounterBeforeRequest = cBonitaetsauskunft.ba_CScounterBeforeRequest
|
||||
cBonTemp.ba_CScounterAfterRequest = cBonitaetsauskunft.ba_CScounterAfterRequest
|
||||
cBonTemp.ba_CSmax = cBonitaetsauskunft.ba_CSmax
|
||||
cBonTemp.ba_CScountry = cBonitaetsauskunft.ba_CScountry
|
||||
cBonTemp.ba_Bankverbindung = cBonitaetsauskunft.ba_Bankverbindung
|
||||
cBonTemp.ba_Zahlungsweise = cBonitaetsauskunft.ba_Zahlungsweise
|
||||
cBonTemp.ba_Sonstiges = cBonitaetsauskunft.ba_Sonstiges
|
||||
cBonTemp.ba_GSName = cBonitaetsauskunft.ba_GSName
|
||||
cBonTemp.ba_UID = cBonitaetsauskunft.ba_UID
|
||||
cBonTemp.ba_GruendundsDatum = cBonitaetsauskunft.ba_GruendundsDatum
|
||||
cBonTemp.ba_Umsatz = cBonitaetsauskunft.ba_Umsatz
|
||||
cBonTemp.ba_Geschaeftszweck = cBonitaetsauskunft.ba_Geschaeftszweck
|
||||
cBonTemp.ba_Sachbearbeiter = cBonitaetsauskunft.ba_Sachbearbeiter
|
||||
cBonTemp.ba_MaId = cBonitaetsauskunft.ba_MaId
|
||||
cBonTemp.ba_LetztesBearbeitungsDatum = cBonitaetsauskunft.ba_LetztesBearbeitungsDatum
|
||||
cBonTemp.ba_Firma = cBonitaetsauskunft.ba_Firma
|
||||
cBonTemp.ba_Adresse1 = cBonitaetsauskunft.ba_Adresse1
|
||||
cBonTemp.ba_Adresse2 = cBonitaetsauskunft.ba_Adresse2
|
||||
cBonTemp.ba_Mitarbeiter = cBonitaetsauskunft.ba_Mitarbeiter
|
||||
cBonTemp.ba_Hoechstkredit = cBonitaetsauskunft.ba_Hoechstkredit
|
||||
cBonTemp.ba_GFName = cBonitaetsauskunft.ba_GFName
|
||||
|
||||
If cBonTemp.SAVE Then
|
||||
|
||||
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonTemp.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonTemp.ba_Datum & "', Höchstkredit=" & If(cBonTemp.ba_Hoechstkredit Is Nothing, "null", "'" & cBonTemp.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonTemp.ba_KundenNr & "'", "FMZOLL")
|
||||
Dim KDERW_TEMP As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(row.Item("kde_KundenNr"))
|
||||
KDERW_TEMP.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
|
||||
KDERW_TEMP.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
|
||||
KDERW_TEMP.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
|
||||
KDERW_TEMP.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
|
||||
KDERW_TEMP.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -3117,7 +3183,7 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
pdfObject = cs.getPDF(company, failureDesc)
|
||||
|
||||
cs.AddCompanyToPortfolio(company)
|
||||
'cs.AddCompanyToPortfolio(company)
|
||||
|
||||
cs.getSubscriptionCountries(dt)
|
||||
|
||||
@@ -3278,9 +3344,10 @@ Public Class usrCntlKundenuebersicht
|
||||
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
|
||||
Dim cs = New cCreditSafeAPI("creditsafe")
|
||||
Dim checklastDate As Boolean = True
|
||||
|
||||
If cs.authenticate() = "200" Then
|
||||
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
|
||||
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
|
||||
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
|
||||
|
||||
Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
|
||||
@@ -3288,7 +3355,7 @@ Public Class usrCntlKundenuebersicht
|
||||
If currentBonID > 0 Then company.csBonID = currentBonID
|
||||
|
||||
Dim dt As New DataTable()
|
||||
cs.getCompanyEvents(company, dt, False)
|
||||
cs.getCompanyEvents(company, dt, checklastDate)
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim frm As New Form
|
||||
@@ -3303,6 +3370,27 @@ Public Class usrCntlKundenuebersicht
|
||||
If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
|
||||
End If
|
||||
|
||||
If checklastDate Then
|
||||
|
||||
'Update KUNDEN
|
||||
|
||||
'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")
|
||||
|
||||
' company.csBonID = cBonitaetsauskunft.ba_id
|
||||
|
||||
' Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
|
||||
' KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
|
||||
' KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
|
||||
' KDERW.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
|
||||
' KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
|
||||
' KDERW.SAVE()
|
||||
' updateDatenarchivId()
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
dgv.DataSource = dt
|
||||
|
||||
|
||||
Reference in New Issue
Block a user