Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u -r40951 -r60415
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 40951)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(.../LeveringInfo.cls.xml)	(revision 60415)
@@ -7,6 +7,63 @@
 <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.Colli).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringInfoEuroPallet">
+<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.Europallet).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 1
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringInfoMix">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ..GeefLeveringInfo()
+	
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Europallet).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 2
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 2
+	
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringInfo">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[
 	Set LeveringInfo = ##class(APPS.TRANSP.dto.LeveringInfo).%New()
 	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = 0
 	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 5
@@ -30,13 +87,6 @@
 	Set LeveringInfo.OphaalTijdstip = "2017-03-22 15:04:05"
 	Set LeveringInfo.Referentie = "referentie"
 	Set LeveringInfo.Telefoon = "+3221234567"
-	
-	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
-	Set VerpakkingEenheid.Aantal = 1
-	Set VerpakkingEenheid.Volgnummer = 1
-
-	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
-	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
 	Quit LeveringInfo
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler/GeefVerzendwijze.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler/GeefVerzendwijze.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler/GeefVerzendwijze.cls.xml	(revision 60415)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Transsmart.impl.VerzendWijzeBepaler.GeefVerzendwijze">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set VerzendWijzeBepaler = ##class(APPS.TRANSP.Transsmart.impl.VerzendWijzeBepaler).%New()
+	Do $$$AssertEquals(VerzendWijzeBepaler.GeefVerzendWijze(##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoColli()),"Parcel")
+	Do $$$AssertEquals(VerzendWijzeBepaler.GeefVerzendWijze(##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()),"Freight")
+	Do $$$AssertEquals(VerzendWijzeBepaler.GeefVerzendWijze(##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoMix()),"Freight")
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoColli()
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 1
+	Set LeveringInfo.Gewicht = 31.5
+	Do $$$AssertEquals(VerzendWijzeBepaler.GeefVerzendWijze(LeveringInfo),"Parcel")
+	Set LeveringInfo.Gewicht = 32
+	Do $$$AssertEquals(VerzendWijzeBepaler.GeefVerzendWijze(LeveringInfo),"Freight")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringInfo">
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoColli()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>