Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r2337 -r11099
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 2337)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 11099)
@@ -520,9 +520,9 @@
 <FormalSpec>Type:%Library.String="N"</FormalSpec>
 <ReturnType>%Library.Float</ReturnType>
 <Implementation><![CDATA[
- Quit:Type="B" +$J(..Cumuls("GNetto")+..Cumuls("GTarra"),0,2)
- Quit:Type="N" +$J(..Cumuls("GNetto"),0,2)
- Quit:Type="T" +$J(..Cumuls("GTarra"),0,2)
+ Quit:Type="B" +$J($G(..Cumuls("GNetto"))+$G(..Cumuls("GTarra")),0,2)
+ Quit:Type="N" +$J($G(..Cumuls("GNetto")),0,2)
+ Quit:Type="T" +$J($G(..Cumuls("GTarra")),0,2)
 ]]></Implementation>
 </Method>
 
@@ -640,39 +640,8 @@
 Bewaren van de nieuwe IngegevenKenmerken (via KenmerkConvertor) </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
-	Quit:(..ProductGetObjectId()'>0)
-	
-	Set $ZTRAP = "bikFout"
-
-	Set GADataProduct=##this
-	Set GenType=GADataProduct.MetaStruct.Code
-	If GenType="TBX" 
-	{
-		Set Convertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New()
-
-		Set PRNr=GADataProduct.ProductGetObjectId()
-		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-		Set Product = ProductAPI.GeefProduct(PRNr)
-		Set Familie = Product.GeefFamilie()
-		Set Variant = Product.GeefVariant()
-		
-		Do ##class(APPS.PM.Maatwerk.KenmerkConversie).ConverteerProductToIK(Convertor,Product,Familie,Variant,PRNr)
-	}
-	ElseIf GenType="KAD"   ; bij "PRF" of "GLA" wordt de KenmerkenConversie niet uitgevoerd (?) 
-	{
-		// wordt opgeroepen vanuit de Prod.GADef.KaderDeur klasse zelf 
-	}
-
-	Set $ZTRAP = ""
 	Quit
-
-bikFout
-	Set $ZTRAP = ""
-	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"")
-	Do SendMiniMailForced^vhLib.Mail($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in TandemBox KenmerkConversie",Body)
-	Do ##class(vhLib.Logger).%New("Kenmerken conversie").Error("ConverteerProductToIK","Fout in TandemBox KenmerkConversie:"_$$$CRLF_Body)
-	Quit
+	// Werkt voortaan op Caché v2010 - getriggered via Events
 ]]></Implementation>
 </Method>
 
Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r4782 -r11099
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 4782)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 11099)
@@ -19,6 +19,7 @@
 <ClassType>persistent</ClassType>
 <IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>Prod.GADef.AfgeleidDef,VHSys.Library</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="GADataProduct">
 <Description>
@@ -1340,30 +1341,8 @@
 Bewaren van de nieuwe IngegevenKenmerken (via KenmerkConvertor) </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
-	Quit:(..ProductGetObjectId()'>0)
-
-	Set $ZTRAP = "bikFout"
-
-	Set Kaderdeur = ##this
-	If (Kaderdeur.Toepassing.ItemID '= "KLC") 
-	{
-		Set Convertor = ##class(APPS.PM.Maatwerk.KAD.Conversie.KenmerkConvertor).%New()
-
-		Set PRNr = Kaderdeur.ProductGetObjectId()
-		Set Familie = ##class(DOM.PM.enu.Familie).AluKader()
-		Set Variant = ##class(DOM.PM.enu.AluKaderVariant).Basis()
-		
-		Do ##class(APPS.PM.Maatwerk.KenmerkConversie).ConverteerProductToIK(Convertor,Kaderdeur,Familie,Variant,PRNr)
-	}
-	Set $ZTRAP = ""
 	Quit
-
-bikFout
-	Set $ZTRAP = ""
-	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set Body="PRNr = "_..ProductGetObjectId()_$$$CRLF_Exception.ToString()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib(1,"")
-	Do SendMiniMailForced^vhLib.Mail($$$SystemMail("reports"),$LB("ICT_SupportTBX@vanhoecke.be"),"Fout in Kaderdeur KenmerkConversie",Body)
-	Quit
+	// Werkt reeds geruime tijd op Caché v2010
 ]]></Implementation>
 </Method>