Index: TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r1609 -r1611
--- TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1609)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1611)
@@ -433,12 +433,17 @@
             Try
                 'Query uitvoeren en datareader bijhouden.
                 Dim dr = ExecuteIntoDataReader(query)
-                'Velden opvragen uit datareader.
-                teller = CInt(dr.Item("Teller"))
-                maxteller = CInt(dr.Item("MaxTeller"))
-                minTeller = CInt(dr.Item("MinTeller"))
+                If dr.Read() Then
+                    'Velden opvragen uit datareader.
+                    teller = CInt(dr.Item("Teller"))
+                    maxteller = CInt(dr.Item("MaxTeller"))
+                    minTeller = CInt(dr.Item("MinTeller"))
+                Else
+                    'Geen data gevonden.
+                    Throw New Exception("Er werden geen resultaten gevonden bij het opvragen van de tellers uit Caché.")
+                End If
             Catch ex As Exception
-                Throw New Exception($"Er is een fout opgetreden bij het opvragen van de tellers voor een test lade barcode nummer.{vbNewLine}{ex.Message}")
+                Throw New Exception($"Er is een fout opgetreden bij het opvragen van de tellers voor een test lade barcode nummer uit Caché.{vbNewLine}{ex.Message}")
             End Try
 
             'Kijken of maximum waarde van de teller nog niet is overschreden.
@@ -478,7 +483,7 @@
                     dr.Read()
                     teller = dr.Item("Teller")
                 Catch ex As Exception
-                    Throw New Exception($"Er is een fout opgetreden bij het opvragen van de nieuwe teller voor test lade{vbNewLine}{ex.Message}")
+                    Throw New Exception($"Er is een fout opgetreden bij het opvragen van de nieuwe teller voor test lade uit Caché {vbNewLine}{ex.Message}")
                 End Try
                 LogBestandTextMapper.writeToFile("Caché", "Opvragen van de geüpdate teller", True)
 
@@ -533,7 +538,7 @@
             'Connecteren met Caché.
             ConnectToCache()
             'Query uitvoeren.
-            addCommand.ExecuteNonQuery()
+            dim teller = addCommand.ExecuteNonQuery()
 
         Catch ex As Exception
             Throw New Exception($"Er is een fout opgetreden bij het opslaan van de gegenereerde onderdelen in de caché databank {vbNewLine}{ex.Message}")