Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r67044 -r67052
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67044)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67052)
@@ -31,11 +31,13 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	k ^PV
-	Set ^PV(Entiteit,ItemId,Delta)=$zdt($h,8)
 	Set Fout=""
-	If ($ZCVT(Entiteit,"U")'="VHBE") && ($ZCVT(Entiteit,"U")'="HLX") Quit "Foutieve entiteit"
-	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice($ZCVT(Entiteit,"U"), ItemId, Delta, Lossing)
+	Set Entiteit=$ZCVT(Entiteit,"U")
+	Set ItemIdAx=$S($G(ItemIdAx)=$c(0):"",1:$G(ItemIdAx))
+	Set Lossing=$S($G(Lossing)=$c(0):"",1:$G(Lossing))
+	
+	If (Entiteit'?1(1"VHBE",1"HLX")) Quit "Foutieve entiteit"
+	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice(Entiteit, ItemId, ItemIdAx,Delta,Lossing)
 	Quit $S(Fout="":"OK",1:Fout)
 ]]></Implementation>
 </Method>
@@ -68,7 +70,15 @@
 d ##class(WS.OBJT.WMSService).Test()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.833.811.9",-55,"????")
+	;w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.898.836.2",33,"????")
+	;Do ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.898.836.2",22,"AventosSOPR ","Blumtrans SOPR","K.898.836.2")
 	
+	;Do ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("HLX","7.001.952.6",33,"SLFB270","Stylinart")
+	
+	;w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","9.154.776.11",44,"Z10.FLX1","Halux")
+	
+	q
 	Set PickLijst=##class(OBJTimpl.WMSOrder.dtoAfmeldenPicking).%New()
 	Set Picking=##class(OBJTimpl.WMSOrder.dtoCorrelatePicking).%New()
 	Set Picking.ConsNr="338136"