Index: WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml
===================================================================
diff -u -r72686 -r72910
--- WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(.../ValidateOlTagRequest.cls.xml)	(revision 72686)
+++ WS/OBJT/MES/dto/ValidateOlTagRequest.cls.xml	(.../ValidateOlTagRequest.cls.xml)	(revision 72910)
@@ -23,7 +23,6 @@
 
 <Property name="WerkPost">
 <Type>%String</Type>
-<Collection>array</Collection>
 <Parameter name="XMLNAME" value="workCenter"/>
 </Property>
 </Class>
Index: WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml
===================================================================
diff -u -r72686 -r72910
--- WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(.../RegisterOlTagRequest.cls.xml)	(revision 72686)
+++ WS/OBJT/MES/dto/RegisterOlTagRequest.cls.xml	(.../RegisterOlTagRequest.cls.xml)	(revision 72910)
@@ -23,7 +23,6 @@
 
 <Property name="WerkPost">
 <Type>%String</Type>
-<Collection>array</Collection>
 <Parameter name="XMLNAME" value="workCenter"/>
 </Property>
 </Class>
Index: WSimpl/OBJT/MESService.cls.xml
===================================================================
diff -u -r72719 -r72910
--- WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72719)
+++ WSimpl/OBJT/MESService.cls.xml	(.../MESService.cls.xml)	(revision 72910)
@@ -63,7 +63,7 @@
 	}
 	
 	#dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler(Werkpost)
-	Do DataOphaler.Registratie("D", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
+	Do DataOphaler.Registreer("D", RegisterOlTag.PinCode, RegisterOlTag.OlTag, "2")
 	
 	Quit Response
 ]]></Implementation>
Index: vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml
===================================================================
diff -u -r72708 -r72910
--- vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml	(.../Test.cls.xml)	(revision 72708)
+++ vhUnitTest/WSimpl/OBJT/MESService/RegistreerOlTag/Test.cls.xml	(.../Test.cls.xml)	(revision 72910)
@@ -7,6 +7,7 @@
 <Implementation><![CDATA[
 	Set RegisterOlTagRequest = ##class(WS.OBJT.MES.dto.RegisterOlTagRequest).%New()
 	Set RegisterOlTagRequest.OlTag = "DummyOlTag"
+	Set RegisterOlTagRequest.WerkPost = "PERS L1 LBX"
 	
 	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen geldige werkpost gevonden om OlTag '" _ RegisterOlTagRequest.OlTag _"' succesvol te registreren.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))