Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r73006 -r73300
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 73006)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 73300)
@@ -38,7 +38,7 @@
 	Set ..Registratie.ObjectRef=ObjectRef
 	Set ..Registratie.RegistratieCode=RegistratieCodeVanUrl
 	Set ..Registratie.MESSysteemID = MESSystemID
-		
+	
 	If (..Registratie.ObjectType="D")  ; via Dossiercode
 	{
 		#dim IsVermoedelijkEenDnaCode As %Boolean = ( $Length(..Registratie.ObjectRef)=7 )
@@ -62,6 +62,7 @@
 		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaDnaCode(..Registratie.ObjectRef)
 		If DnaCodeIterator.HasNext() {
 			Set DnaCode = DnaCodeIterator.Next()
+			Set ..Registratie.PRNr = DnaCode.ProductNummer
 			#dim DossierCode As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(DnaCode.LadeCode)
 		}
 		Do ..VulAanViaDossierCode(DossierCode)
@@ -81,6 +82,7 @@
 				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()
Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u -r73273 -r73300
--- WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 73273)
+++ WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 73300)
@@ -69,7 +69,7 @@
 	
 	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler(Werkpost)
 	Set RegisterOlTag.OlTag = (DataOphaler.ExtractRegistratieCodeVanURL(RegisterOlTag.OlTag))
-	Do DataOphaler.Registreer("O", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
+	Set Response.Info = DataOphaler.Registreer("O", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")	
 	
 	Quit Response
 ]]></Implementation>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml
===================================================================
diff -u -r64251 -r73300
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(.../MVXDataOphaler.cls.xml)	(revision 64251)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/MVXDataOphaler.cls.xml	(.../MVXDataOphaler.cls.xml)	(revision 73300)
@@ -29,7 +29,12 @@
 <FormalSpec>DossierCode:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim PRNr As %String = ..ZoekDossierCode(DossierCode)
+	#dim PRNr As %String
+	
+	If $$$Not(..Registratie.PRNr) {
+		Set PRNr=..ZoekDossierCode(DossierCode)
+	}
+	
 	If PRNr {
 		Set ..Registratie.PRNr = PRNr
 		Do ..ZoekToeleveringViaProduct()
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml
===================================================================
diff -u -r57785 -r73300
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml	(.../TBXDataOphaler.cls.xml)	(revision 57785)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml	(.../TBXDataOphaler.cls.xml)	(revision 73300)
@@ -29,7 +29,12 @@
 <FormalSpec>DossierCode:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set PRNr=..ZoekDossierCode(DossierCode)
+	#dim PRNr As %String
+	
+	If $$$Not(..Registratie.PRNr) {
+		Set PRNr=..ZoekDossierCode(DossierCode)
+	}
+	
 	If PRNr {
 		Set ..Registratie.PRNr = PRNr
 		Do ..ZoekToeleveringViaProduct()
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml
===================================================================
diff -u -r57785 -r73300
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml	(.../LBXDataOphaler.cls.xml)	(revision 57785)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml	(.../LBXDataOphaler.cls.xml)	(revision 73300)
@@ -33,7 +33,12 @@
 <FormalSpec>DossierCode:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set PRNr=..ZoekDossierCode(DossierCode)
+	#dim PRNr As %String
+	
+	If $$$Not(..Registratie.PRNr) {
+		Set PRNr=..ZoekDossierCode(DossierCode)
+	}
+	
 	If PRNr {
 		Set ..Registratie.PRNr = PRNr
 		Do ..ZoekToeleveringViaProduct()
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml
===================================================================
diff -u -r57785 -r73300
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml	(.../TAXDataOphaler.cls.xml)	(revision 57785)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml	(.../TAXDataOphaler.cls.xml)	(revision 73300)
@@ -34,7 +34,12 @@
 <FormalSpec>DossierCode:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set PRNr=..ZoekDossierCode(DossierCode)
+	#dim PRNr As %String
+	
+	If $$$Not(..Registratie.PRNr) {
+		Set PRNr=..ZoekDossierCode(DossierCode)
+	}
+	
 	If PRNr {
 		Set ..Registratie.PRNr = PRNr
 		Do ..ZoekToeleveringViaProduct()