Index: APPS/EC/dto/Offerte.cls.xml =================================================================== diff -u -r29059 -r39295 --- APPS/EC/dto/Offerte.cls.xml (.../Offerte.cls.xml) (revision 29059) +++ APPS/EC/dto/Offerte.cls.xml (.../Offerte.cls.xml) (revision 39295) @@ -29,6 +29,11 @@ APPS.EC.dto.Offerte + + +%Date + + Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml =================================================================== diff -u -r39288 -r39295 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 39288) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 39295) @@ -79,11 +79,11 @@ Set Offerte.Winkelkar = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New() Set Offerte.Winkelkar.WinkelkarID = "DummyWinkelkarId" Set Offerte.Melding = "DummyMelding" + Set Offerte.PrijzenGeldigTotEnMetDatum = $$$DummyDate Set WinkelkarLijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New() Set WinkelkarLijn.ExterneId = "ExterneWinkelkarLijnID" Set WinkelkarLijn.EenheidPrijs = 12.5 - Set WinkelkarLijn.PrijzenGeldigTotEnMet = $$$DummyDate Set WinkelkarLijn.TotaalPrijs = TotaalPrijs Do Offerte.Winkelkar.Lijnen.Insert(WinkelkarLijn) Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml =================================================================== diff -u -r39288 -r39295 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml (.../HerberekenMaatwerk.cls.xml) (revision 39288) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml (.../HerberekenMaatwerk.cls.xml) (revision 39295) @@ -54,7 +54,7 @@ Set HerberekendeLijn.LijnID = MaatwerkLijn.ExterneId Set HerberekendeLijn.EenheidPrijs = MaatwerkLijn.EenheidPrijs Set HerberekendeLijn.TotaalPrijs = MaatwerkLijn.TotaalPrijs - Set HerberekendeLijn.PrijzenGeldigTotEnMet = MaatwerkLijn.PrijzenGeldigTotEnMet + Set HerberekendeLijn.PrijzenGeldigTotEnMet = Offerte.PrijzenGeldigTotEnMetDatum Do Response.HerberekendeLijnen.Insert(HerberekendeLijn) } Index: APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml =================================================================== diff -u -r36838 -r39295 --- APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml (.../OfferteHerberekenaar.cls.xml) (revision 36838) +++ APPS/EC/Verkoop/impl/OfferteHerberekenaar.cls.xml (.../OfferteHerberekenaar.cls.xml) (revision 39295) @@ -127,6 +127,7 @@ #dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID) Set OfferteDto.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.WinkelkarID) Set OfferteDto.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte) + Set OfferteDto.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum() if ..OfferteService.HeeftOfferteVanVH(Offerte) { #dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte)