Index: vhUnitTest/APPS/VKP/impl/Offerte/TestGeefPrijzenGeldigTotEnMetDatumInKaderVanPrijswijziging.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/Offerte/TestGeefPrijzenGeldigTotEnMetDatumInKaderVanPrijswijziging.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/Offerte/TestGeefPrijzenGeldigTotEnMetDatumInKaderVanPrijswijziging.cls.xml	(revision 45162)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.Offerte.TestGeefPrijzenGeldigTotEnMetDatumInKaderVanPrijswijziging">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Offertes aangemaakt in september krijgen een vervaldatum van eind september">
+<Implementation><![CDATA[
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.09.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"30.09.2017")
+
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("05.09.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"30.09.2017")
+
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("30.09.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"30.09.2017")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Offertes aangemaakt vanaf oktober krijgen terug de standaard PrijzenGeldigTotEnMetDatum">
+<Implementation><![CDATA[
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.10.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"31.10.2017")
+	
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("02.10.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"01.11.2017")
+	
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("05.10.2017")
+	set Offerte = ##class(APPS.VKP.impl.Offerte).%New("K||1000")
+	do $$$AssertEqualsDate(Offerte.GeefPrijzenGeldigTotEnMetDatum(),"04.11.2017")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r45152 -r45162
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 45152)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 45162)
@@ -140,7 +140,9 @@
 
 <Method name="GeefPrijzenGeldigTotEnMetDatum">
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit ..PrijsBerekeningDatum + 30
+<Implementation><![CDATA[
+	Quit:$$$ValIsBetween(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate(),$$INTDATE^vhLib.DataTypes("30.08.2017"),$$INTDATE^vhLib.DataTypes("30.09.2017")) $$INTDATE^vhLib.DataTypes("30.09.2017") 
+	Quit ..PrijsBerekeningDatum + 30
 ]]></Implementation>
 </Method>