Index: TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r1606 -r1608
--- TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1606)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1608)
@@ -109,18 +109,18 @@
             Dim filterTekst = String.Empty
             If filter IsNot Nothing Then
                 'De filter is gespecifieerd.
-                filterTekst = $"AND Onderdeel = '{filter}'"
+                filterTekst = $" AND Onderdeel = '{filter}' "
             End If
 
             'De query wordt opgebouwd met de data en de eventuele filter.
-            Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as VisualStyleElement.Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where {kolomnaam} {equalsOfLikeSleutelwoord} '{waarde}' {filterTekst} group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar"
+            Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where {kolomnaam} {equalsOfLikeSleutelwoord} '{waarde}'{filterTekst}group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar"
 
             'Uitvoeren van query en datareader retourneren.
             Dim dr = ExecuteIntoDataReader(query)
             LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'", True)
             Return dr
         Catch ex As Exception
-            Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'")
+            Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}")
         End Try
     End Function
 
@@ -159,11 +159,11 @@
             Dim filterTekst = String.Empty
             If filter IsNot Nothing Then
                 'De filter is gespecifieerd.
-                filterTekst = $"AND Onderdeel = '{filter}'"
+                filterTekst = $" AND Onderdeel = '{filter}' "
             End If
 
             'De query wordt opgebouwd met de data en de eventuele filter.
-            Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, ISNULL(Kar, '') as Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where (BatchID='{batch}') AND Kar = '{kar}' AND Onderdeel = '{filterTekst}') group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar"
+            Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, ISNULL(Kar, '') as Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where (BatchID='{batch}' AND Kar = '{kar}'{filterTekst}) group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar"
 
             'Uitvoeren van query en datareader retourneren.
             Dim dr = ExecuteIntoDataReader(query)
@@ -354,12 +354,16 @@
                 Throw New Exception($"Er is geen record in Caché gevonden voor barcode '{barcode}' om een rework te updaten")
             End If
         Catch ex As Exception
-            Throw New Exception($"Er is een fout opgetreden bij het updaten van een rework met data uit database Caché  {vbNewLine}{ex.Message}")
+            Throw New Exception($"Er is een fout opgetreden bij het updaten van een rework met data uit database Caché {vbNewLine}{ex.Message}")
         End Try
         LogBestandTextMapper.writeToFile("Caché", "Updaten van rework met informatie uit databank.", True)
         Return rework
     End Function
 
+    ''' <summary>
+    ''' Opslaan van de rework reden.
+    ''' </summary>
+    ''' <param name="rework">De reden</param>
     Public Sub OpslaanReworkReden(ByRef rework As Rework)
         LogBestandTextMapper.writeToFile("Caché", $"Opslaan rework reden met reden: {rework.reden}")