Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37404 -r37603 --- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37404) +++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37603) @@ -158,7 +158,7 @@ Set Verzendingmogelijkheid.Duurtijd = OfferteItem.Duurtijd Set Verzendingmogelijkheid.Omschrijving = OfferteItem.Omschrijving Set Verzendingmogelijkheid.ExtraInfo = ..Vertaler.GeefVertaling(OfferteItem.Omschrijving) - Set Verzendingmogelijkheid.TransportKost = OfferteItem.Kostprijs + Set Verzendingmogelijkheid.TransportKost = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..Sessie).BerekenVerkoopPrijs(OfferteItem) Set Verzendingmogelijkheid.Optie = ..MaakCarbonNeutralOptie(OfferteItem.CarbonNeutralPrijs) Set Verzendingmogelijkheid.TransportFirma = TransportFirma if (OfferteItem.AantalPalletten '= "") { @@ -233,8 +233,8 @@ Set VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem).%New() Set VerzendingItem.Code = VerzendingMogelijkheid.Code Set VerzendingItem.Duurtijd = VerzendingMogelijkheid.Duurtijd - Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.TransportKost - Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..Sessie).BerekenVerkoopPrijs(OfferteItem) + Set VerzendingItem.AankoopPrijs = OfferteItem.Kostprijs + Set VerzendingItem.VerkoopPrijs = VerzendingMogelijkheid.TransportKost Set VerzendingItem.LeverDag = VerzendingMogelijkheid.LeverDag Set VerzendingItem.LeverDatum = VerzendingMogelijkheid.LeverDatum Set VerzendingItem.LeverTijd = VerzendingMogelijkheid.LeverTijd