Index: APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml
===================================================================
diff -u -r34526 -r34528
--- APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml	(.../PalettenBepaler.cls.xml)	(revision 34526)
+++ APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml	(.../PalettenBepaler.cls.xml)	(revision 34528)
@@ -3,7 +3,7 @@
 <Class name="APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="GeefPaletten">
+<Method name="Bepaal">
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Paletten</ReturnType>
 <Implementation><![CDATA[
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34526 -r34528
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34526)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34528)
@@ -68,7 +68,7 @@
 <Implementation><![CDATA[
 	#dim TotaalTarief As %Decimal = 0
 	
-	#dim PalettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..PalettenBepaler.GeefPaletten(..BerekenInput))
+	#dim PalettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..PalettenBepaler.Bepaal(..BerekenInput))
 	While PalettenIterator.HasNext()
 	{
 		#dim Palet As APPS.TRANSP.OfferteService.dto.Palet = PalettenIterator.Next()
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler/Bepaal/Test.cls.xml	(revision 34528)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft paletten weer aan de hand van berekeninput">
+<Implementation><![CDATA[
+	#dim PalettenBepaler As APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler).%New()
+	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	
+	#dim Paletten As APPS.TRANSP.OfferteService.dto.Paletten = PalettenBepaler.Bepaal(BerekenInputDummy)
+	
+	Do $$$AssertEquals(Paletten.Count(),1)
+	#dim Palet As APPS.TRANSP.OfferteService.dto.Palet = Paletten.GetAt(1)
+	Do $$$AssertEquals(Palet.Gewicht,100)
+	Do $$$AssertEquals(Palet.Afmeting.Breedte,1)
+	Do $$$AssertEquals(Palet.Afmeting.Hoogte,1)
+	Do $$$AssertEquals(Palet.Afmeting.Lengte,1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>