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