Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r66358 -r66359
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66358)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66359)
@@ -92,18 +92,18 @@
 <Method name="SchrijfHalffab">
 <FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Klassenaam:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
 <Implementation><![CDATA[
-	
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(Klassenaam)
 	Set Halffab.GemaaktVoorKenmerkenSetID = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
-	
+
 	// Eerste ronde: properties van de basisklasse
 	// We gebruiken @@IDENTITY voor de foreign key, dit is de autogenerated ID
 	// van deze eerste INSERT. 
+	#dim Statement As %String
 	#dim DeclareStatement As %String = "DECLARE @HALFFAB_ID INT;"
 	#dim InsertStatementBasisKlasse As %String = ..GeefInsertStatementBasisKlasse(Halffab, Rolstukje, TypeCode, Klasse)	
 	#dim AssignStatement As %String = "SET @HALFFAB_ID = @@IDENTITY;"
 
-	#dim Statement As %String = DeclareStatement _ InsertStatementBasisKlasse _ AssignStatement
+	Set Statement = DeclareStatement _ InsertStatementBasisKlasse _ AssignStatement
 	
 	// Tweede ronde: Id in tussenliggende klasse toevoegen
 	#dim InsertStatementTussenliggendeKlasse As %String = "INSERT INTO " _ ..GeefTussenliggendeTabelNaam(TypeCode) _ " (Id) VALUES (@HALFFAB_ID);"
@@ -168,7 +168,7 @@
 </Method>
 
 <Method name="GeefInsertStatementBasisKlasse">
-<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%ObjectHandle</FormalSpec>
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%Dictionary.CompiledClass</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -202,7 +202,7 @@
 </Method>
 
 <Method name="GeefInsertStatementAfgeleideKlasse">
-<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%ObjectHandle,Klassenaam:%String</FormalSpec>
+<FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%Dictionary.CompiledClass,Klassenaam:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[