Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r66047 -r66354
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66047)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 66354)
@@ -95,7 +95,11 @@
 	#dim PropertyNaam, Waarde As %String
 	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 DeclareStuk As %String = "DECLARE @HALFFAB_ID INT;"
 	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie,LaatstAangepast"
 	#dim ValuesStuk As %String = "VALUES ('" _ Halffab.GeefProductID() _ "','" _ TypeCode _ "_" _ Rolstukje _ "'," _ 1 _ ",'" _ ..GeefHuidigeTimeStamp()_"'"
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
@@ -118,16 +122,19 @@
 	}
 	Set IntoStuk = IntoStuk _ ") "
 	Set ValuesStuk = ValuesStuk _ "); "
+	#dim AssignStuk As %String = "SET @HALFFAB_ID = @@IDENTITY;"
+
+	#dim Statement As %String = DeclareStuk _ IntoStuk _ ValuesStuk _ AssignStuk
 	
-	#dim Statement As %String = IntoStuk _ ValuesStuk
+	// Tweede ronde: Id in tussenliggende klasse toevoegen
+	Set IntoStuk = "INSERT INTO " _ ..GeefTussenliggendeTabelNaam(TypeCode) _ " (Id) "
+	Set ValuesStuk = "VALUES (@HALFFAB_ID);"
+	Set Statement = Statement _ IntoStuk _ ValuesStuk
 	
-	// Tweede ronde: properties van de afgeleide klasse
-	// We gebruiken SCOPE_IDENTITY() voor de foreign key, dit is de autogenerated ID
-	// van de eerste INSERT.  De scope is hier de batch van queries
-	// (2 inserts gescheiden door ;).
-
+	// Derde ronde: properties van de afgeleide klasse
+	//  De scope is hier de batch van queries (2 inserts gescheiden door ;).
 	Set IntoStuk = "INSERT INTO " _ ..GeefRoltabelNaam(Rolstukje, TypeCode) _ " (Id"
-	Set ValuesStuk = "VALUES (SCOPE_IDENTITY()"
+	Set ValuesStuk = "VALUES (@HALFFAB_ID"
 	
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
 	while (PropertiesIterator.HasNext()) {
@@ -165,42 +172,77 @@
 <FormalSpec>UnId:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
 <Implementation><![CDATA[
 	// Swap de nieuwe voor de oude.
-	//   1) DELETE de oude op basis van UnId en Versie (in beide db's)
+	//   1) DELETE de oude op basis van UnId en Versie (in alle drie de db's)
 	//   2) UPDATE versie aan van 1 naar 0 op basis van UnId en Versie = 1
 	// Beide stappen moeten atomair gebeuren, zodat gebruikers van de halffabs ofwel
 	// alle oude records nog zien, ofwel alle nieuwe, maar nooit de toestand zien
 	// zoals die is tussen de delete en de update.
-	// Stap 1 valt uiteen in 2 deletes want er zit blijkbaar geen cascaded delete
+	// Stap 1 valt uiteen in 3 deletes want er zit blijkbaar geen cascaded delete
 	// in Entity Framework tussen het record van de basisklasse en het record van de
 	// 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 TeVerwijderenIdsIterator As TECH.ResultSetIterator = ..GeefTeVerwijderenIds(UnId, Rolstukje, TypeCode)
 	
 	Set Statement = "BEGIN TRAN;"
-	// 1) Verwijderen van de oude versie.  We doen hier 2 deletes omdat Entity Framework
+	
+	// 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 _ "'; "
+	
+	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
+	}
+	
+	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 Statement = Statement _ "; COMMIT TRAN;"
 
 	Do ..VoeruitSql(Statement)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTeVerwijderenIds">
+<FormalSpec>UnId:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
+<ReturnType>TECH.ResultSetIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim StatementOphalenIds As %String = "SELECT Id FROM " _ ..GeefBasistabelNaam() _ " WHERE Versie=0 AND GemaaktVoorKenmerkenSetID='"_UnId_"' AND MyDiscriminator LIKE '"_TypeCode_"%"_Rolstukje_"';"
+	#dim ResultSetIds As %ResultSet = ..VoeruitSql(StatementOphalenIds)
+	
+	Quit ##class(TECH.ResultSetIterator).%New(ResultSetIds)
+]]></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>