Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml
===================================================================
diff -u -r29059 -r32369
--- DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml	(.../BewerkingsInfoTabel.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml	(.../BewerkingsInfoTabel.cls.xml)	(revision 32369)
@@ -36,21 +36,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo</ReturnType>
 <Implementation><![CDATA[
-	Set BewerkingsInfo = ""
+	#dim BewerkingsInfo As DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo = ""
 
-	If (ResultSet.Next())
-	{
-		Set BewerkingsInfoID = ResultSet.Data("ID")
-		If (ResultSet.Next())
-		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere BewerkingsInfo objecten gevonden voor product "_ProductID_" voor dimensie "_BewerkingDimensie_"."))
+	If (ResultSet.Next()) {
+		#dim BewerkingsInfoID As TECH.String = ResultSet.Data("ID")
+		
+		If (ResultSet.Next()) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere BewerkingsInfo objecten gevonden voor product " _ ProductID _ " voor dimensie " _ BewerkingDimensie _ "."))
 		}
+		
 		Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%OpenId(BewerkingsInfoID)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen BewerkingsInfo objecten gevonden voor product " _ ProductID _ " voor dimensie " _ BewerkingDimensie _ "."))
 	}
-	Else
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen BewerkingsInfo objecten gevonden voor product "_ProductID_" voor dimensie "_BewerkingDimensie_"."))
-	}
 	
 	Quit BewerkingsInfo
 ]]></Implementation>