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

Kundenkontakte, Mitarbeiter, Bonitaetsauskungt, FIBU, Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2024-09-12 09:44:32 +02:00
parent 5f65123413
commit 708bdcf5d1
9 changed files with 289 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -33,8 +33,11 @@ Public Class cBonitaetsauskunft
Property ba_Geschaeftszweck As Object = Nothing
Property ba_GSName As Object = Nothing
Property ba_UID As String = ""
Property ba_forcedRequest As Boolean = False
Property ba_CScounterBeforeRequest As Integer = 0
Property ba_CScounterAfterRequest As Integer = 0
Property ba_CSmax As Integer = 0
Property ba_CScountry As String = ""
Dim SQL As New SQL
@@ -80,6 +83,10 @@ Public Class cBonitaetsauskunft
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_UID", ba_UID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_forcedRequest", ba_forcedRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterBeforeRequest", ba_CScounterBeforeRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterAfterRequest", ba_CScounterAfterRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CSmax", ba_CSmax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScountry", ba_CScountry))
Return list
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -408,7 +408,7 @@ Public Class cMitarbeiter
Me.mit_homeoffice = dr.Item("mit_homeoffice")
Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")
If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat")
Me.mit_timasNichtStempeln = dr.Item("mit_ausstempelnBeiBeenden")
Me.mit_ausstempelnBeiBeenden = dr.Item("mit_ausstempelnBeiBeenden")
Catch ex As Exception