Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r33912 -r33942
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 33912)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 33942)
@@ -955,25 +955,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalTOBSetEenheidIdentificatie">
+<Method name="CalcTOBSetEenheidIdentificatie">
 <Description>
 In sync houden met Cache v5 !!! </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DesignCode:%String,LadeHoogte:%String,LadeDiepte:%Numeric,BreedteIntern:%Numeric,Draagkracht:%Numeric</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim TOBIdentificatie As %String = ""
+	Set TOBIdentificatie = ""
 	
-	Try {
-		Set TOBSetEenheidBepaler = ##class(DOM.PM.TBX.impl.TOBSetEenheidBepaler).%New()
-		Set TOBIdentificatie = TOBSetEenheidBepaler.BepaalEenheidIdentificatie(DesignCode, LadeHoogte, LadeDiepte, BreedteIntern, Draagkracht)
-	}
-	Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.InvalidInputException")
-		Set TOBIdentificatie = "Fout: "_Exception.GeefOmschrijving()
-	}
+	Set $ZTRAP = "OnErrorCalcTOBSet"
+	Set TOBSetEenheidBepaler = ##class(DOM.PM.TBX.impl.TOBSetEenheidBepaler).%New()
+	Set TOBIdentificatie = TOBSetEenheidBepaler.BepaalEenheidIdentificatie(DesignCode, LadeHoogte, LadeDiepte, BreedteIntern, Draagkracht)
+	Set $ZTRAP = ""
+
+	Quit TOBIdentificatie
 	
+OnErrorCalcTOBSet
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.InvalidInputException")
+	Set TOBIdentificatie = "Fout: "_Exception.GeefOmschrijving()
 	Quit TOBIdentificatie
 ]]></Implementation>
 </Method>