Index: AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml
===================================================================
diff -u -r44607 -r44731
--- AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml	(.../PickingCompleetConverter.cls.xml)	(revision 44607)
+++ AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter.cls.xml	(.../PickingCompleetConverter.cls.xml)	(revision 44731)
@@ -3,12 +3,38 @@
 <Class name="AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AxdEntityHeader">
+<Type>AXif.Dynamics.InventoryOut.MessageParts.AxdEntityHeader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InventoryOutConverter">
+<Type>AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InventoryRequest">
+<Type>AXimpl.Request</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataMOrderApi">
+<Type>DOM.VKP.impl.DataM.DataMOrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,InventoryRequest:AXimpl.Request,DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..InventoryOutConverter = $$$Inject(InventoryOutConverter, ##class(AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New())
+	Set ..InventoryRequest = $$$Inject(InventoryRequest, "")
+	Set ..DataMOrderApi = $$$Inject(DataMOrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -18,6 +44,50 @@
 <Implementation><![CDATA[
 	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
+	
+	#dim Bon As DOM.VKP.Bon = ..DataMOrderApi.GeefBon(Request.SubjectId)
+	
+	Set DoorTeGevenLijnen = ##class(%ListOfDataTypes).%New()
+	
+	#dim LijnenIterator As TECH.Iterator = Bon.GeefBonLijnIterator()
+	while LijnenIterator.HasNext() {
+		#dim Lijn As DOM.VKP.ProductOrderlijn = LijnenIterator.Next()
+		If Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product(){
+	
+			Set Pick = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityPick).%New()
+			Set Pick.class = "entity"
+			
+			Set Pick.PickId = "" //Lijn.GeefToelevering()_"_"_Lijn.GeefToeleveringLijn().GeefID()_"_"_"xxx"
+			Set Pick.InventTransId = Lijn.GeefAxInventTransId()
+			Set Pick.Qty = Lijn.GeefAantal()
+			
+			Do ..AxdEntityHeader.Pick.Insert(Pick)
+			
+			Do DoorTeGevenLijnen.Insert(Lijn.GeefProductID())
+		}
+	}
+	
+	
+	If $$$Not($IsObject(..InventoryRequest)) {
+		Set ..InventoryRequest = ##class(AXimpl.Request).%New("InventoryOut/Update", ##class(TECH.ListUtils).ListToPieces(DoorTeGevenLijnen,","))
+	}
+	
+	#dim InventSyncItems As AXif.Dynamics.InventoryOut.MessageParts = ..InventoryOutConverter.Convert(..InventoryRequest)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(InventSyncItems.MessagePart.Header.GetAt(1).InventSync)
+	while Iterator.HasNext() {
+		Do ..AxdEntityHeader.InventSync.Insert(Iterator.Next())
+	}
+	
+	Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Set MessageParts.MessagePart = ADUMsgOutboundInQuery
+	
+	Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader)
+	
+	w !,$$ObjToXML^vhLib(MessageParts)
 	Quit MessageParts
 ]]></Implementation>
 </Method>
Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44607 -r44731
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44607)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44731)
@@ -3,10 +3,80 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter.Convert.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaardgedrag">
-<Implementation><![CDATA[	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New()
+<Method name="Test: Standaardgedrag met 1 InventSync van 1 productlijn">
+<Implementation><![CDATA[
+	#dim UitleveringID = $$$DummyInteger
+	
+	Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID)
+	Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger)
+	
+	Set Antwoord = ##class(AXif.Dynamics.InventoryOut.MessageParts).%New()
+	Set MessagePart = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Set InventSync = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync).%New()
+	Set Header = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityHeader).%New()
+	Do Header.InventSync.Insert(InventSync)
+	Do MessagePart.Header.Insert(Header)
+	Set Antwoord.MessagePart = MessagePart
+	
+	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+	Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord)
+	
+	Set Bonlijnen = ##class(%ListOfObjects).%New()
+	Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1))
+	
+	Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
+	
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub)
+	
+	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
+	#dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request,GUID)
+	
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.Count(),1)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),1)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: antwoord met 2 InventSync van 1 productlijn">
+<Implementation><![CDATA[
+	#dim UitleveringID = $$$DummyInteger
+	
+	Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID)
+	Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger)
+	
+	Set Antwoord = ##class(AXif.Dynamics.InventoryOut.MessageParts).%New()
+	Set MessagePart = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Set InventSync = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityInventSync).%New()
+	Set Header = ##class(AXif.Dynamics.InventoryOut.MessageParts.AxdEntityHeader).%New()
+	Do Header.InventSync.Insert(InventSync)
+	Do Header.InventSync.Insert(InventSync)
+	Do MessagePart.Header.Insert(Header)
+	Set Antwoord.MessagePart = MessagePart
+	
+	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+	Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord)
+	
+	Set Bonlijnen = ##class(%ListOfObjects).%New()
+	Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1))
+	
+	Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
+	
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub)
+	
+	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
+	#dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request,GUID)
+	
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.Count(),1)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),2)
+]]></Implementation>
+</Method>
 </Class>