Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u -r71139 -r72584
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 71139)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 72584)
@@ -38,16 +38,17 @@
 
 <Method name="GeefLeveringInfoWWPalletEnHalve">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>AantalWW:%Decimal=1,AantalHalve:%Decimal=1</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
 <Implementation><![CDATA[
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringInfo()
 	
 	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.HalveEuropallet).%New()
-	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Aantal = AantalHalve
 	Set VerpakkingEenheid.Volgnummer = 1
 
 	Set VerpakkingEenheidWW = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet).%New()
-	Set VerpakkingEenheidWW.Aantal = 1
+	Set VerpakkingEenheidWW.Aantal = AantalWW
 	Set VerpakkingEenheidWW.Volgnummer = 1
 
 	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()