Index: WSimpl/Vhisie4/KlantActiviteit/KlantActiviteit.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/KlantActiviteit/KlantActiviteit.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/KlantActiviteit/KlantActiviteit.cls.xml	(revision 47204)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.KlantActiviteit.KlantActiviteit">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="KlantId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="DatumLaatstActief">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^WSimpl.Vhi67E8.KlantActivi2950D</DataLocation>
+<DefaultData>KlantActiviteitDefaultData</DefaultData>
+<IdLocation>^WSimpl.Vhi67E8.KlantActivi2950D</IdLocation>
+<IndexLocation>^WSimpl.Vhi67E8.KlantActivi2950I</IndexLocation>
+<StreamLocation>^WSimpl.Vhi67E8.KlantActivi2950S</StreamLocation>
+<Data name="KlantActiviteitDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>KlantId</Value>
+</Value>
+<Value name="3">
+<Value>DatumLaatstActief</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder.cls.xml	(revision 47204)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitMelder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KlantActiviteitRepository">
+<Type>WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantActiviteitRepository:WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository,MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,DateTimeAPI:TECH.DateTime.DateTimeAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantActiviteitRepository = $$$Inject(KlantActiviteitRepository, ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository).%New())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerzendMeldingIndienNodig">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $$$Not(..KlantActiviteitRepository.BestaatViaKlantId(KlantId)) {
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
+		If $$$Not(Klant.IsCommercieelActief()) {
+			Do ..VerzendMelding(Klant)
+			Do ..VoegToeKlantActiviteit(KlantId)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKlantActiviteit">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantActiviteit As WSimpl.Vhisie4.KlantActiviteit.KlantActiviteit = ..KlantActiviteitRepository.Maak()
+	Set KlantActiviteit.KlantId = KlantId
+	Set KlantActiviteit.DatumLaatstActief = ..DateTimeAPI.CurrentTimeStamp()
+
+	Do ..KlantActiviteitRepository.Bewaar(KlantActiviteit)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendMelding">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Titel As %String = "Klant activiteit op vhisie 4 voor klant '" _Klant.GeefNaam() _"' met KlantId '" _Klant.GeefID() _ "'"
+	#dim Inhoud As %String = "Klant " _Klant.GeefNaam() _" met KlantId " _Klant.GeefID() _ " staat commercieel inactief"
+	Set Inhoud = Inhoud _ " en vertoont activiteit op vhisie 4." _$$$CRLF
+	Set Inhoud = Inhoud _ "Op datum en tijd " _..DateTimeAPI.CurrentTimeStamp() _$$$CRLF
+	Set Inhoud = Inhoud _ "(Deze melding is éénmalig.)"
+	
+	#dim MailTo As %String = "OV_weborder_R" _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
+	
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("OV"))
+	Do Mail.ZetOnderwerp(Titel)
+	Do Mail.ZetInhoud(Inhoud)
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger(MailTo)
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitRepository.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitRepository.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitRepository.cls.xml	(revision 47204)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>WSimpl.Vhisie4.KlantActiviteit.KlantActiviteit</Default>
+</Parameter>
+
+<Method name="BestaatViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("KlantId = ?", $LB(KlantId))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	 Quit ..GeefViaFilter("KlantId = ?",$LB(KlantId))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>