Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r1466 -r1491
--- APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1466)
+++ APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 1491)
@@ -26,10 +26,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductGroep">
+<FormalSpec>GroepID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ProductGroep = ""
+	
+	If ($Extract(GroepID,1,3) = "TBX") { Set ProductGroep = "TBX" }
+	ElseIf ($Extract(GroepID,1,4) = "TAOO") { Set ProductGroep = "TAOO" }
+	
+	Quit ProductGroep
+]]></Implementation>
+</Method>
+
 <Method name="IsOndersteundeGroepID">
 <FormalSpec>GroepID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($Length(GroepID) > 3) && ($Extract(GroepID,1,3) = "TBX")
+<Implementation><![CDATA[
+	Set ProductGroep = ..GeefProductGroep(GroepID)
+	Quit (ProductGroep = "TBX") || (ProductGroep = "TAOO")
 ]]></Implementation>
 </Method>
 
@@ -288,7 +304,7 @@
 		Set Status = Object.%Save()
 		If ($$$ISERR(Status))
 		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Halffab voor UnID """_UnID_""" en kenmerk """_Kenmerk_""" kon niet worden opgeslagen."))
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Halffab voor UnID """_UnID_""" en kenmerk """_Kenmerk_""" kon niet worden opgeslagen.",Status))
 		}
 	}
 	
@@ -325,8 +341,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	// GroepID is bv. TBXRug, KADProfiel, ...
-	Set ProductGroep = $Extract(GroepID,1,3)
-	Set Rol = $Extract(GroepID,4,$Length(GroepID))
+	Set ProductGroep = ..GeefProductGroep(GroepID)
+	Set Rol = $Extract(GroepID,$Length(ProductGroep)+1,$Length(GroepID))
 	
 	If (Rol = "")
 	{
@@ -338,7 +354,14 @@
 	}
 	
 	Set HalffabClassNameFactory = $zobjclassmethod("DOM.PM.Maatwerk.Calc.HF.impl."_ProductGroep_".HalffabClassNameFactory","%New")
-	Quit HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
+	Set HalffabClassName = HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
+	
+	If (HalffabClassName = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er is geen halffab klasse gedefinieerd voor de productgroep """_ProductGroep_""" en rol """_Rol_""""))
+	}
+	
+	Quit HalffabClassName
 ]]></Implementation>
 </Method>