Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r72585 -r74835
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 72585)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 74835)
@@ -27,17 +27,19 @@
 <Description>
 Wijzigen van voorraad zowel verhogen als verlagen van de voorraad voor een bepaald product.
 Als de wijziging goed is doorgevoerd wordt er "OK" teruggegeven als resultaat anders een foutboodschap.</Description>
-<FormalSpec>Entiteit:%String,ItemId:%String,Delta:%Decimal,ItemNm:%String="",Lossing:%String,ItemIdAx:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,Systeem:%String,ItemId:%String,Delta:%Decimal,ItemNm:%String="",Lossing:%String,ItemIdAx:%String,ProductieSysteem:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Fout=""
+	#dim Fout As %String =""
 	Set Entiteit=$ZCVT(Entiteit,"U")
+	Set Systeem=$ZCONVERT(Systeem, "U")
 	Set ItemIdAx=$S($G(ItemIdAx)=$c(0):"",1:$G(ItemIdAx))
 	Set Lossing=$S($G(Lossing)=$c(0):"",1:$G(Lossing))
+	Set ProductieSysteem = $ZCONVERT(ProductieSysteem, "U")
 	
-	If (Entiteit'?1(1"VHBE",1"HLX")) Quit "Foutieve entiteit"
-	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice(Entiteit, ItemId, ItemIdAx,Delta,Lossing)
+	If ((Entiteit = "HLX") && (Systeem="MES")) Quit "Foutieve entititeit en systeem"
+	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice(Entiteit, ItemId, ItemIdAx,Delta,Lossing, ProductieSysteem)
 	Quit $S(Fout="":"OK",1:Fout)
 ]]></Implementation>
 </Method>