Index: AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/Converter/SyncAllModule.cls.xml	(revision 44473)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.Converter.SyncAllModule">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="InventoryOutConverter">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SubjectIdList">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	//Set Filter = ##class(AXimpl.Dynamics.InventoryOut.Converter.SyncAllModuleFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,)
+	Set ..InventoryOutConverter = ##class(AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')"
+	
+	// Filters voor beperkte resultaten:
+	_" and ID in (1175,1988,2865,161441,161442)"
+	/*
+	_" and ID in (1175,1988,2865,161441,161442,254245,254258,268026,353741,353743,353744,383880,665626,682391,"
+	_"709825,830257,830507,878186,878220,906194,1038806,1039173,1039208,1067709,1067714,1124771,1155640,1168369,1168689,"
+	_"1168696,1169509,1194443,1247980,1259381,1359867,1425095,1425096,1432225,1572233)"
+	*/
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftVolgendProduct As %Boolean = $$$False
+	
+	If (..DynIterator.HasNext() > 0) {
+		Set HeeftVolgendProduct = $$$True
+	} Else {
+		Do ..Converteer()
+	}
+	
+	Quit HeeftVolgendProduct
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductPRNr As %String = ..DynIterator.Next().GetData(1)
+	Set ..SubjectIdList = ##class(%ListOfDataTypes).%New()
+	Do ..SubjectIdList.Insert(ProductPRNr)
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync</ReturnType>
+<Implementation><![CDATA[
+	#dim List As %String = $$ListToPieces^vhLib(..SubjectIdList,", ")
+	Set Request = ##class(AXimpl.Request).%New("", List)
+	#dim MessageId As %String = ""
+	#dim ConvertedInventSyncProduct As AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync = ..InventoryOutConverter.Convert(Request, MessageId)	
+	
+	Quit ConvertedInventSyncProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44285 -r44473
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44285)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44473)
@@ -8,8 +8,6 @@
 	Set Request = ##class(AXimpl.Request).%New("InventoryOut/Update", "", $$$DummyString)
 	Set Request.Message = "UpdateVoorraad"
 	
-	Set List = ##class(%Collection.ListOfObj).%New()
-	
 	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
 	
 	#dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request)
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml
===================================================================
diff -u -r44367 -r44473
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 44367)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 44473)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
 <Property name="SequenceNrGenerator">
 <Type>AXimpl.ConfigId</Type>
 <Private>1</Private>
@@ -13,6 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -22,12 +34,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test: ConfigId moet voorlopig leeg blijven">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -41,28 +62,34 @@
 
 <Method name="Test: ItemId is het IdentNummer">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
+	Set Product.IdentNummer = "0.123.456.7"
+	
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
 	#dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator()
 	
