Index: WS/AX/Inventory/WijzigVoorraadResponse.cls.xml
===================================================================
diff -u
--- WS/AX/Inventory/WijzigVoorraadResponse.cls.xml	(revision 0)
+++ WS/AX/Inventory/WijzigVoorraadResponse.cls.xml	(revision 74839)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.AX.Inventory.WijzigVoorraadResponse">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Success">
+<Type>%Boolean</Type>
+<Required>1</Required>
+</Property>
+</Class>
+
+
+</Export>
FishEye: Tag 74839 refers to a dead (removed) revision in file `WS/AX/Inventory/StockChangeReponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 74839 refers to a dead (removed) revision in file `WS/AX/Inventory/StockChangeRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/AX/Inventory/dto/ProductDto.cls.xml
===================================================================
diff -u -r74728 -r74839
--- WS/AX/Inventory/dto/ProductDto.cls.xml	(.../ProductDto.cls.xml)	(revision 74728)
+++ WS/AX/Inventory/dto/ProductDto.cls.xml	(.../ProductDto.cls.xml)	(revision 74839)
@@ -3,58 +3,71 @@
 <Class name="WS.AX.Inventory.dto.ProductDto">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
-<Property name="Entiteit">
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="ItemIdAX">
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="Entity"/>
+<Parameter name="XMLITEMNAME" value="ItemIdAX"/>
 </Property>
 
-<Property name="Systeem">
+<Property name="Entiteit">
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="System"/>
+<Parameter name="XMLITEMNAME" value="Entiteit"/>
 </Property>
 
-<Property name="ObjtItemId">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="ObjtItemId"/>
+<Property name="Delta">
+<Type>%Integer</Type>
+<Parameter name="XMLITEMNAME" value="Delta"/>
 </Property>
 
-<Property name="ItemId">
+<Property name="RedenWijziging">
+<Description>
+Vrije tekst</Description>
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="ItemId"/>
+<Parameter name="XMLITEMNAME" value="RedenWijziging"/>
 </Property>
 
-<Property name="ConfigId">
+<Property name="OorsprongWijziging">
+<Description>
+Cyclecount, Replenishment, SOPR Reconciliatie</Description>
 <Type>%String</Type>
-<Parameter name="XMLNAME" value="ConfigId"/>
+<Parameter name="XMLITEMNAME" value="OorsprongWijziging"/>
 </Property>
 
-<Property name="AantalRelatief">
-<Type>%Integer</Type>
-<Parameter name="XMLNAME" value="RelativeQuantity"/>
+<Property name="ProductieSysteem">
+<Description>
+MES of WMS</Description>
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
 </Property>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ProductDtoState</State>
 <StreamLocation>^WS.AX.Inventory3996.ProductDtoS</StreamLocation>
 <Data name="ProductDtoState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
-<Value>Entiteit</Value>
+<Value>ItemIdAX</Value>
 </Value>
 <Value name="2">
-<Value>Systeem</Value>
+<Value>Entiteit</Value>
 </Value>
 <Value name="3">
-<Value>ObjtItemId</Value>
+<Value>Delta</Value>
 </Value>
 <Value name="4">
-<Value>ItemId</Value>
+<Value>RedenWijziging</Value>
 </Value>
 <Value name="5">
-<Value>ConfigId</Value>
+<Value>OorsprongWijziging</Value>
 </Value>
 <Value name="6">
-<Value>AantalRelatief</Value>
+<Value>ProductieSysteem</Value>
 </Value>
 </Data>
 </Storage>
Index: WS/AX/Inventory/InventoryReceiveService.cls.xml
===================================================================
diff -u -r74728 -r74839
--- WS/AX/Inventory/InventoryReceiveService.cls.xml	(.../InventoryReceiveService.cls.xml)	(revision 74728)
+++ WS/AX/Inventory/InventoryReceiveService.cls.xml	(.../InventoryReceiveService.cls.xml)	(revision 74839)
@@ -62,17 +62,6 @@
 	Quit ##class(TECH.XmlObjectUtils).GeefXMLStream(WMSJournalOutResponse.MessagePart)
 ]]></Implementation>
 </Method>
