Index: APPS/VKP/OrderIngaveService.cls.xml =================================================================== diff -u -r36589 -r37020 --- APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 36589) +++ APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 37020) @@ -158,7 +158,7 @@ Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte TECH.String - + TECH.Decimal + +TECH.Decimal + + WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Optie @@ -72,6 +76,12 @@ Optie + +AankoopPrijs + + +VerkoopPrijs + Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37017 -r37020 --- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37017) +++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37020) @@ -197,7 +197,8 @@ Set VerzendingItem = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.VerzendingItem).%New() Set VerzendingItem.Code = ZendingDetail.Code Set VerzendingItem.Duurtijd = ZendingDetail.Duurtijd - Set VerzendingItem.KostPrijs = ZendingDetail.KostPrijs + Set VerzendingItem.AankoopPrijs = ZendingDetail.KostPrijs + Set VerzendingItem.VerkoopPrijs = ZendingDetail.KostPrijs Set VerzendingItem.LeverDag = ZendingDetail.LeverDag Set VerzendingItem.LeverDatum = ZendingDetail.LeverDatum Set VerzendingItem.LeverTijd = ZendingDetail.LeverTijd Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml =================================================================== diff -u -r36317 -r37020 --- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml (.../TestManueleLijn.cls.xml) (revision 36317) +++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestManueleLijn.cls.xml (.../TestManueleLijn.cls.xml) (revision 37020) @@ -10,7 +10,7 @@ Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New() Set ..Offerte.VerzendingItem.Code = 1 Set ..Offerte.VerzendingItem.Duurtijd = 1 - Set ..Offerte.VerzendingItem.KostPrijs = 9.99 + Set ..Offerte.VerzendingItem.VerkoopPrijs = 9.99 Set ..Offerte.VerzendingItem.Omschrijving = "UPS (Worldwide) Express Plus" Do ..Offerte.Save() @@ -37,7 +37,7 @@ Set ..Offerte.VerzendingItem = ##class(APPS.VKP.impl.Offerte.VerzendingItem).%New() Set ..Offerte.VerzendingItem.Code = 3 Set ..Offerte.VerzendingItem.Duurtijd = 2 - Set ..Offerte.VerzendingItem.KostPrijs = 8.99 + Set ..Offerte.VerzendingItem.VerkoopPrijs = 8.99 Set ..Offerte.VerzendingItem.Omschrijving = "UPS Express Saver" Set ..Offerte.CarbonNeutral = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid.Selectie).%New() Set ..Offerte.CarbonNeutral.Omschrijving = "Ja, ik betaal EUR 4.30" Index: APPS/VKP/impl/Offerte/VerzendingItem.cls.xml =================================================================== diff -u -r34627 -r37020 --- APPS/VKP/impl/Offerte/VerzendingItem.cls.xml (.../VerzendingItem.cls.xml) (revision 34627) +++ APPS/VKP/impl/Offerte/VerzendingItem.cls.xml (.../VerzendingItem.cls.xml) (revision 37020) @@ -32,10 +32,14 @@ TECH.String - + TECH.Decimal + +TECH.Decimal + + %Library.CacheSerialState VerzendingItemState @@ -63,8 +67,11 @@ LeverDag -KostPrijs +AankoopPrijs + +VerkoopPrijs +