Index: vhDeploy/WV/Deploy20150122xActie2015SFS.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20150122xActie2015SFS.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20150122xActie2015SFS.cls.xml	(revision 600)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.WV.Deploy20150122xActie2015SFS">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van de TBoxWeb-actie 2015 voor SFS</Default>
+</Parameter>
+
+<Parameter name="DoetDataWijzigingen">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ActieCode="SFS_GRATIS_KORPUSSCHIENEN_2015"
+	
+	If ##class(APPS.TBXWeb.impl.ActieSFSCorpusProfielen).%ExistsId(ActieCode) {
+		Write !,!,"De TBoxWeb-actie """_ActieCode_""" bestaat reeds.  De gegevens worden niet verwijderd of aangepast !!! ",!,!
+	}
+	Else {
+		Set ActieSFS2015=##class(APPS.TBXWeb.impl.ActieSFSCorpusProfielen).%New()
+		Set ActieSFS2015.ActieCode=ActieCode
+		Set ActieSFS2015.DatumGeldigVan="2015-02-01"
+		Set ActieSFS2015.DatumGeldigTot="2015-04-30"
+		Set sc=ActieSFS2015.%Save()
+		Write "De TBoxWeb-actie """_ActieCode_""" is bewaard.  Resultaat van de %Save() = "_sc_" "_$$ParseStatus^vhLib(sc),!
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>