Index: TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb
===================================================================
diff -u -r1913 -r2068
--- TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1913)
+++ TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb	(.../CacheMapper.vb)	(revision 2068)
@@ -416,7 +416,7 @@
         'Huidige datum registreren.
         Dim datum As String = Now.ToString("yyyy-MM-dd HH:mm:ss")
         'De query opbouwen.
-        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, ReworkReden) values ('" & rework.batch & "', '" & rework.dossierCode & "', '" & rework.DueOut & "', '" & rework.IsRework & "', '" & rework.kar & "', '" & rework.MachineID & "', '" & rework.OrigineelOnderdeel & "', '" & rework.PartijID & "', '" & rework.ProductID & "', '" & rework.SequentieNummer & "', '" & rework.StapNummer & "', '" & datum & "', '" & datum & "' ,'" & rework.ToeleveringID & "', '" & rework.barcode & "', '" & rework.reden & "')"
+        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, ReworkReden, OorsprongID) values ('{rework.batch}', '{rework.dossierCode}', '{rework.DueOut}', '{rework.IsRework}', '{rework.kar}', '{rework.MachineID}', '{rework.OrigineelOnderdeel}', '{rework.PartijID}', '{rework.ProductID}', '{rework.SequentieNummer}', '{rework.StapNummer}', '{datum}', '{datum}' ,'{rework.ToeleveringID}', '{rework.barcode}', '{rework.reden}', '{Environ("computername")}')"
         Try
             'Voer het commando uit.
             ExecuteCommand(query)