Index: vhDeploy/WV/Deploy20181112xActie2015SfsWijzigen.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20181112xActie2015SfsWijzigen.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20181112xActie2015SfsWijzigen.cls.xml	(revision 53860)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.WV.Deploy20181112xActie2015SfsWijzigen">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanpassing van de SFS Actie 2015 om integratie-testen terug goed te krijgen :-P </Default>
+</Parameter>
+
+<Parameter name="DoetDataWijzigingen">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim DatumGeldigTot As %String = "07.04.2015"   ; Aanpassing om integratie-testen terug goed te krijgen [ICT442] 
+	
+	Do ..WijzigActieVoorTBX("2015-04-07")
+	Do ..WijzigMaatwerkActieDefinitie("SFS_GratisCP_2015_LBX", DatumGeldigTot)
+	Do ..WijzigMaatwerkActieDefinitie("SFS_GratisCP_2015_TAX", DatumGeldigTot)
+]]></Implementation>
+</Method>
+
+<Method name="WijzigActieVoorTBX">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DatumGeldigTot:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ActieCode As %String = "SFS_GRATIS_KORPUSSCHIENEN_2015"
+	
+	If ##class(APPS.TBXWeb.impl.ActieSFSCorpusProfielen).%ExistsId(ActieCode) {
+		Set ActieSFS2015=##class(APPS.TBXWeb.impl.ActieSFSCorpusProfielen).%OpenId(ActieCode)
+		Set ActieSFS2015.DatumGeldigTot = DatumGeldigTot
+		#dim sc As %Status = ActieSFS2015.%Save()
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"De SFS-actie """_ActieCode_""" is kon niet bewaard worden.")
+		Write "De SFS-actie """_ActieCode_""" voor TBX is bewaard.",!
+	}
+	Else {
+		Write !,!,"De TBoxWeb-actie """_ActieCode_""" bestaat niet.  De gegevens konden NIET aangepast worden !!! ",!,!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigMaatwerkActieDefinitie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActieDefinitieCode:%String,DatumGeldigTot:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim MaatwerkActieDefinitieId As %Integer = ..GeefMaatwerkActieDefinitieId(ActieDefinitieCode)
+	
+	If $$$HasLength(MaatwerkActieDefinitieId) {
+		Set Data = ##class(DOM.EC.Winkelkar.Actie.data.MaatwerkActieDefinitie).%OpenId(MaatwerkActieDefinitieId)
+		Set Data.GeldigTot = ##class(TECH.TimeStampUtils).EndOfDay(##class(TECH.DateTime).HorologToTimeStamp($$INTDATE^vhLib.DataTypes(DatumGeldigTot)))
+		Do Data.Save()
+		Write "De MaatwerkActie """_ActieDefinitieCode_""" is bewaard.",!
+	}
+	Else {
+		Write !,!,"De MaatwerkActie """_ActieDefinitieCode_""" bestaat niet.  De gegevens konden NIET aangepast worden !!! ",!,!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkActieDefinitieId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActieDefinitieCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkActieDefinitieId As %Integer = ""
+	
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim SqlStatement = "SELECT ID FROM DOM_EC_Winkelkar_Actie_data.MaatwerkActieDefinitie WHERE Code = ?"
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,$LB(ActieDefinitieCode)))
+	
+	If ResultSet.Next() {
+		Set MaatwerkActieDefinitieId = ResultSet.GetData(1)
+	}
+	
+	Quit MaatwerkActieDefinitieId
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>