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