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