Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r69500 -r69579
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 69500)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 69579)
@@ -68,13 +68,18 @@
 				Do ##class(vhLib.Logger).%New("LADEREGISTRATIE").Info("Registreer","Dubbel gebruik van barcode '"_..Registratie.RegistratieCode_"' op '"_OudeRegistratie.Tijdstip_"'. Indien het tijdstip ouder is dan 30min. en in de logging zijn er meerdere registraties, gelieve dan planning te verwittigen dat ze de rol met de OL etiketten moeten vervangen op lijn "_..Registratie.Werkpost)
 			} Else { 
 				Do ..VulAanMetOrder()
-				
+				#dim OorsprongKetting As TECH.String = ""
 				Try {
 					#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 					#dim Order As DOM.VKP.Order = OrderAPI.GeefOrder(..Registratie.OrderID)
-					Set ..Registratie.OorsprongKetting = Order.GeefOorsprongKetting()
+					Set OorsprongKetting = Order.GeefOorsprongKetting()
+					Set ..Registratie.OorsprongKetting = OorsprongKetting
 				} Catch {
-					Do ##class(vhLib.Logger).%New("LadeRegistratie").Warning("Registreer", "Kon voor ToeleveringID '" _ ..Registratie.ToeleveringID _ "'de OorsprongKetting niet ophalen.")
+					If (OorsprongKetting = "") {
+						Do ##class(vhLib.Logger).%New("LadeRegistratie").Warning("Registreer", "Kon voor ToeleveringID '" _ ..Registratie.ToeleveringID _ "'de OorsprongKetting niet ophalen.")
+					} Else {
+						Do ##class(vhLib.Logger).%New("LadeRegistratie").Warning("Registreer", "Kon voor ToeleveringID '" _ ..Registratie.ToeleveringID _ "'de OorsprongKetting niet wegschrijven. OorsprongKetting: '" _ OorsprongKetting _ "'")
+					}
 					Set ..Registratie.OorsprongKetting = ""
 				}
 				
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml
===================================================================
diff -u -r69195 -r69579
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(.../Registratie.cls.xml)	(revision 69195)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(.../Registratie.cls.xml)	(revision 69579)
@@ -58,6 +58,7 @@
 
 <Property name="OorsprongKetting">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Familie">