Index: WV GAProduct DMZ.prj.xml
===================================================================
diff -u -r98 -r124
--- WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 98)
+++ WV GAProduct DMZ.prj.xml	(.../WV GAProduct DMZ.prj.xml)	(revision 124)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct DMZ" LastModified="2011-11-14 18:12:26" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct DMZ" LastModified="2012-01-26 18:14:21" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -146,6 +146,7 @@
     <ProjectItem name="vhConsistency.Checks.NietVerwerkteTBXOrders" type="CLS"/>
     <ProjectItem name="vhDeploy.WV.Deploy20110905x0939" type="CLS"/>
     <ProjectItem name="vhDeploy.WV.Deploy20111114x1650inoxReling" type="CLS"/>
+    <ProjectItem name="vhDeploy.WV.Deploy20120126x1646Actie2012SFS" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestTBXContext" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.impl.VHEPNOrderHandler" type="CLS"/>
Index: vhDeploy/WV/Deploy20120126x1646Actie2012SFS.cls.xml
===================================================================
diff -u
--- vhDeploy/WV/Deploy20120126x1646Actie2012SFS.cls.xml	(revision 0)
+++ vhDeploy/WV/Deploy20120126x1646Actie2012SFS.cls.xml	(revision 124)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.WV.Deploy20120126x1646Actie2012SFS">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van de TBoxWeb-actie 2012 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_2012") {
+		Write !,!,"De TBoxWeb-actie ""SFS_GRATIS_KORPUSSCHIENEN_2012"" bestaat reeds.  De gegevens worden niet verwijderd of aangepast !!! ",!,!
+	}
+	Else {
+		Set ActieSFS2012=##class(APPS.TBXWeb.impl.ActieSFSCorpusProfielen).%New()
+		Set ActieSFS2012.ActieCode="SFS_GRATIS_KORPUSSCHIENEN_2012"
+		Set ActieSFS2012.DatumGeldigVan="2012-02-01"
+		Set ActieSFS2012.DatumGeldigTot="2012-03-31"
+		Set sc=ActieSFS2012.%Save()
+		Write "De TBoxWeb-actie ""SFS_GRATIS_KORPUSSCHIENEN_2012"" is bewaard.  Resultaat van de %Save() = "_sc_" "_$$ParseStatus^vhLib(sc),!
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>