Index: TAOR rework/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb
===================================================================
diff -u -r1869 -r1883
--- TAOR rework/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1869)
+++ TAOR rework/TAOR rework/nieuwdomein/managers/MustInheritSifonLadeManager.vb	(.../MustInheritSifonLadeManager.vb)	(revision 1883)
@@ -91,8 +91,6 @@
     Public Overrides Sub Produceer()
         Dim specialLaden As New List(Of SpecialLade)
         For Each lade In Laden
-            'Opslaan in Caché
-            OpslaanGegenereerdeOnderdelen(lade)
             'Converteren naar special lade.
             Dim specialLade As SpecialLade = New SifonLade()
             'Tpe bepalen en instellen.
@@ -134,37 +132,4 @@
         hoofdaansturingSifonLade.verwerkenSpecialLadeMetTrays(specialLaden)
     End Sub
 
-    ''' <summary>
-    ''' Opslaan van de gegenereerde onderdelen in Caché: zijkanten en ruggen.
-    ''' </summary>
-    Private Sub OpslaanGegenereerdeOnderdelen(lade As TLadeType)
-        For Each onderdeelOrigineelEnGegenereerd In lade.GeefGegenereerdeEnOrigineleOnderdelen()
-            If Configs.geefVerwerkStatus Then
-                Dim origineelOnderdeel = onderdeelOrigineelEnGegenereerd(0)
-                Dim gegenereerdonderdeel = onderdeelOrigineelEnGegenereerd(1)
-                'De naam van het onderdeel opvragen.
-                Dim nieuwOnderdeelNaam As String
-                If TypeOf origineelOnderdeel Is Zijkant Then
-                    Dim origineleZijkant As Zijkant = origineelOnderdeel
-                    Dim gegenereerdeZijkant As Zijkant = gegenereerdonderdeel
-
-                    'Zijkant L.
-                    nieuwOnderdeelNaam = Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(gegenereerdeZijkant.ArdisDataL.sifonLadeGeefOnderdeelLetter)
-                    'Opslaan in Caché.
-                    CacheMapper.OpslaanGegenereerdeOnderdelen(origineleZijkant.ArdisDataL, gegenereerdeZijkant.ArdisDataL, nieuwOnderdeelNaam)
-
-                    'Zijkant R.
-                    nieuwOnderdeelNaam = Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(gegenereerdeZijkant.ArdisDataR.sifonLadeGeefOnderdeelLetter)
-                    'Opslaan in Caché.
-                    CacheMapper.OpslaanGegenereerdeOnderdelen(origineleZijkant.ArdisDataR, gegenereerdeZijkant.ArdisDataR, nieuwOnderdeelNaam)
-                ElseIf TypeOf origineelOnderdeel Is Rug Then
-                    'Rug
-                    Dim origineleRug As Rug = origineelOnderdeel
-                    Dim gegenereerdeRug As Rug = gegenereerdonderdeel
-                    CacheMapper.OpslaanGegenereerdeOnderdelen(origineleRug.ArdisData, gegenereerdeRug.ArdisData, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug())
-                End If
-            End If
-        Next
-    End Sub
-
 End Class
Index: TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r1869 -r1883
--- TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1869)
+++ TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1883)
@@ -528,41 +528,4 @@
         Return nieuweTeller
     End Function
 
-    ''' <summary>
-    ''' Opslaan van gegenereerde onderdeel door eerst het origineel op te vragen, bepaalde velden aan te passen, en dan te inserten.
-    ''' </summary>
-    ''' <param name="origineelOnderdeel">Het originele onderdeel.</param>
-    ''' <param name="nieuwOnderdeel">Het nieuwe onderdeel.</param>
-    ''' <param name="nieuwOnderdeelNaam">Naam voor het nieuwe onderdeel.</param>
-    Public Sub OpslaanGegenereerdeOnderdelen(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String)
-        LogBestandTextMapper.writeToFile("Cache", $"Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel. Barcode bestaand onderdeel, barcode nieuw onderdeel: '{origineelOnderdeel.PartCalc}' '{nieuwOnderdeel.PartCalc}'")
-
-        Dim query As String = "Insert into APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem (BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID) "
-        query &= "select top 1 BatchID, DossierCode, DueOut, ?, Kar, MachineID, ?, PartijID, ProductID, SequentieNummer, ?, ?, ?, ToeleveringID, ? from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem where VerwerkingID=?"
-        Try
-            'Commando initialiseren.
-            Dim addCommand As New OdbcCommand With {
-                .CommandText = query,
-                .Connection = _sqlConnection
-            }
-
-            addCommand.Parameters.AddWithValue("@isReworkNieuw", OdbcType.VarChar).Value = False
-            addCommand.Parameters.AddWithValue("@OnderdeelNieuw", OdbcType.VarChar).Value = nieuwOnderdeelNaam
-            addCommand.Parameters.AddWithValue("@StapNummerNieuw", OdbcType.VarChar).Value = 0
-            addCommand.Parameters.AddWithValue("@TijdstipCreatieNieuw", OdbcType.VarChar).Value = Now.ToString("yyyy-MM-dd HH:mm:ss")
-            addCommand.Parameters.AddWithValue("@TijdstipProductieNieuw", OdbcType.VarChar).Value = Now.ToString("yyyy-MM-dd HH:mm:ss")
-            addCommand.Parameters.AddWithValue("@VerwerkingIDNieuw", OdbcType.VarChar).Value = nieuwOnderdeel.PartCalc
-            addCommand.Parameters.AddWithValue("@VerwerkingIDOrigineel", OdbcType.VarChar).Value = origineelOnderdeel.PartCalc
-
-            'Connecteren met Caché.
-            ConnectToCache()
-            'Query uitvoeren.
-            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}")
-        End Try
-        LogBestandTextMapper.writeToFile("Cache", $"Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel. Barcode bestaand onderdeel, barcode nieuw onderdeel: '{origineelOnderdeel.PartCalc}' '{nieuwOnderdeel.PartCalc}'", True)
-    End Sub
-
 End Module
\ No newline at end of file