Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u -r69222 -r71139
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 69222)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 71139)
@@ -36,6 +36,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeveringInfoWWPalletEnHalve">
+<ClassMethod>1</ClassMethod>
+<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.Volgnummer = 1
+
+	Set VerpakkingEenheidWW = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Wegwerppallet).%New()
+	Set VerpakkingEenheidWW.Aantal = 1
+	Set VerpakkingEenheidWW.Volgnummer = 1
+
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheidWW)
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 2
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringInfoEuroEnWWPallet">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>