Index: svn/Deploy.cls.xml =================================================================== diff -u -r1749 -r1774 --- svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1749) +++ svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1774) @@ -14,6 +14,11 @@ 0 + +%Boolean +1 + + 1 1 @@ -44,6 +49,9 @@ if (..#DoetDataWijzigingen) && ('##class(TECH.Config.ConfigMgr).Instance().GetBoolean("OmgevingMetData")) { set ExecuteCode = 0 } + if ExecuteCode && ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="PROD" { + set ExecuteCode = ..#ProductieWaardig + } if ExecuteCode { write ..%ClassName(1)," - ",..#Omschrijving," - wordt uitgevoerd ",! Try { @@ -62,9 +70,8 @@ do ##class(vhLib.Logger).LogEnMailExceptie(Exception) } } - } - - quit +} +quit ]]>