Index: vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml
===================================================================
diff -u -r73644 -r74630
--- vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml	(.../Test.cls.xml)	(revision 73644)
+++ vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml	(.../Test.cls.xml)	(revision 74630)
@@ -6,6 +6,24 @@
 <Method name="Test: Geldige ValideerOlTag">
 <Implementation><![CDATA[
 	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.ValidateOlTagRequest).%New()
+	Set RegisterOlTagRequest.OlTag = "https://www.orgalux.com/drawercode?QC=DummyOlTag"
+	Set RegisterOlTagRequest.WerkPost = "Press L1 LBX"
+	
+	Set LadeRegistratieMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieMock.VerwachtMethodCall("IsRegistratieCodeUniek", "DummyOlTag").DanReturn($$$True)	
+	
+	Set MESService = ##class(WSimpl.OBJT.MESService).%New(LadeRegistratieMock)
+	#dim Response As WS.OBJT.MES.dto.ValidateOlTagResponse = MESService.ValideerOlTag(RegisterOlTagRequest)
+	
+	Do $$$AssertEquals(Response.Result,"VALID")
+	
+	Do LadeRegistratieMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: OngGeldige ValideerOlTag omdat oltag niet start met https://">
+<Implementation><![CDATA[
+	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.ValidateOlTagRequest).%New()
 	Set RegisterOlTagRequest.OlTag = "DummyOlTag"
 	Set RegisterOlTagRequest.WerkPost = "Press L1 LBX"
 	
@@ -15,7 +33,8 @@
 	Set MESService = ##class(WSimpl.OBJT.MESService).%New(LadeRegistratieMock)
 	#dim Response As WS.OBJT.MES.dto.ValidateOlTagResponse = MESService.ValideerOlTag(RegisterOlTagRequest)
 	
-	Do $$$AssertEquals(Response.Result,"VALID")
+	Do $$$AssertEquals(Response.Result,"INVALID")
+	Do $$$AssertEquals(Response.ValidatieError,"OlTag should start with 'https://www.orgalux.com/drawercode?QC='")
 	
 	Do LadeRegistratieMock.Verifieer()
 ]]></Implementation>
Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u -r74399 -r74630
--- WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 74399)
+++ WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 74630)
@@ -69,6 +69,12 @@
 			Set Reponse.Result = "INVALID"
 			Set Reponse.ValidatieError = "OlTag not unique."
 		}
+		
+		//Extra validatie voor OBJT MES (enkel OBJT MES roept deze logica op)
+		If ((Reponse.Result = "VALID") && $$$Not(##class(TECH.StringUtils).StartsWith(ValidateOlTag.OlTag, "https://www.orgalux.com/drawercode?QC"))) {			
+			Set Reponse.Result = "INVALID"
+			Set Reponse.ValidatieError = "OlTag should start with 'https://www.orgalux.com/drawercode?QC='"
+		}
 	} Catch {
 		Set Reponse.Result = "INVALID"
 		Set Reponse.ValidatieError = "An unexpected error occured during the validation of the OlTag."