-
-<Method name="StockChange">
-<FormalSpec>StockChangeRequest:WS.AX.Inventory.StockChangeRequest</FormalSpec>
-<ReturnType>WS.AX.Inventory.StockChangeReponse</ReturnType>
-<WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	Set Reponse = ##class(WS.AX.Inventory.StockChangeReponse).%New()
-	Set Reponse.Success = $$$True
-	Quit Reponse
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: WS/AX/Inventory/VoorraadService.cls.xml
===================================================================
diff -u
--- WS/AX/Inventory/VoorraadService.cls.xml	(revision 0)
+++ WS/AX/Inventory/VoorraadService.cls.xml	(revision 74839)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.AX.Inventory.VoorraadService">
+<Description>
+Verwerken van de door AX gegenereerde voorraadcorrecties.
+Sommige van deze correcties hebben hun oorsprong in OBJT MES / WMS
+- StockCorrectie
+- Replenishment
+- SOPR reconciliatie</Description>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>VoorraadService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/AX/Inventory/VoorraadService</Default>
+</Parameter>
+
+<Property name="ImporteerVoorraadWijziging">
+<Type>OBJTimpl.MES.ImporteerVoorraadWijziging</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ImporteerVoorraadWijziging:OBJTimpl.MES.ImporteerVoorraadWijziging="",XmlCorrelater:TECH.XMLCorrelater="",MessageManager:AXimpl.MessageManager=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##Super()
+	Set ..ImporteerVoorraadWijziging = $$$Inject(ImporteerVoorraadWijziging, ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WijzigVoorraad">
+<FormalSpec>VoorraadWijzigingRequest:WS.AX.Inventory.WijzigVoorraadRequest</FormalSpec>
+<ReturnType>WS.AX.Inventory.WijzigVoorraadResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set Reponse = ##class(WS.AX.Inventory.WijzigVoorraadResponse).%New()
+	#dim VoorraadWijzigingen As OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen = ..MapRequest(VoorraadWijzigingRequest)
+	
+	;Do ..ImporteerVoorraadWijziging.VerwerkWijzigingen(VoorraadWijzigingen)
+	;If $$$Not(..ImporteerVoorraadWijziging.pxWijzigingen.Fout = "") {
+	;	Set Reponse.Success = $$$False
+	;} Else {
+	;	Set Reponse.Success = $$$True
+	;}
+		
+	Quit Reponse
+]]></Implementation>
+</Method>
+
+<Method name="MapRequest">
+<FormalSpec>Request:WS.AX.Inventory.WijzigVoorraadRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen</ReturnType>
+<Implementation><![CDATA[
+	Set DtoWijzigingen = ##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set DtoWijzigingen.Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Request.ProductLijnen)
+	
+	While (Iterator.HasNext()) {
+		#dim ProductVoorraadWijzigenDto As WS.AX.Inventory.dto.ProductDto = Iterator.Next()
+		Set DtoVoorraadWijzigingDto = ##class(OBJTimpl.MES.dtoCorrelateVoorraadWijziging).%New()
+			
+		Set DtoVoorraadWijzigingDto.Entiteit = ProductVoorraadWijzigenDto.Entiteit
+		Set DtoVoorraadWijzigingDto.ItemIdAX = ProductVoorraadWijzigenDto.ItemIdAX
+		Set DtoVoorraadWijzigingDto.Delta = ProductVoorraadWijzigenDto.Delta
+		Set DtoVoorraadWijzigingDto.RedenWijziging = ProductVoorraadWijzigenDto.RedenWijziging
+		Set DtoVoorraadWijzigingDto.OorsprongWijziging = ProductVoorraadWijzigenDto.OorsprongWijziging
+		Set DtoVoorraadWijzigingDto.ProductieSysteem = ProductVoorraadWijzigenDto.ProductieSysteem
+		
+		Do DtoWijzigingen.Lijst.Insert(DtoVoorraadWijzigingDto)
+	}
+	
+	Quit DtoWijzigingen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/AX/Inventory/WijzigVoorraadRequest.cls.xml
===================================================================
diff -u
--- WS/AX/Inventory/WijzigVoorraadRequest.cls.xml	(revision 0)
+++ WS/AX/Inventory/WijzigVoorraadRequest.cls.xml	(revision 74839)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.AX.Inventory.WijzigVoorraadRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="ProductLijnen">
+<Type>WS.AX.Inventory.dto.ProductDto</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="ProductLine"/>
+<Parameter name="XMLNAME" value="ProductLines"/>
+</Property>
+</Class>
+
+
+</Export>