Index: ActiviteitenOpvolging/ProductiePitching/mappers/EmployeesDatabaseMapper.vb
===================================================================
diff -u -r1759 -r1763
--- ActiviteitenOpvolging/ProductiePitching/mappers/EmployeesDatabaseMapper.vb (.../EmployeesDatabaseMapper.vb) (revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/mappers/EmployeesDatabaseMapper.vb (.../EmployeesDatabaseMapper.vb) (revision 1763)
@@ -1,4 +1,5 @@
Imports System.Data.SqlClient
+Imports ProductiePitching.configs
Imports ProductiePitching.ServiceAgents
Imports ProductiePitching.ServiceAgents.Implementations
@@ -13,11 +14,6 @@
_activiteitPerBatchServiceAgent = New ActiviteitPerBatchServiceAgent
End Sub
- '''
- ''' Execution of a query into a data reader.
- '''
- ''' The query
- ''' The SQL data reader
Private Function ExecuteIntoDataSet() As DataSet
Try
@@ -90,9 +86,9 @@
Dim employee As New Employee
With employee
.PersonelNumber = ExtractItemFromDataReader(Of Integer)(dataReader, "PersNr", True)
- .Picture = ExtractItemFromDataReader(Of String)(dataReader, "Foto", True, String.Empty)
.FirstName = ExtractItemFromDataReader(Of String)(dataReader, "Voornaam", False, String.Empty)
.LastName = ExtractItemFromDataReader(Of String)(dataReader, "Achternaam", False, String.Empty)
+ .Picture = ConfigsLoader.EmployeePhotoPath + .LastName + " " + .FirstName + ".jpg"
.Initials = ExtractItemFromDataReader(Of String)(dataReader, "Initialen", True)
End With