Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r53243 -r53433
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 53243)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 53433)
@@ -36,23 +36,31 @@
 	Set ..Registratie.ObjectType=ObjectType
 	Set ..Registratie.ObjectRef=ObjectRef
 	Set ..Registratie.RegistratieCode=..ExtractRegistratieCodeVanURL(Registratie)
-	If ObjectType="Q" ; via Queue of Uniek of verwerking ID
+	
+	If (..Registratie.ObjectType="D")  ; via Dossiercode
 	{
-		Do ..VulAanViaQueueID(ObjectRef)
+		Do ..VulAanViaDossierCode(..Registratie.ObjectRef)
 	}
-	ElseIf ObjectType="D"  ; via Dossiercode
+	
+	If (..Registratie.ObjectType="Q") ; via Queue of Uniek of verwerking ID
 	{
-		Do ..VulAanViaDossierCode(ObjectRef)
+		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
+		{
+			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)
 		{
 			Set ReturnWaarde="Kan registratie niet persisteren "_$$ParseStatus^vhLib(sc)_"; "_..Registratie.RegistratieCode_"."
 		}
+		
 	}
 	Else
 	{
@@ -153,7 +161,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set:DossierCode?1(1"T",1"A",1"L")2.5E1N DossierCode=$E(DossierCode,2,$L(DossierCode)-1) ; Strip eerste letter (=familie) en laatste letter (=checkdigit)
+	Set:DossierCode?1(1"T",1"H",1"L")2.5E1N DossierCode=$E(DossierCode,2,$L(DossierCode)-1) ; Strip eerste letter (=familie) en laatste letter (=checkdigit)
 	Set pxCriteria=..InitCriteria(DossierCode)
 	Set blSearch=##class(BL.Prod.Search).%New()
 	Do blSearch.SearchIndex(pxCriteria,.Y)