Index: TAOR rework/TAOR rework/Rework/Rework.vb
===================================================================
diff -u -r2069 -r2070
--- TAOR rework/TAOR rework/Rework/Rework.vb	(.../Rework.vb)	(revision 2069)
+++ TAOR rework/TAOR rework/Rework/Rework.vb	(.../Rework.vb)	(revision 2070)
@@ -3,12 +3,13 @@
     Public Sub New()
     End Sub
 
-    Public Sub New(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As Boolean)
+    Public Sub New(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As Boolean, ByVal oorsprongId As String)
         Me.barcode = barcode
         Me.reden = reden(0)
         Me.redenLabel = reden(1)
         Me.onderdeel = onderdeel
         Me.VoorVoorraad = voorVoorraad
+        Me.OorsprongID = oorsprongId
         opslaanArdis = True
     End Sub
 
@@ -27,6 +28,7 @@
     Public Property EtiketTekst As String
     Public Property Reden As String
     Public Property RedenLabel As String
+    Public Property OorsprongID As String
 
     'Caché velden
     Public Property DueOut As String