Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r66359 -r66360
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66359)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66360)
@@ -132,41 +132,67 @@
 	// afgeleide klasse.  Zie o.a. 
 	// https://stackoverflow.com/questions/8599617/problems-using-tpt-table-per-type-in-ef-4-2-and-deletion-of-parent-objects
 	#dim Statement As %String
+	#dim DeleteStatementAfgeleideKlasse As %String
+	#dim DeleteStatementTussenliggendeKlasse As %String
+	#dim DeleteStatementBasisKlasse As %String
+	#dim UpdateStatement As %String
 	#dim TeVerwijderenIdsIterator As TECH.ResultSetIterator = ..GeefTeVerwijderenIds(UnId, Rolstukje, TypeCode)
 	
-	Set Statement = "BEGIN TRAN;"
+	#dim BeginStatement As %String = "BEGIN TRAN;"
+	Set Statement = BeginStatement
 	
-	// 1) Verwijderen van de oude versie.  We doen hier 3 deletes omdat Entity Framework
-	// voor Table Per Type geen cascaded deletes configureert van het record voor de
-	// basisklasse naar het record van de afgeleide klasse.
-	Set Statement = Statement _ "DELETE s FROM " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " s "_
-		"INNER JOIN " _ ..GeefBasistabelNaam() _ " b on s.Id = b.Id " _
-		"WHERE b.Versie=0 AND b.GemaaktVoorKenmerkenSetID='" _ UnId _ "'; "
+	// 1) Verwijderen van de oude versie in alle tabellen.
+	Set DeleteStatementAfgeleideKlasse = "DELETE s FROM " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " s "_"INNER JOIN " _ ..GeefBasistabelNaam() 
+		_ " b on s.Id = b.Id " _ "WHERE b.Versie=0 AND b.GemaaktVoorKenmerkenSetID='" _ UnId _ "'; "
+		
+	Set DeleteStatementTussenliggendeKlasse = ..GeefDeleteStatementTussenliggendeKlasse(TeVerwijderenIdsIterator, TypeCode)
+	Set DeleteStatementBasisKlasse = "DELETE FROM " _ ..GeefBasistabelNaam() _
+		" WHERE Versie=0 AND GemaaktVoorKenmerkenSetID='" _ UnId _ "' AND MyDiscriminator LIKE '"_TypeCode_"%"_Rolstukje_"';"
 	
-	If (TeVerwijderenIdsIterator.HasNext()) {
-		#dim Inhoud As %ResultSet = TeVerwijderenIdsIterator.Next()
-		#dim Id As %Integer = Inhoud.Data("Id")
-		Set Statement = Statement _ "DELETE FROM "_ ..GeefTussenliggendeTabelNaam(TypeCode) _" WHERE Id="_Id
-	}
+	Set Statement = Statement_DeleteStatementAfgeleideKlasse _ DeleteStatementTussenliggendeKlasse _ DeleteStatementBasisKlasse
 	
-	While (TeVerwijderenIdsIterator.HasNext()) {
-		Set Inhoud = TeVerwijderenIdsIterator.Next()
-		Set Id = Inhoud.Data("Id")
-		Set Statement = Statement _ " OR Id="_Id
-	}
-	Set Statement = Statement _ ";"
-	
-	Set Statement = Statement _ "DELETE FROM " _ ..GeefBasistabelNaam() _
-		" WHERE Versie=0 AND GemaaktVoorKenmerkenSetID='" _ UnId _ "' AND MyDiscriminator LIKE '"_TypeCode_"%"_Rolstukje_"';"
 	// 2) Update de versie
-	Set Statement = Statement _ "UPDATE " _ ..GeefBasistabelNaam()_
-		" set Versie=0 WHERE Versie=1 AND GemaaktVoorKenmerkenSetID='" _ UnId _ "'"
-	Set Statement = Statement _ "; COMMIT TRAN;"
+	Set UpdateStatement = "UPDATE " _ ..GeefBasistabelNaam()_
+		" set Versie=0 WHERE Versie=1 AND GemaaktVoorKenmerkenSetID='" _ UnId _ "';"
+	Set Statement = Statement _ UpdateStatement
+	
+	#dim CommitStatement = "COMMIT TRAN;"
+	Set Statement = Statement _ CommitStatement
 
 	Do ..VoeruitSql(Statement)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBasistabelNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "dbo.Halffab"
+]]></Implementation>
+</Method>
+
+<Method name="GeefTussenliggendeTabelNaam">
+<FormalSpec>TypeCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "dbo." _ TypeCode _ "_" _ "Halffab"
+]]></Implementation>
+</Method>
+
+<Method name="GeefRoltabelNaam">
+<FormalSpec>Rolstukje:%String,TypeCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "dbo." _ TypeCode _ "_" _ Rolstukje
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
+]]></Implementation>
+</Method>
+
 <Method name="GeefInsertStatementBasisKlasse">
 <FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,Rolstukje:%String,TypeCode:%String,Klasse:%Dictionary.CompiledClass</FormalSpec>
 <Private>1</Private>
@@ -252,36 +278,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBasistabelNaam">
+<Method name="GeefDeleteStatementTussenliggendeKlasse">
+<FormalSpec>TeVerwijderenIdsIterator:TECH.ResultSetIterator,TypeCode:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "dbo.Halffab"
+<Implementation><![CDATA[
+	#dim DeleteStatement As %String
+	If (TeVerwijderenIdsIterator.HasNext()) {
+		#dim Inhoud As %ResultSet = TeVerwijderenIdsIterator.Next()
+		#dim Id As %Integer = Inhoud.Data("Id")
+		Set DeleteStatement = "DELETE FROM "_ ..GeefTussenliggendeTabelNaam(TypeCode) _" WHERE Id="_Id
+	}
+	
+	While (TeVerwijderenIdsIterator.HasNext()) {
+		Set Inhoud = TeVerwijderenIdsIterator.Next()
+		Set Id = Inhoud.Data("Id")
+		Set DeleteStatement = DeleteStatement _ " OR Id="_Id
+	}
+	Set DeleteStatement = DeleteStatement _ ";"
+	Quit DeleteStatement
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTussenliggendeTabelNaam">
-<FormalSpec>TypeCode:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "dbo." _ TypeCode _ "_" _ "Halffab"
-]]></Implementation>
-</Method>
-
-<Method name="GeefRoltabelNaam">
-<FormalSpec>Rolstukje:%String,TypeCode:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "dbo." _ TypeCode _ "_" _ Rolstukje
-]]></Implementation>
-</Method>
-
-<Method name="GeefHuidigeTimeStamp">
-<Private>1</Private>
-<ReturnType>%TimeStamp</ReturnType>
-<Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
-]]></Implementation>
-</Method>
-
 <Method name="VoeruitSql">
 <FormalSpec>Statement:%String</FormalSpec>
 <ReturnType>%ResultSet</ReturnType>