Index: TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r2073 -r2081
--- TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 2073)
+++ TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 2081)
@@ -33,7 +33,9 @@
     Private Function ExecuteIntoDataReader(query As String) As OdbcDataReader
         Try
             ConnectToCache()
-            Return New OdbcCommand(query, _sqlConnection).ExecuteReader()
+            dim cmd =  New OdbcCommand(query, _sqlConnection)
+            cmd.CommandTimeout = 0
+            return cmd.ExecuteReader()
         Catch ex As Exception
             Throw New Exception($"Kon datareader niet opvragen uit Caché datatabank.{vbNewLine}{ex.Message}")
         End Try
@@ -115,7 +117,7 @@
             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 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 top 500 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)