Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56952 -r60101
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56952)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 60101)
@@ -118,7 +118,7 @@
 		Set NacalculatieDto.Palletprijs = ..BepaalPalletPrijsVoorHaefele(Levering)
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
 		Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2
-	} ElseIf (..IsDuPont(KlantId)) {
+	} ElseIf (..IsDuPont(KlantId) || ..IsBiemarBois((KlantId))) {
 		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsDuPont
 		Set NacalculatieDto.Palletprijs = ..#PalletprijsDuPont
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
@@ -236,6 +236,14 @@
 <Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).DuPont())
 ]]></Implementation>
 </Method>
+
+<Method name="IsBiemarBois">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).BiemarBois())
+]]></Implementation>
+</Method>
 </Class>