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

API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

Browse Source
This commit is contained in:
d.breimaier
2024-04-17 08:50:07 +02:00
parent 928df14ded
commit 39169c98f8
14 changed files with 230 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/kunden/usrCntlKundenBesonderheiten.vb
View File

@@ -85,7 +85,7 @@ Public Class usrCntlKundenBesonderheiten
End Sub
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
If dgvBesonderheiten.Columns IsNot Nothing Then
If dgvBesonderheiten.Columns IsNot Nothing AndAlso dgvBesonderheiten.Columns.Count > 0 Then
dgvBesonderheiten.Columns.Clear()
End If

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2739,10 +2739,10 @@ Public Class usrCntlKundenuebersicht
Else
Dim cs = New cCreditSafeAPI()
Dim cs = New cCreditSafeAPI("creditsafe")
'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
If cs.authenticate() = "200" Then
'Prüfung wird benötigt, da deutsche Abfragen einen Reasoncode benötigen!
If checkNullStr(ADRESSE.LandKz) = "" Then
@@ -2788,7 +2788,7 @@ Public Class usrCntlKundenuebersicht
Else
MsgBox("Authentifizierungsfehler für User " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser)
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If