Index: APPS/VKP/Klantspecifiek/Haefele/KortingNietGeupdateMelder.cls.xml
===================================================================
diff -u -r29073 -r29074
--- APPS/VKP/Klantspecifiek/Haefele/KortingNietGeupdateMelder.cls.xml	(.../KortingNietGeupdateMelder.cls.xml)	(revision 29073)
+++ APPS/VKP/Klantspecifiek/Haefele/KortingNietGeupdateMelder.cls.xml	(.../KortingNietGeupdateMelder.cls.xml)	(revision 29074)
@@ -16,10 +16,10 @@
 <Method name="ControleerEnMeld">
 <Implementation><![CDATA[
 	Set ..PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()
-	If ..IsLangerDanAantalDagenNietGeupdate(..#AantalDagenNaDatMeldingMoetGestuurdWorden)
-	{
+	#dim AantalDagenNietGeupdate As %Integer = ..GeefAantalDagenNietGeupdate()
+	If (AantalDagenNietGeupdate > ..#AantalDagenNaDatMeldingMoetGestuurdWorden) {
 		#dim Message As %String = "Beste,"_$C(13,10)_$C(13,10)
-		Set Message = Message_"Sinds "_..#AantalDagenNaDatMeldingMoetGestuurdWorden_" dagen hebben wij geen kortingbestanden meer ontvangen."
+		Set Message = Message_"Sinds "_AantalDagenNietGeupdate_" dagen hebben wij geen kortingbestanden meer ontvangen."
 		Set Message = Message_$C(13,10)_$C(13,10)
 		Set Message = Message_"Vriendelijke groet,"_$C(13,10)
 		Set Message = Message_"Van Hoecke NV"
@@ -39,17 +39,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsLangerDanAantalDagenNietGeupdate">
-<FormalSpec>AantalDagen:%Integer</FormalSpec>
+<Method name="GeefAantalDagenNietGeupdate">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim DateTime As TECH.DateTime = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	#dim LaatsteUpdate As %TimeStamp = ..GeefLaatsteUpdate()
 	#dim HuidigTijdstip As %TimeStamp = DateTime.CurrentTimeStamp()
-	#dim TijdstipVanafWanneerMeldingMoetGestuurdWorden As %TimeStamp = DateTime.TimeStampBereken(HuidigTijdstip,(-AantalDagen),##class(TECH.enu.DatePart).Dag())
-	
-	Quit (LaatsteUpdate < TijdstipVanafWanneerMeldingMoetGestuurdWorden)
+	#dim AantalDagenVerschil As %Integer = DateTime.TimeStampVerschil(##class(TECH.enu.DatePart).Dag(),LaatsteUpdate,HuidigTijdstip)
+	Quit AantalDagenVerschil
 ]]></Implementation>
 </Method>