Index: vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r54403 -r59172
--- vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 54403)
+++ vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRegistratieCodeMeermaalsAanwezig">
+<FormalSpec>RegistratieCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaRegistratieCode">
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</ReturnType>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r56841 -r59172
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 56841)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 59172)
@@ -46,28 +46,38 @@
 	{
 		Do ..VulAanViaQueueID(..Registratie.ObjectRef)
 	}
-
-	If ..Registratie.PRNr
-	{
-		Set OudeRegistratie=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.GaNaarProduct).OpzoekenCode(..Registratie.RegistratieCode)
-		If OudeRegistratie'="",OudeRegistratie.PRNr'=..Registratie.PRNr
+	
+	try {
+		
+		If ..Registratie.PRNr
 		{
-			Do ..SendWarnings(OudeRegistratie)
-			Set ReturnWaarde="Dubbele registratie van "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip
-			Do ##class(vhLib.Logger).%New("LADEREGISTRATIE").Info("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)
-		} 
-		Do ..VulAanMetOrder()
-		Set sc=..Registratie.%Save()
-		If $$$ISERR(sc)
+			#dim LadeRegistratieService As APPS.VKP.Maatwerk.impl.LadeRegistratieService = ##class(APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+			
+			If LadeRegistratieService.IsRegistratieCodeMeermaalsAanwezig(..ExtractRegistratieCodeVanURL(Registratie),..Registratie.PRNr)
+			{
+				//Do ..SendWarnings(OudeRegistratie)
+				//Set ReturnWaarde="Dubbele registratie van "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip
+				Set ReturnWaarde = "Dubbel gebruik van barcode '"_..ExtractRegistratieCodeVanURL(Registratie)_"'"
+				Do ##class(vhLib.Logger).%New("LADEREGISTRATIE").Info("Dubbel gebruik van barcode "_..ExtractRegistratieCodeVanURL(Registratie)) //_..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()
+				Set sc=..Registratie.%Save()
+				If $$$ISERR(sc)
+				{
+					Set ReturnWaarde="Kan registratie niet persisteren "_$$ParseStatus^vhLib(sc)_"; "_..Registratie.RegistratieCode_"."
+				}
+			}
+		}
+		Else
 		{
-			Set ReturnWaarde="Kan registratie niet persisteren "_$$ParseStatus^vhLib(sc)_"; "_..Registratie.RegistratieCode_"."
+			Set ReturnWaarde="Geen product gevonden"
 		}
-		
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set ReturnWaarde = Exception.ToString()
+		Do ##class(vhLib.Logger).%New("").Warning("LadeRegistratie","mislukt voor '"_..ExtractRegistratieCodeVanURL(Registratie)_"' en '"_..Registratie.ObjectRef_"' "_ReturnWaarde)
 	}
-	Else
-	{
-		Set ReturnWaarde="Geen product gevonden"
-	}
+	
 	Quit ReturnWaarde
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r54403 -r59172
--- APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 54403)
+++ APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
@@ -50,6 +50,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRegistratieCodeMeermaalsAanwezig">
+<FormalSpec>RegistratieCode:%String,PRNR:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$False
+	#dim ProductNummer As %String
+	#dim LadeRegistratie As APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie
+	#dim Iterator As TECH.Iterator = ..LadeRegistratieRepository.ZoekViaRegistratieCode(RegistratieCode)
+	If (Iterator.HasNext()) {
+		Set LadeRegistratie = Iterator.Next()
+		If $$$Not(PRNR = LadeRegistratie.PRNr) {
+			Set Resultaat = $$$True
+		}
+	}
+
+	If (Iterator.HasNext()) {
+		Set Resultaat = $$$True
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="ZoekProductNummerViaRegistratieCode">
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r54403 -r59172
--- vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 54403)
+++ vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
@@ -8,6 +8,20 @@
 <Super>APPS.VKP.Maatwerk.impl.LadeRegistratieService,vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratieService</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>LadeRegistratieRepository:APPS.VKP.Maatwerk.impl.LadeRegistratieRepository</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsRegistratieCodeMeermaalsAanwezig">
+<FormalSpec>RegistratieCode:%String,PRNR:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsRegistratieCodeMeermaalsAanwezig",RegistratieCode,PRNR)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekProductNummerViaRegistratieCode">
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>