Index: vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r41647 -r41673
--- vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41647)
+++ vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41673)
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="AantalPalletten">
@@ -9,6 +12,24 @@
 <Private>1</Private>
 </Property>
 
+<Method name="Bereken">
+<FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BerekenMetVastAantal">
+<FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet,AantalOpPallet:%Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeGegevens">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="ZetAantalPalletten">
 <FormalSpec>AantalPalletten:%Integer</FormalSpec>
 <Implementation><![CDATA[	Set ..AantalPalletten = AantalPalletten
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r41644 -r41673
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41644)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41673)
@@ -111,23 +111,34 @@
 	}
 	
 	#dim TotaalAantalPalletten As %Integer = ##class(TECH.Math).Ceil(TotaalAantalCollis / AantalOpPallet)
-	#dim PalletGewichtInKG = ##class(TECH.Math).Ceil(TotaalGewichtInKG / TotaalAantalPalletten)
-	#dim PalletSpecificaties As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container 
-	Set PalletSpecificaties = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefEuroPallet()
+	#dim PalletGewichtInKG As %Integer = ##class(TECH.Math).Ceil(TotaalGewichtInKG / TotaalAantalPalletten)
 	
 	#dim AantalPalletten As %Integer 
 	For AantalPalletten=1:1:TotaalAantalPalletten {
-		#dim Pallet As APPS.TRANSP.Stapeling.dto.Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
-		Set Pallet.GewichtInKG = PalletGewichtInKG
-		Set Pallet.Afmeting.Hoogte = PalletSpecificaties.height
-		Set Pallet.Afmeting.Lengte = PalletSpecificaties.depth
-		Set Pallet.Afmeting.Breedte = PalletSpecificaties.width
-		Do StapelaarResultaat.Palletten.Insert(Pallet)
+		Do StapelaarResultaat.Palletten.Insert(..MaakPallet(PalletGewichtInKG))
 	}
 	
 	Do ..StapelingBewaarder.Bewaar(StapelaarResultaat)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakPallet">
+<FormalSpec>PalletGewichtInKG:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.dto.Pallet</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletSpecificaties As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container 
+	Set PalletSpecificaties = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefEuroPallet()
+
+	Set Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
+	Set Pallet.GewichtInKG = PalletGewichtInKG
+	Set Pallet.Afmeting.Hoogte = PalletSpecificaties.height
+	Set Pallet.Afmeting.Lengte = PalletSpecificaties.depth
+	Set Pallet.Afmeting.Breedte = PalletSpecificaties.width
+	
+	Quit Pallet
+]]></Implementation>
+</Method>
 </Class>