Index: svn/Deploy.cls.xml =================================================================== diff -u -r1515 -r1664 --- svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1515) +++ svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1664) @@ -41,9 +41,18 @@ } if ExecuteCode { write ..%ClassName(1)," - ",..#Omschrijving," - wordt uitgevoerd ",! - do ..ExecCode() - write ..%ClassName(1)," - ",..#Omschrijving," - is uitgevoerd ",! - set ^svn.Deploy(..%ClassName(1))= ##class(TECH.DateTime).CurrentTimeStamp() + Try { + do ..ExecCode() + write ..%ClassName(1)," - ",..#Omschrijving," - is uitgevoerd ",! + set ^svn.Deploy(..%ClassName(1))= ##class(TECH.DateTime).CurrentTimeStamp() + } + Catch { + Write !,"!!! AANDACHT !!!",! + Write "!!! Er is een fout opgetreden bij het uitvoeren van de deploy-klasse "_..%ClassName(1)_" !!!",! + Write "Foutmelding : "_##class(TECH.ExceptionHandler).Catch().GeefOmschrijving(),! + Write ..%ClassName(1)," - ",..#Omschrijving," - is gefaald en wordt bij volgende getLatest opnieuw geprobeerd.",! + Write "!!! AANDACHT !!!",!,! + } } } @@ -54,8 +63,6 @@ 1 1 -