Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37245 -r37279 --- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37245) +++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37279) @@ -164,7 +164,7 @@ Set Verzendingmogelijkheid.Duurtijd = OfferteItem.Duurtijd Set Verzendingmogelijkheid.Omschrijving = OfferteItem.Omschrijving Set Verzendingmogelijkheid.ExtraInfo = ..Vertaler.GeefVertaling(OfferteItem.Omschrijving) - Set Verzendingmogelijkheid.VerkoopPrijs = OfferteItem.Kostprijs + Set Verzendingmogelijkheid.TransportKost = OfferteItem.Kostprijs Set Verzendingmogelijkheid.Optie = ..MaakCarbonNeutralOptie(OfferteItem.CarbonNeutralPrijs) Set Verzendingmogelijkheid.TransportFirma = TransportFirma if (OfferteItem.AantalPalletten '= "") { @@ -239,7 +239,7 @@ Set VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem).%New() Set VerzendingItem.Code = VerzendingMogelijkheid.Code Set VerzendingItem.Duurtijd = VerzendingMogelijkheid.Duurtijd - Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.VerkoopPrijs + Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.TransportKost Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar(..PersonalityID,..KlantID).BerekenVerkoopPrijs(OfferteItem) Set VerzendingItem.LeverDag = VerzendingMogelijkheid.LeverDag Set VerzendingItem.LeverDatum = VerzendingMogelijkheid.LeverDatum Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml =================================================================== diff -u -r37245 -r37279 --- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37245) +++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37279) @@ -304,7 +304,7 @@ #dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput) If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) { - Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).VerkoopPrijs,44.5) + Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).TransportKost, 44.5) } ]]> Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt =================================================================== diff -u -r37141 -r37279 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt (.../WS.EC.ExterneVerkoopService.txt) (revision 37141) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt (.../WS.EC.ExterneVerkoopService.txt) (revision 37279) @@ -1302,7 +1302,7 @@ - + Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml =================================================================== diff -u -r37245 -r37279 --- WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 37245) +++ WS/EC/Unishop/InternationaleZending/Service.cls.xml (.../Service.cls.xml) (revision 37279) @@ -152,6 +152,7 @@ Do ..ValideerOptieKeuze(OptieKeuze) #dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID) + #dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingMogelijkheid Set VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaOfferteIDEnVerzendingMogelijkheidID(OfferteID,VerzendingMogelijkheidID) Do Offerte.ZetVerzendingItem($$ConstructClone^vhLib.Class(VerzendingMogelijkheid.Verzending,##class(APPS.VKP.impl.Offerte.VerzendingItem).%ClassName(1))) @@ -170,6 +171,7 @@ WS.EC.ExterneVerkoop.dto.Selectie TECH.String - + TECH.Decimal