Index: APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r59172 -r72667
--- APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
+++ APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 72667)
@@ -73,6 +73,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRegistratieCodeUniek">
+<FormalSpec>RegistratieCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$True
+	#dim Iterator As TECH.Iterator = ..LadeRegistratieRepository.ZoekViaRegistratieCode(RegistratieCode)
+	
+	If (Iterator.HasNext()) {
+		Set Resultaat = $$$False
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="ZoekProductNummerViaRegistratieCode">
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WS/OBJT/MES/dto/ValidateOlTagResponse.cls.xml
===================================================================
diff -u
--- WS/OBJT/MES/dto/ValidateOlTagResponse.cls.xml	(revision 0)
+++ WS/OBJT/MES/dto/ValidateOlTagResponse.cls.xml	(revision 72667)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.MES.dto.ValidateOlTagResponse">
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ValidateOlTagResponse</Default>
+</Parameter>
+
+<Parameter name="XMLREF">
+<Default>0</Default>
+</Parameter>
+
+<Property name="Result">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="result"/>
+</Property>
+
+<Property name="ValidatieError">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="validationError"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/OBJT/MESService.cls.xml
===================================================================
diff -u
--- WS/OBJT/MESService.cls.xml	(revision 0)
+++ WS/OBJT/MESService.cls.xml	(revision 72667)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.MESService">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>OBJT2AdminMES</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+SOAP Namespace for the WebService</Description>
+<Default>http://cache01.vanhoecke.be/objtMES</Default>
+</Parameter>
+
+<Method name="ValidateOlTag">
+<FormalSpec>ValidateOlTag:WS.OBJT.MES.dto.ValidateOlTagRequest</FormalSpec>
+<ReturnType>WS.OBJT.MES.dto.ValidateOlTagResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(WSimpl.OBJT.MESService).%New().ValideerOlTag(ValidateOlTag)
+]]></Implementation>
+</Method>
+
+<Method name="RegisterOlTag">
+<FormalSpec>RegisterOlTag:WS.OBJT.MES.dto.RegisterOlTagRequest</FormalSpec>
+<ReturnType>WS.OBJT.MES.dto.RegisterOlTagResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(WSimpl.OBJT.MESService).%New().RegistreerOlTag(RegisterOlTag)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r59172 -r72667
--- vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
+++ vhTest/Mock/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 72667)
@@ -22,6 +22,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRegistratieCodeUniek">
+<FormalSpec>RegistratieCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsRegistratieCodeUniek",RegistratieCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekProductNummerViaRegistratieCode">
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml
===================================================================
diff -u
--- WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(revision 0)
+++ WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(revision 72667)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.MES.dto.ValidateOlTagRequest">
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ValidateOlTagRequest</Default>
+</Parameter>
+
+<Parameter name="XMLREF">
+<Default>0</Default>
+</Parameter>
+
+<Property name="OlTag">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="olTag"/>
+</Property>
+
+<Property name="PinCode">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="pinCode"/>
+</Property>
+
+<Property name="Parameters">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="parameters"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml
===================================================================
diff -u
--- WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(revision 0)
+++ WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(revision 72667)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.MES.dto.RegisterOlTagRequest">
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>RegisterOlTagRequest</Default>
+</Parameter>
+
+<Parameter name="XMLREF">
+<Default>0</Default>
+</Parameter>
+
+<Property name="OlTag">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="olTag"/>
+</Property>
+
+<Property name="PinCode">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="pinCode"/>
+</Property>
+
+<Property name="Parameters">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="parameters"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u
--- WSimpl/OBJT/MESService.cls.xml	(revision 0)
+++ WSimpl/OBJT/MESService.cls.xml	(revision 72667)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.OBJT.MESService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LadeRegistratieService">
+<Type>APPS.VKP.Maatwerk.impl.LadeRegistratieService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeRegistratieService = ##class(APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOlTag">
+<FormalSpec>ValidateOlTag:WS.OBJT.MES.dto.ValidateOlTagRequest</FormalSpec>
+<ReturnType>WS.OBJT.MES.dto.ValidateOlTagResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler("")
+	#dim IsOlTagUniek As %Boolean = ..LadeRegistratieService.IsRegistratieCodeUniek(DataOphaler.ExtractRegistratieCodeVanURL(ValidateOlTag.Parameters("DNAcode"))) //TO DO
+	Set Reponse = ##class(WS.OBJT.MES.dto.ValidateOlTagResponse).%New()
+	
+	If (IsOlTagUniek) {
+		Set Reponse.Result = "VALID"
+	} Else {
+		Set Reponse.Result = "INVALID"
+	}
+	
+	Quit Reponse
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerOlTag">
+<FormalSpec>RegisterOlTag:WS.OBJT.MES.dto.RegisterOlTagRequest</FormalSpec>
+<ReturnType>WS.OBJT.MES.dto.RegisterOlTagResponse</ReturnType>
+<Implementation><![CDATA[
+	#dim Werkpost As APPS.Halux.common.enu.Werkpost
+	Set Response = ##class(WS.OBJT.MES.dto.RegisterOlTagResponse).%New()
+	
+	If ($Data(RegisterOlTag.Parameters("workstation"))) {
+	 	Set Werkpost = ..BepaalCacheBekendeWerkpost(RegisterOlTag.Parameters("workstation"))
+	} 
+	
+	If (Werkpost = "") {
+		Do ##class(TECH.ExceptionHandler).Throw("Geen geldige werkpost gevonden om OlTag '" _ RegisterOlTag.OlTag _"' succesvol te registreren.")
+	}
+	
+	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler(Werkpost)
+	Do DataOphaler.Registratie("D", RegisterOlTag.Parameters("workstation"), RegisterOlTag.OlTag)
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCacheBekendeWerkpost">
+<FormalSpec>OBJTWerkpost:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.Werkpost</ReturnType>
+<Implementation><![CDATA[
+	Quit $CASE(OBJTWerkpost, 	"PERS L1 TBX":##class(APPS.Halux.common.enu.Werkpost).Pers1(), 
+								"PERS L1 LBX":##class(APPS.Halux.common.enu.Werkpost).LegraPers1(), 
+								"PERS L2 LBX":##class(APPS.Halux.common.enu.Werkpost).LegraPers2(), 
+								"PERS L3 LBX":##class(APPS.Halux.common.enu.Werkpost).LegraPers3(), 
+								"PERS L4 TBX":##class(APPS.Halux.common.enu.Werkpost).Pers2(), 
+								"PERS L4 MVX":##class(APPS.Halux.common.enu.Werkpost).MerivoPers4(), 
+								"PERS L5 LBX":"", 
+								"PERS L5 MVX":"",
+								 :"")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDataOphaler">
+<FormalSpec>Werkpost:APPS.Halux.common.enu.Werkpost</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler</ReturnType>
+<Implementation><![CDATA[
+	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler
+	
+	If ($$$StartsWith(Werkpost,"LP"))||($$$StartsWith(Werkpost,"LB")) {
+		Set DataOphaler = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.LBXDataOphaler).%New(Werkpost)
+	} ElseIf $$$StartsWith(Werkpost,"TA"){
+		Set DataOphaler = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.TAXDataOphaler).%New(Werkpost)
+	} ElseIf $$$StartsWith(Werkpost,"MP"){
+		Set DataOphaler = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.MVXDataOphaler).%New(Werkpost)
+	} Else {	
+		Set DataOphaler = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.TBXDataOphaler).%New(Werkpost)
+	}
+	
+	Quit DataOphaler
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/OBJT/MES/dto/RegisterOlTagResponse.cls.xml
===================================================================
diff -u
--- WS/OBJT/MES/dto/RegisterOlTagResponse.cls.xml	(revision 0)
+++ WS/OBJT/MES/dto/RegisterOlTagResponse.cls.xml	(revision 72667)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.OBJT.MES.dto.RegisterOlTagResponse">
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>RegisterOlTagResponse</Default>
+</Parameter>
+
+<Parameter name="XMLREF">
+<Default>0</Default>
+</Parameter>
+
+<Property name="Info">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="info"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratieService.cls.xml
===================================================================
diff -u -r54403 -r72667
--- APPS/VKP/Maatwerk/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 54403)
+++ APPS/VKP/Maatwerk/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 72667)
@@ -13,6 +13,11 @@
 <FormalSpec>RegistratieCode:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</ReturnType>
 </Method>
+
+<Method name="IsRegistratieCodeUniek">
+<FormalSpec>RegistratieCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml
===================================================================
diff -u -r59172 -r72667
--- vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 59172)
+++ vhTest/Fake/APPS/VKP/Maatwerk/impl/LadeRegistratieService.cls.xml	(.../LadeRegistratieService.cls.xml)	(revision 72667)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsRegistratieCodeUniek">
+<FormalSpec>RegistratieCode:%String,PRNR:%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>