Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml
===================================================================
diff -u -r35736 -r35739
--- vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35736)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35739)
@@ -5,10 +5,15 @@
 
 <Method name="GeefCollisOpPallet">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Stapeling.dto.CollisOpPallet</ReturnType>
 <Implementation><![CDATA[
 	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(APPS.TRANSP.Stapeling.dto.CollisOpPallet).%New()
+
 	#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = ##class(APPS.TRANSP.Stapeling.dto.ColliOpPallet).%New()
-	
+	Set ColliOpPallet.Aantal = 2
+	Set ColliOpPallet.Gewicht = 15 // KG
+	Set ColliOpPallet.ProductID = 1
+	Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.Stapeling.dto.Afmeting).%New(163,300,700)
 	Do CollisOpPallet.Insert(ColliOpPallet)
 	
 	Quit CollisOpPallet