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)