Index: DOM/PM/TBXVerpakkingVerwerker.cls.xml =================================================================== diff -u -r29059 -r64788 --- DOM/PM/TBXVerpakkingVerwerker.cls.xml (.../TBXVerpakkingVerwerker.cls.xml) (revision 29059) +++ DOM/PM/TBXVerpakkingVerwerker.cls.xml (.../TBXVerpakkingVerwerker.cls.xml) (revision 64788) @@ -32,7 +32,7 @@ } ElseIf TBXVerpakking = "Z" { Do ..VerwerkStukZonderOnderdelen() } Else { - Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXVerpakking) + Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TBXVerpakking, $classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } ]]> Index: APPS/Halux/common/CategorieVerwerker.cls.xml =================================================================== diff -u -r29059 -r64788 --- APPS/Halux/common/CategorieVerwerker.cls.xml (.../CategorieVerwerker.cls.xml) (revision 29059) +++ APPS/Halux/common/CategorieVerwerker.cls.xml (.../CategorieVerwerker.cls.xml) (revision 64788) @@ -50,7 +50,7 @@ } ElseIf Categorie = "Verlichtingsbodem" { Do ..VerwerkVerlichtingsbodem() } Else { - Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Categorie) + Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Categorie, $classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } ]]> Index: DOM/VKP/KlantVerwerker.cls.xml =================================================================== diff -u -r29059 -r64788 --- DOM/VKP/KlantVerwerker.cls.xml (.../KlantVerwerker.cls.xml) (revision 29059) +++ DOM/VKP/KlantVerwerker.cls.xml (.../KlantVerwerker.cls.xml) (revision 64788) @@ -68,7 +68,7 @@ } ElseIf Klant = "K||1523" { Do ..VerwerkVanRaemdonck() } Else { - Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Klant) + Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Klant, $classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } ]]> Index: DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoortVerwerker.cls.xml =================================================================== diff -u -r29059 -r64788 --- DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoortVerwerker.cls.xml (.../VerpakkingSoortVerwerker.cls.xml) (revision 29059) +++ DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoortVerwerker.cls.xml (.../VerpakkingSoortVerwerker.cls.xml) (revision 64788) @@ -22,7 +22,7 @@ } ElseIf VerpakkingSoort = "VHOSS" { Do ..VerwerkVhoss() } Else { - Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VerpakkingSoort) + Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VerpakkingSoort, $classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) } ]]>