Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33016 -r33019
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33016)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33019)
@@ -23,7 +23,7 @@
 <Method name="Test: BerekenOfferte op APPS.TRANSP.OfferteService wordt opgeroepen met de gewenste verpakkinginformatie">
 <Implementation><![CDATA[
 	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
-	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200,"123-456",2)
 	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
 	Do Verpakkingen.Insert(Verpakking)
 	
@@ -78,6 +78,7 @@
 	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanDoeNiks()
 
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = OfferteId
 	Set BerekenInput.LeverAdres = LeverAdres
 	
 	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
@@ -102,7 +103,7 @@
 	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",OfferteId).DanDoeNiks()
 	
 	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
-	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200, "123-456", 2)
 	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
 	Do Verpakkingen.Insert(Verpakking)
 	
@@ -112,8 +113,11 @@
 	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
 	Set TeVerzendItem.Gewicht = 25
 	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
 	
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = OfferteId
 	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
 	
 	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33016 -r33019
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33016)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33019)
@@ -32,21 +32,22 @@
 	#dim Verpakkingen As APPS.VKP.Offerte.dto.VerpakkingList = ..OfferteService.GeefProductVerpakkingDetails(OfferteId)
 	#dim LeverAdres As APPS.TRANSP.dto.InternationaalAdres = ..OfferteService.GeefLeverAdres(OfferteId)
 
-	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..MaakBerekenInput(Verpakkingen, LeverAdres)
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..MaakBerekenInput(Verpakkingen, LeverAdres, OfferteId)
 
 	do ..TransportOfferteService.BerekenOfferte("UPS", BerekenInput)
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBerekenInput">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:APPS.TRANSP.dto.InternationaalAdres</FormalSpec>
+<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:APPS.TRANSP.dto.InternationaalAdres,OfferteId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
 <Implementation><![CDATA[
 	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.LeverAdres = LeverAdres
-	
+	Set BerekenInput.Referentie = OfferteId
+	/// Set BerekenInput.GEwensteLeverDatum = ???	
 	if ($IsObject(Verpakkingen) && Verpakkingen.Count() > 0)
 	{
 		set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen)
@@ -56,6 +57,9 @@
 			Set TeVerzendItem.Gewicht = Verpakking.Gewicht
 			Set TeVerzendItem.WaardeGoederen = Verpakking.WaardeGoederen
 			Set TeVerzendItem.Afmeting = Verpakking.Afmeting.%ConstructClone()
+			Set TeVerzendItem.Aantal = Verpakking.Aantal
+			Set TeVerzendItem.ProductID = Verpakking.ProductID
+			///Set TeVerzendItem.DatumBeschikbaar = ???
 			Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
 		}
 	}
Index: APPS/VKP/Offerte/dto/Verpakking.cls.xml
===================================================================
diff -u -r33004 -r33019
--- APPS/VKP/Offerte/dto/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 33004)
+++ APPS/VKP/Offerte/dto/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 33019)
@@ -15,8 +15,16 @@
 <Type>TECH.Decimal</Type>
 </Property>
 
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>TECH.Integer</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Afmeting:APPS.TRANSP.OfferteService.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal=""</FormalSpec>
+<FormalSpec>Afmeting:APPS.TRANSP.OfferteService.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -25,6 +33,8 @@
 	Set ..Afmeting = Afmeting
 	Set ..Gewicht =  Gewicht
 	Set ..WaardeGoederen = WaardeGoederen
+	Set ..ProductID = ProductID
+	Set ..Aantal = Aantal
 	quit $$$OK
 ]]></Implementation>
 </Method>