Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb
===================================================================
diff -u -r1607 -r1608
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb	(.../FormGrid.vb)	(revision 1607)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb	(.../FormGrid.vb)	(revision 1608)
@@ -255,17 +255,17 @@
         klapToeOpen()
     End Sub
 
-    Private Sub laadGridCacheMetFilter(filter As String)
+    ''' <summary>
+    ''' Datagrid laden aan de hand van een filter. De data wordt zelf opgehaald.
+    ''' </summary>
+    ''' <param name="filter">De filter</param>
+    Private Sub LaadGridCacheMetFilter(filter As String)
         Try
-            Dim datareader As OdbcDataReader = CacheMapper.GeefdataTable(_tabel, _waarde, filter)
-
-            Dim dt = New DataTable()
-            dt.Load(datareader)
             DataGridViewCache.AutoGenerateColumns = True
-            DataGridViewCache.DataSource = dt
+            'Data table opvragen en toewijzen aan grid view.
+            DataGridViewCache.DataSource = CacheMapper.GeefdataTable(_tabel, _waarde, filter)
             DataGridViewCache.Refresh()
-            datareader.Close()
-
+            'Rework knoppen per rij een keer laten updaten.
             refreshReworkButtonsGridCache()
         Catch ex As Exception
             MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
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}")
 
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1603 -r1608
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1603)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1608)
@@ -205,7 +205,7 @@
     </Compile>
     <Compile Include="databases\Kantenband\KantenbandData.vb" />
     <Compile Include="databases\Kantenband\KantenbandMapper.vb" />
-    <Compile Include="Rework\HoofdAansturingRework.vb" />
+    <Compile Include="rework\HoofdAansturingRework.vb" />
     <Compile Include="formulieren\FormSelectID.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -237,20 +237,20 @@
     </Compile>
     <Compile Include="databases\Automilling\AutomillingMapper.vb" />
     <Compile Include="databases\Ardis\ArdisMapper.vb" />
-    <Compile Include="Rework\PrinterBacklogDocMapper.vb" />
-    <Compile Include="Rework\ReworkRedenen.vb" />
+    <Compile Include="rework\PrinterBacklogDocMapper.vb" />
+    <Compile Include="rework\ReworkRedenen.vb" />
     <Compile Include="Configuraties\ReworkRedenenMapperXML.vb" />
     <Compile Include="Configuraties\OnderdelenTextFileMapper.vb" />
-    <Compile Include="Rework\Rework.vb" />
+    <Compile Include="rework\Rework.vb" />
     <Compile Include="Configuraties\ReworkRedenenRepository.vb" />
-    <Compile Include="Rework\ReworkRepository.vb" />
-    <Compile Include="Rework\ReworkTray.vb" />
-    <Compile Include="Rework\ReworkTrayRepository.vb" />
+    <Compile Include="rework\ReworkRepository.vb" />
+    <Compile Include="rework\ReworkTray.vb" />
+    <Compile Include="rework\ReworkTrayRepository.vb" />
     <Compile Include="Configuraties\ReworkTraySlotMapperXML.vb" />
-    <Compile Include="Rework\ReworkTraySlotRepository.vb" />
+    <Compile Include="rework\ReworkTraySlotRepository.vb" />
     <Compile Include="laden\special laden\Sifonladen\SifonLade.vb" />
     <Compile Include="laden\Testladen\Sleutel.vb" />
-    <Compile Include="Rework\Slot.vb" />
+    <Compile Include="rework\Slot.vb" />
     <Compile Include="laden\special laden\DiepereZijkant\SpecialLadeDiepereZijkant.vb" />
     <Compile Include="laden\SpecialLadenOnderdelen.vb" />
     <Compile Include="laden\special laden\SpecialLadenRepository.vb" />