Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r62386 -r63952
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 62386)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 63952)
@@ -124,7 +124,7 @@
 		Set NacalculatieDto.Palletprijs = ..BepaalPalletPrijsVoorHaefele(Levering)
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
 		Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2
-	} ElseIf (..IsDuPont(KlantId) || ..IsBiemarBois(KlantId) || ..IsOptima(KlantId)) {
+	} ElseIf (..IsHafeleBE(KlantId) || ..IsDuPont(KlantId) || ..IsBiemarBois(KlantId) || ..IsOptima(KlantId)) {
 		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsDuPont
 		Set NacalculatieDto.Palletprijs = ..#PalletprijsDuPont
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
@@ -243,6 +243,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsHafeleBE">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).HaefeleBelgie())
+]]></Implementation>
+</Method>
+
 <Method name="IsBiemarBois">
 <FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>