Index: APPS/EC/Transport/Service.cls.xml
===================================================================
diff -u -r54845 -r72986
--- APPS/EC/Transport/Service.cls.xml	(.../Service.cls.xml)	(revision 54845)
+++ APPS/EC/Transport/Service.cls.xml	(.../Service.cls.xml)	(revision 72986)
@@ -28,18 +28,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="StapelingBepaler">
-<Type>APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="BerekeningFoutenRepository">
 <Type>APPS.EC.Transport.impl.BerekeningFoutenRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:APPS.EC.Transport.impl.ZendingDetails,VerzendingMogelijkheidRepository:APPS.EC.Transport.impl.VerzendingMogelijkheidRepository,WinkelKarService:APPS.EC.Winkelkar.WinkelkarService,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler,BerekeningFoutenRepository:APPS.EC.Transport.impl.BerekeningFoutenRepository</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,NaarBerekenInputConverter:APPS.VKP.OfferteService.impl.NaarBerekenInputConverter,ZendingDetails:APPS.EC.Transport.impl.ZendingDetails,VerzendingMogelijkheidRepository:APPS.EC.Transport.impl.VerzendingMogelijkheidRepository,WinkelKarService:APPS.EC.Winkelkar.WinkelkarService,BerekeningFoutenRepository:APPS.EC.Transport.impl.BerekeningFoutenRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -50,7 +45,6 @@
 	Set ..ZendingDetails = $$$Inject(ZendingDetails, ##class(APPS.EC.Transport.impl.ZendingDetails).%New())
 	Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New())
 	Set ..WinkelKarService = $$$Inject(WinkelKarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
-	Set ..StapelingBepaler = $$$Inject(StapelingBepaler, ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New())
 	Set ..BerekeningFoutenRepository = $$$Inject(BerekeningFoutenRepository, ##class(APPS.EC.Transport.impl.BerekeningFoutenRepository).%New())
 
 	quit $$$OK
@@ -86,68 +80,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenPalletGegevens">
-<FormalSpec>OfferteID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim Verpakkingen As APPS.VKP.Offerte.dto.VerpakkingList = ..OfferteService.GeefProductVerpakkingDetails(OfferteID)
-	
-	Do ..StapelingBepaler.VerwijderOudeGegevens(OfferteID)
-
-	#dim LadeTypeIterator As TECH.ListIterator = ##class(APPS.VKP.Offerte.enu.LadeType).ValueListIterator()
-	While LadeTypeIterator.HasNext() {
-		#dim LadeType As APPS.VKP.Offerte.enu.LadeType = LadeTypeIterator.Next()
-		#dim VerpakkingTypeIterator As TECH.ListIterator = ##class(APPS.VKP.Offerte.enu.VerpakkingType).ValueListIterator()
-		While VerpakkingTypeIterator.HasNext(){
-
-			#dim VerpakkingType As APPS.VKP.Offerte.enu.VerpakkingType = VerpakkingTypeIterator.Next()
-			#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet
-
-			Set CollisOpPallet = ..MaakCollisOpPallet(Verpakkingen.ZoekVerpakkingen(VerpakkingType, LadeType), OfferteID, VerpakkingType, LadeType)
-			if $IsObject(CollisOpPallet) && (CollisOpPallet.Collis.Count() > 0) {
-				if (LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()) {
-					Do ..StapelingBepaler.BerekenMetVastAantal(CollisOpPallet, 16)
-				} elseIf $$$Not(VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).FlatpackV1()) || $$$Not(LadeType = ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure()) {
-					Do ..StapelingBepaler.Bereken(CollisOpPallet)
-				}
-			}
-		}
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakCollisOpPallet">
-<FormalSpec>Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,OfferteID:%String,VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType,LadeType:APPS.VKP.Offerte.enu.LadeType</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set CollisOpPallet = ##class(APPS.TRANSP.Stapeling.dto.CollisOpPallet).%New()
-	Set CollisOpPallet.Referentie = OfferteID
-	Set CollisOpPallet.Groep = LadeType _"_" _VerpakkingType
-	Set CollisOpPallet.Settings = ##class(APPS.TRANSP.Stapeling.dto.Settings).%New()
-	Do CollisOpPallet.Settings.PalletFormaten.Insert(##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).EuroPallet())
-	Do CollisOpPallet.Settings.PalletFormaten.Insert(##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).WegwerpPallet())
-
-	#dim VerpakkingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Verpakkingen)
-	while VerpakkingenIterator.HasNext() {
-		Do CollisOpPallet.Collis.Insert(..MaakColliOpPallet(VerpakkingenIterator.Next()))
-	}
-	Quit CollisOpPallet
-]]></Implementation>
-</Method>
-
-<Method name="MaakColliOpPallet">
-<FormalSpec>Verpakking:APPS.VKP.Offerte.dto.Verpakking</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.TRANSP.Stapeling.dto.ColliOpPallet</ReturnType>
-<Implementation><![CDATA[
-	Set ColliOpPallet = ##class(APPS.TRANSP.Stapeling.dto.ColliOpPallet).%New()
-	Set ColliOpPallet.Aantal = Verpakking.Aantal
-	Set ColliOpPallet.GewichtInKg = (Verpakking.Gewicht / 1000)
-	Set ColliOpPallet.ProductID = Verpakking.ProductID
-	Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(Verpakking.Afmeting.Hoogte,Verpakking.Afmeting.Breedte,Verpakking.Afmeting.Lengte)
-	Quit ColliOpPallet
-]]></Implementation>
-</Method>
-
 <Method name="GeefVroegsteAfhaalDatum">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Private>1</Private>