-	#dim InventSyncProduct As AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync("0.123.456.7")
+	#dim InventSyncProduct As AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId)
 	
 	Do $$$AssertEquals(InventSyncProduct.ItemId,"0.123.456.7")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: QtyHLX is de stock bij Halux zijnde werkvloerstock zijnde WVStock">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	Set StockProduct.WVStock = "55555"
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -76,11 +103,13 @@
 
 <Method name="Test: QtyHLX is 0 als WVStock leeg is">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	Set StockProduct.WVStock = ""
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -94,11 +123,13 @@
 
 <Method name="Test: QtyVH is de stock bij Van Hoecke zijnde fysieke stock zijnde FysStock">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	Set StockProduct.FysStock = "666666"
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -112,11 +143,13 @@
 
 <Method name="Test: QtyVH is 0 als FysStock leeg is">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	Set StockProduct.FysStock = ""
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -133,10 +166,12 @@
 	Set SequenceNrGeneratorStub = ##class(vhTest.Mock.AXimpl.ConfigId).%New()
 	Do SequenceNrGeneratorStub.VerwachtMethodCall("GeefVolgendProductVoorraadSyncBerichtId").DanDoeNiks()
 	
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..SequenceNrGenerator = SequenceNrGeneratorStub
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
@@ -151,10 +186,12 @@
 
 <Method name="Test: SOPRContractId moet voorlopig leeg blijven">
 <Implementation><![CDATA[
+	#dim Product As Prod.Product = ..GeefTeConverterenProduct()
 	#dim StockProduct As Prod.StockReservatie = ##class(Prod.StockReservatie).%New()
+	Set StockProduct.Product = Product
 	
 	Set StockReservatieRepositoryStub = ##class(vhTest.Mock.Prod.StockReservatieRepository).%New()
-	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaIdentNummer",$$$ElkeWaarde).DanReturn(StockProduct)
+	Do StockReservatieRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(StockProduct)
 	
 	Set ..StockReservatieRepository = StockReservatieRepositoryStub
 	
@@ -166,6 +203,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>Prod.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(Prod.Product).%New(..#ProductId)
+	Quit AxProduct
+]]></Implementation>
+</Method>
+
 <Method name="GeefAxInventSyncCreator">
 <Private>1</Private>
 <ReturnType>AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator</ReturnType>
Index: AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml
===================================================================
diff -u -r44285 -r44473
--- AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml	(.../InventoryOutConverter.cls.xml)	(revision 44285)
+++ AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml	(.../InventoryOutConverter.cls.xml)	(revision 44473)
@@ -3,16 +3,36 @@
 <Class name="AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AxInventSyncCreator">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AxInventSyncCreator = ##class(AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
-<FormalSpec>Command:AXimpl.Request,MessageId:%String=""</FormalSpec>
+<FormalSpec>Request:AXimpl.Request,MessageId:%String=""</FormalSpec>
 <ReturnType>AXif.Dynamics.InventoryOut.MessageParts</ReturnType>
 <Implementation><![CDATA[
+	Set PRNrIterator = ##class(TECH.StringIterator).%New(Request.SubjectId,",")
 	Set MessageParts = ##class(AXif.Dynamics.InventoryOut.MessageParts).%New()
 	
 	Set AxdEntityHeader = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityHeader).%New()
 	Set AxdEntityHeader.class = "entity"
 	Set AxdEntityHeader.MessageId = MessageId
-	Set AxdEntityHeader.InventSync = "" // Te maken InventSyncCreator die InventSync-objecten (DTO) instantieert
+		
+	While PRNrIterator.HasNext(){
+		Do AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(PRNrIterator.Next()))
+	}
 	
 	Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdADUMsgOutboundInQuery).%New()
 	Set MessageParts.MessagePart = ADUMsgOutboundInQuery
Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml
===================================================================
diff -u -r44367 -r44473
--- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml	(.../AxInventSyncCreator.cls.xml)	(revision 44367)
+++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml	(.../AxInventSyncCreator.cls.xml)	(revision 44473)
@@ -28,14 +28,14 @@
 </Method>
 
 <Method name="MaakInventSync">
-<FormalSpec>IdentNummer:%String</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync</ReturnType>
 <Implementation><![CDATA[
-	#dim StockProduct As Prod.StockReservatie = ..StockReservatieRepository.GeefViaIdentNummer(IdentNummer)
+	#dim StockProduct As Prod.StockReservatie = ..StockReservatieRepository.GeefViaID(PRNr)
 	
 	Set InventSyncProduct = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync).%New()
 	Set InventSyncProduct.ConfigId = ""
-	Set InventSyncProduct.ItemId = IdentNummer
+	Set InventSyncProduct.ItemId = StockProduct.Product.IdentNummer
 	Set InventSyncProduct.QtyHLX = +StockProduct.WVStock
 	Set InventSyncProduct.QtyVH = +StockProduct.FysStock
 	Set InventSyncProduct.SequenceNr = ..SequenceNrGenerator.GeefVolgendProductVoorraadSyncBerichtId()