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

Timas, MDM Datenverarbeitung (Asfinag), UID-Nr bei Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2024-02-06 11:09:03 +01:00
parent a4609e853d
commit f0d7729100
11 changed files with 633 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -32,6 +32,7 @@ Public Class cBonitaetsauskunft
Property ba_datenarchivId As Object = Nothing
Property ba_Geschaeftszweck As Object = Nothing
Property ba_GSName As Object = Nothing
Property ba_UID As String = ""
Dim SQL As New SQL
@@ -75,6 +76,7 @@ Public Class cBonitaetsauskunft
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_datenarchivId", ba_datenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Geschaeftszweck", ba_Geschaeftszweck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_UID", ba_UID))
Return list
End Function

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -22,6 +22,7 @@ Public Class cMitarbeiter
Property mit_durchwahl As String = ""
Property mit_telefonnr As String = ""
Property mit_email As String = ""
Property mit_emailprivat As String = ""
Property mit_mobiltel As String = ""
Property mit_allowAnruf As Boolean
Property mit_info As String = ""
@@ -202,6 +203,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Sprachkentnisse", mit_Sprachkentnisse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_emailprivat", mit_emailprivat))
Return list
@@ -401,6 +403,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
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")
Catch ex As Exception