Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r46643 -r52975
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 46643)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 52975)
@@ -23,6 +23,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarService">
+<Type>DOM.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarUtils">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TransportDuur">
 <Type>APPS.TRANSP.Offerte.impl.DHL.Transportduur</Type>
 <Private>1</Private>
@@ -49,7 +64,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler</FormalSpec>
+<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,WinkelkarUtils:DOM.EC.Winkelkar.impl.WinkelkarUtils,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -58,6 +73,10 @@
 	Set ..TransportduurRepository = $$$Inject(TransportduurRepository, ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New())
 	Set ..TariefBepaler = $$$Inject(TariefBepaler,##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New())
 	Set ..StapelingBepaler = $$$Inject(StapelingBepaler, ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService,##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
+	Set ..WinkelkarUtils = $$$Inject(WinkelkarUtils,##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+
 	Set ..OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
 	set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
 
@@ -130,6 +149,7 @@
 	Set OfferteItem.CarbonNeutralPrijs = 0
 	Set OfferteItem.Kostprijs = ..TransportTarief
 	Set OfferteItem.AantalPalletten = ..AantalPalletten
+	Set OfferteItem.AantalLades = ..GeefAantalLadesVanOfferte(..BerekenInput.Referentie)
 
 	#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(..BerekenInput.VroegsteAfhaalDatum)
 
@@ -145,6 +165,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalLadesVanOfferte">
+<FormalSpec>OfferteId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim Offerte as APPS.VKP.Offerte = ..OfferteRepository.GeefViaID(OfferteId)
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.GeefWinkelkarID())
+	
+	#dim MaatwerkLijnIterator as TECH.Iterator = ..WinkelkarUtils.GeefMaatwerkLijnIterator( Winkelkar)
+	#dim Totaal as %Integer = 0
+	while MaatwerkLijnIterator.HasNext() {
+		Set Totaal = Totaal + MaatwerkLijnIterator.Next().Aantal
+			}
+	Quit Totaal
+]]></Implementation>
+</Method>
+
 <Method name="BerekenLeverDag">
 <FormalSpec>AfhaalDatum:%Date,DuurtijdInWerkDagen:%Integer</FormalSpec>
 <Private>1</Private>