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