Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r74842 -r74846
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74842)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74846)
@@ -55,21 +55,31 @@
 </UDLText>
 
 <Method name="VerwerkWebservice">
-<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String,ProductieSysteem:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..pxVoorraad=##class(dtoCorrelateVoorraadWijziging).%New()
 	Set ..pxVoorraad.Entiteit=Entiteit
 	Set ..pxVoorraad.ItemId=ItemId
 	Set ..pxVoorraad.ItemIdAX=$G(ItemIdAX)
 	Set ..pxVoorraad.Delta=VoorraadWijziging
 	Set ..pxVoorraad.Lossing = $G(Lossing)
+	Set ..pxVoorraad.ProductieSysteem = $G(ProductieSysteem)
 	
 	Do ..VerwerkVoorraad()
 	
 	Quit ..pxVoorraad.Fout
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkObject">
+<FormalSpec>pxWijziging:dtoCorrelateVoorraadWijziging</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set ..pxVoorraad=pxWijziging
+	Do ..VerwerkVoorraad()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
 	Do ..BepaalPRNr()
@@ -179,9 +189,10 @@
 
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
-	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
+	Set:(..pxVoorraad.Entiteit'="VHBE")&&(..pxVoorraad.Entiteit'="HLX") ..pxVoorraad.Fout="Entiteit ongeldig:"_..pxVoorraad.Entiteit
+	Set:(..pxVoorraad.ProductieSysteem'="")&&(..pxVoorraad.ProductieSysteem'="WMS") ..pxVoorraad.Fout="ProductieSysteem ongeldig:"_..pxVoorraad.ProductieSysteem
 	Set:..pxVoorraad.PRNr="" ..pxVoorraad.Fout="Onbekend product"
-	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit))
+	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit,..pxVoorraad.ProductieSysteem))
 	{
 		Set ..pxVoorraad.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
 	}
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r74842 -r74846
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74842)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74846)
@@ -34,6 +34,12 @@
 <Parameter name="XMLITEMNAME" value="Entiteit"/>
 </Property>
 
+<Property name="ProductieSysteem">
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
 <Property name="Delta">
 <Type>%Integer</Type>
 <Parameter name="XMLITEMNAME" value="Delta"/>
@@ -89,6 +95,9 @@
 <Value name="9">
 <Value>ItemIdAX</Value>
 </Value>
+<Value name="10">
+<Value>ProductieSysteem</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r74835 -r74846
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 74835)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 74846)
@@ -27,18 +27,16 @@
 <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,Systeem:%String,ItemId:%String,Delta:%Decimal,ItemNm:%String="",Lossing:%String,ItemIdAx:%String,ProductieSysteem:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ProductieSysteem:%String,ItemId:%String,Delta:%Decimal,ItemNm:%String="",Lossing:%String,ItemIdAx:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim Fout As %String =""
 	Set Entiteit=$ZCVT(Entiteit,"U")
-	Set Systeem=$ZCONVERT(Systeem, "U")
+	Set ProductieSysteem = $ZCONVERT(ProductieSysteem, "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 = "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>