Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44731 -r44748
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44731)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44748)
@@ -10,13 +10,7 @@
 	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
+	#dim Antwoord As AXif.Dynamics.InventoryOut.MessageParts = ..MaakInventSyncAntwoord(1)
 	
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
 	Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord)
@@ -47,14 +41,7 @@
 	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
+	#dim Antwoord As AXif.Dynamics.InventoryOut.MessageParts = ..MaakInventSyncAntwoord(2)
 	
 	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
 	Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord)
@@ -77,6 +64,94 @@
 	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),2)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: uitlevering met 0 producten">
+<Implementation><![CDATA[
+	#dim UitleveringID = $$$DummyInteger
+	
+	Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID)
+	Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger)
+	
+	#dim Antwoord As AXif.Dynamics.InventoryOut.MessageParts = ..MaakInventSyncAntwoord(0)
+	
+	Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+	Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord)
+	
+	Set Bonlijnen = ##class(%ListOfObjects).%New()
+	
+	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(),0)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitlevering met 2 producten met elk 1 inventsync">
+<Implementation><![CDATA[
+	#dim UitleveringID = $$$DummyInteger
+	
+	Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID)
+	Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger)
+	
+	#dim Antwoord As AXif.Dynamics.InventoryOut.MessageParts = ..MaakInventSyncAntwoord(2)
+	
+	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))
+	Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("def",2))
+	
+	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(),2)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitlevering waarop ook een onbekend product staat">
+</Method>
+
+<Method name="Test: pickid goed ingevuld">
+</Method>
+
+<Method name="MaakInventSyncAntwoord">
+<FormalSpec>AantalInventSync:%Integer</FormalSpec>
+<ReturnType>AXif.Dynamics.InventoryOut.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	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()
+	#dim Teller As %Integer = 0
+	While Teller < AantalInventSync {
+		Do Header.InventSync.Insert(InventSync)
+		Set Teller = Teller + 1
+	}
+	Do MessagePart.Header.Insert(Header)
+	Set Antwoord.MessagePart = MessagePart
+	
+	Quit Antwoord
+]]></Implementation>
+</Method>
 </Class>