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

mailinfo

Browse Source
This commit is contained in:
d.breimaier
2025-09-30 15:48:51 +02:00
parent 0f4aad9a21
commit 3071728208
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6421,7 +6421,7 @@ weiter:
Dim cs = New cCreditSafeAPI("creditsafe")
Dim Mailinfolast2Years As Boolean = False
Dim Mailinfolast1Year As Boolean = False
If cs.authenticate() = "200" Then
@@ -6476,7 +6476,7 @@ repeatRequestDailyPages:
End If
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-1) & "' ", "FMZOLL")
Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL")
@@ -6519,16 +6519,16 @@ repeatRequestDailyPages:
If sendMail Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Mailinfolast2Years = True
Mailinfolast1Year = True
Else
Mailinfolast2Years = exists
Mailinfolast1Year = exists
End If
End If
repeatRequest:
Dim APIText As String = ""
If exists Then
APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast2Years, row("Firma"))
APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast1Year, row("Firma"))
End If
If (APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler")) Then