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}")
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLade.vb
===================================================================
diff -u -r1596 -r1611
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLade.vb	(.../SifonLade.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLade.vb	(.../SifonLade.vb)	(revision 1611)
@@ -94,14 +94,17 @@
     '4 extra zijkanten maken en ze toevoegen aan de lijst met zijkanten
     Public Sub maakZijkantenBij(lengte As String)
         Dim isEerstePlaatje As Boolean = True
+        Dim nieuweZijkanten as New List(Of ArdisData)
         For teller As Integer = 0 To _zijkanten.Count - 1
             Dim nieuweZijkant As ArdisData = _zijkanten(teller).ShallowCopy()
             nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje)
             isEerstePlaatje = Not isEerstePlaatje
             'opslaan in caché
             opslaanGegenereerdOnderdeel(_zijkanten(teller), nieuweZijkant, Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(nieuweZijkant.sifonLadeGeefOnderdeelLetter))
-            _zijkanten.Add(nieuweZijkant)
+            nieuweZijkanten.Add(nieuweZijkant)
         Next
+        'Nieuwe zijkanten toevoegen aan lijst met alle zijkanten.
+        _zijkanten.AddRange(nieuweZijkanten)
     End Sub
 
     'de etiket lijn aanpassen
Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1596 -r1611
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1611)
@@ -256,7 +256,7 @@
         Try
             getal = PartCalc.Substring(3, 5)
         Catch ex As InvalidCastException
-            Throw New Exception($"Kan oorsprongkelijke lengte rug niet uit de barcode '{PartCalc}' halen, huidige resultaat lengte: '{lengteInBarcode}'")
+            Throw New Exception($"Kan oorspronkelijke lengte rug niet uit de barcode '{PartCalc}' halen, huidige resultaat lengte: '{lengteInBarcode}'")
         End Try
         getal /= 10
         Return getal