Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWorden/Convert/Test.cls.xml	(revision 59084)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.Converter.PakbonMagGeboektWorden.Convert.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="MaakInventSyncAntwoord">
+<FormalSpec>AantalInventSync:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.Inventory.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	Set Antwoord = ##class(AXif.Dynamics.Inventory.MessageParts).%New()
+	Set MessagePart = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New()
+	Set InventSync = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync).%New()
+	Set Header = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader).%New()
+	
+	#dim ii As %Integer
+	For ii=1:1:AantalInventSync {
+		Do Header.InventSync.Insert(InventSync)
+	}
+	Do MessagePart.Header.Insert(Header)
+	Set Antwoord.MessagePart = MessagePart
+	
+	Quit Antwoord
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductApiStub">
+<FormalSpec>AantalProducten:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.ProductAPI</ReturnType>
+<Implementation><![CDATA[
+	Set ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	
+	#dim ii As %Integer
+	For ii=1:1:AantalProducten {
+		Set ProductStub = ##class(vhTest.Mock.DOM.PM.Product).%New()
+		Do ProductApiStub.IndienMethodCall("GeefProduct","100"_ii).DanReturn(ProductStub)
+	}
+	
+	Quit ProductApiStub
+]]></Implementation>
+</Method>
+
+<Method name="Test: PakbonMagGeboektWorden returns pick object met lege Qty en InventTransId - PickId en ShippingData ingevuld">
+<Implementation><![CDATA[
+	#dim AntwoordPickId As %String = "123456"
+	#dim UitleveringID = $$$DummyInteger
+	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.05.2016")
+	#dim AntwoordShippingDate As %Date = ##class(TECH.DateTime).HorologToDate(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+	
+	#dim Request As %Status = ##class(AXimpl.Request).%New("Inventory/PakbonMagGeboektWorden", UitleveringID)
+
+	Set Bonlijnen = ##class(%ListOfObjects).%New()
+	#dim ProductLijn1 As vhTest.Utils.DOM.VKP.BonLijn = ##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("100",1)
+	Do ProductLijn1.IndienMethodCall("GeefAxInventTransId").DanReturn("AxInventTransId")
+	#dim ProductLijn2 As vhTest.Utils.DOM.VKP.BonLijn = ##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("100",2)
+	Do ProductLijn2.IndienMethodCall("GeefAxInventTransId").DanReturn("")
+	Do Bonlijnen.Insert(ProductLijn1)
+	Do Bonlijnen.Insert(ProductLijn2)
+	
+	Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+	Do StandaardBon.IndienMethodCall("GeefID").DanReturn(AntwoordPickId)
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
+	
+	#dim OrderWMSHoofding As Flow.OrderWMS.Hoofding = ##class(Flow.OrderWMS.Hoofding).%New()
+	Set OrderWMSHoofding.DueOutTime = $$$CurrentDate
+	
+	Set OrderWMSHoofdingRepositoryStub = ##class(vhTest.Mock.Flow.OrderWMS.HoofdingRepository).%New()
+	Do OrderWMSHoofdingRepositoryStub.IndienMethodCall("GeefViaID",AntwoordPickId).DanReturn(OrderWMSHoofding)
+
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PakbonMagGeboektWordenConverter).%New(OrderApiStub, OrderWMSHoofdingRepositoryStub)
+	
+	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
+	#dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID)
+
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.Count(),1)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.GetAt(1).InventTransId, " ")
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.GetAt(1).Qty, " ")
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.GetAt(1).PickId,AntwoordPickId)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).Pick.GetAt(1).ShippingDate, AntwoordShippingDate)
+	Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitlevering met 0 producten">
+<Implementation><![CDATA[
+	#dim UitleveringID = $$$DummyInteger
+	
+	Set Request = ##class(AXimpl.Request).%New("Inventory/PakbonMagGeboektWorden", UitleveringID)
+	
+	#dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(0)
+	
+	Set Bonlijnen = ##class(%ListOfObjects).%New()
+	
+	Set StandaardBon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do StandaardBon.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+	Do StandaardBon.IndienMethodCall("GeefID").DanReturn("123456")
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon)
+	
+	Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PakbonMagGeboektWordenConverter).%New(OrderApiStub, )
+	
+	#dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}"
+	#dim Response As AXif.Dynamics.Inventory.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>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/Converter/PakbonMagGeboektWordenConverter.cls.xml	(revision 59084)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.Converter.PakbonMagGeboektWordenConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxdEntityHeader">
+<Type>AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataMOrderApi">
+<Type>DOM.VKP.impl.DataM.DataMOrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsOngewenstProductFilter">
+<Type>AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderWMSHoofdingRepository">
+<Type>Flow.OrderWMS.HoofdingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI,OrderWMSHoofdingRepository:Flow.OrderWMS.HoofdingRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DataMOrderApi = $$$Inject(DataMOrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..OrderWMSHoofdingRepository = $$$Inject(OrderWMSHoofdingRepository, ##class(Flow.OrderWMS.HoofdingRepository).%New())
+	
+	Set ..IsOngewenstProductFilter = ##class(AX.Uitgaand.PM.impl.IsOngewenstProductInMigratieFilter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Request:AXimpl.Request,MessageId:%String=""</FormalSpec>
+<ReturnType>AXif.Dynamics.Inventory.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	Set MessageParts = ##class(AXif.Dynamics.Inventory.MessageParts).%New()
+	
+	Set ..AxdEntityHeader = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityHeader).%New()
+	Set ..AxdEntityHeader.class = "entity"
+	Set ..AxdEntityHeader.MessageId = MessageId
+	
+	#dim Bon As DOM.VKP.Bon = ..DataMOrderApi.GeefBon(Request.SubjectId)
+	
+	#dim LijnenIterator As TECH.Iterator = Bon.GeefBonLijnIterator()
+	while LijnenIterator.HasNext() {
+		#dim Lijn As DOM.VKP.ProductOrderlijn = LijnenIterator.Next()
+		Continue:Lijn.GeefAxInventTransId()=""
+		If Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product(){	
+			If $$$Not(..IsOngewenstProductFilter.IsValidProductNummer(Lijn.GeefProductID()))
+			{
+				Set Pick = ##class(AXif.Dynamics.Inventory.MessageParts.AxdEntityPick).%New()
+				Set Pick.class = "entity"
+				Set Pick.PickId = Bon.GeefID()
+				Set Pick.InventTransId = " "
+				Set Pick.Qty = " "
+				
+				#dim ShippingDate as %Date = +..OrderWMSHoofdingRepository.GeefViaID(Bon.GeefID()).DueOutTime
+				; Je kan niet in het verleden goederen verzenden die vandaag geraapt zijn.
+				If ShippingDate<+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() {
+					Set ShippingDate=+##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+				}
+				Set Pick.ShippingDate = ##class(TECH.DateTime).HorologToDate(ShippingDate)
+				
+				Do ..AxdEntityHeader.Pick.Insert(Pick)
+			}
+		}
+	}
+	
+	Do MessageParts.MessagePart.Header.Insert(..AxdEntityHeader)
+	
+	Quit MessageParts
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>