Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r53433 -r53437
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 53433)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(.../IDataOphaler.cls.xml)	(revision 53437)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler">
 <Abstract>1</Abstract>
-<IncludeCode>BL.Prod</IncludeCode>
+<IncludeCode>BL.Prod,vhLib.Macro</IncludeCode>
 
 <Property name="Registratie">
 <Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</Type>
@@ -46,11 +46,13 @@
 	{
 		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
 		{
+			;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)
 		} 
@@ -70,6 +72,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SendWarnings">
+<FormalSpec>OudeRegistratie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set MailTo = $listbuild("Nathalie.Boone@halux.be")
+	Set Subject = "Dubbele etiketten in productie ! (Rol vervangen.)"
+
+    Set Body= ##class(%GlobalCharacterStream).%New()
+	Set Message ="Dubbele registratie van "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip
+	Set Message = Message _ " Gelieve dan planning te verwittigen dat ze de rol met de OL etiketten moeten vervangen voor werkpost "_..Registratie.Werkpost _" en Ladetype " _..Registratie.Familie
+   	Do Body.WriteLine(Message)
+	
+	Do SendMiniMail^vhLib($$$SystemMail("Laderegistratie - productie"),MailTo,Subject,Body,1,1)
+	
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="ExtractRegistratieCodeVanURL">
 <FormalSpec>Registratie</FormalSpec>
 <Implementation><![CDATA[