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

LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

Browse Source
This commit is contained in:
d.breimaier
2024-06-20 10:01:00 +02:00
parent e928df34a0
commit fe4b4304bc
23 changed files with 1646 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
Imports System.ServiceModel.Configuration
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN
@@ -2649,9 +2650,9 @@ Public Class usrCntlKundenuebersicht
Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
Dim msgErgebnis
Select Case eoripruef.eori_valid
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid)
If PdfTmp <> "" Then
@@ -2831,32 +2832,53 @@ 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
' If cs.checkDateOfLastRequest(company) < lastChecked Then
Dim dtEvents As New DataTable
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
dtEvents.Columns.Add("eventId", GetType(String))
dtEvents.Columns.Add("companyId", GetType(String))
dtEvents.Columns.Add("portfolioId", GetType(String))
dtEvents.Columns.Add("ruleName", GetType(String))
dtEvents.Columns.Add("localEventCode", GetType(String))
dtEvents.Columns.Add("globalEventCode", GetType(String))
dtEvents.Columns.Add("newValue", GetType(String))
dtEvents.Columns.Add("oldValue", GetType(String))
dtEvents.Columns.Add("eventDate", GetType(DateTime))
dtEvents.Columns.Add("createdDate", GetType(DateTime))
cs.getCompanieEvents(company, dtEvents)
If dtEvents.Rows.Count > 0 Then
dtEvents.DefaultView.Sort = "eventDate desc"
If dtEvents.Rows(0).Item("eventDate") < 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
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
End If
Else
setCreditsafereportEntry(cs, company)
End If
Else
setCreditsafereportEntry(cs, company)
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If
End If
initCreditsave()
setKD(kdNr)
Cursor = Cursors.Default