Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml
===================================================================
diff -u -r66054 -r66366
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml	(.../VerwijderKenmerken.cls.xml)	(revision 66054)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml	(.../VerwijderKenmerken.cls.xml)	(revision 66366)
@@ -89,21 +89,37 @@
 <FormalSpec>UnID:%String,Variant:%String,Rol:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim HalffabTabelStatement, Statement As %String
+	#dim HalffabTabelStatement, Statement, UniekeId As %String
+	#dim DeleteStatementAfgeleideKlasse, DeleteStatementTussenliggendeKlasse, DeleteStatementBasisKlasse As %String
 	#dim HalffabResultSet, Result As TECH.ResultSet
 	
 	Set HalffabTabelStatement = "Select Id FROM "_..GeefBasisHalffabTabelNaam()_" where MyDiscriminator = '"_Variant_"_Halffab"_Rol_"' AND GemaaktVoorKenmerkenSetID = '"_UnID_"'"
 	Set HalffabResultSet = ..VoerUitSql(HalffabTabelStatement)
 	
 	Set ResultSetIterator= ##class(TECH.ResultSetIterator).%New(HalffabResultSet)
-	while (ResultSetIterator.HasNext()) {
+	If (ResultSetIterator.HasNext()) {
 		Set UniekeId = ResultSetIterator.Next().GetData(1)
 		
-		Set Statement = "BEGIN TRAN; DELETE FROM "_..GeefRoltabelNaam(Rol, Variant)_" WHERE Id = '"_UniekeId_"';"		
-		Set Statement = Statement_" DELETE FROM " _..GeefBasisHalffabTabelNaam()_" WHERE MyDiscriminator = '"_Variant_"_Halffab"_Rol_"' AND GemaaktVoorKenmerkenSetID = '"_UnID_"'; COMMIT TRAN"
-		Set Result = ..VoerUitSql(Statement)
+		Set DeleteStatementAfgeleideKlasse = "DELETE FROM "_..GeefRoltabelNaam(Rol, Variant)_" WHERE Id='"_UniekeId_"'"
+		Set DeleteStatementTussenliggendeKlasse = "DELETE FROM "_	..GeefTussenliggendeTabelNaam(Variant) _ " WHERE Id='"_UniekeId_"'"
+		Set DeleteStatementBasisKlasse = "DELETE FROM " _..GeefBasisHalffabTabelNaam()_" WHERE MyDiscriminator = '"_Variant_"_Halffab"_Rol_"' AND GemaaktVoorKenmerkenSetID = '"_UnID_"'"
+			_ "AND (Id='"_UniekeId_"'"
+	}
+	
+	While (ResultSetIterator.HasNext()) {
+		Set UniekeId = ResultSetIterator.Next().GetData(1)
 		
+		Set DeleteStatementAfgeleideKlasse = DeleteStatementAfgeleideKlasse _ "OR Id='"_UniekeId_"'"
+		Set DeleteStatementTussenliggendeKlasse = DeleteStatementTussenliggendeKlasse _ "OR Id='"_UniekeId_"'"
+		Set DeleteStatementBasisKlasse = DeleteStatementBasisKlasse _ "OR Id='"_UniekeId_"'"
 	}
+	
+	Set DeleteStatementAfgeleideKlasse = DeleteStatementAfgeleideKlasse _ "; "
+	Set DeleteStatementTussenliggendeKlasse = DeleteStatementTussenliggendeKlasse _ "; "
+	Set DeleteStatementBasisKlasse = DeleteStatementBasisKlasse _ "); "
+	
+	Set Statement = "BEGIN TRAN; " _ DeleteStatementAfgeleideKlasse _ DeleteStatementTussenliggendeKlasse _ DeleteStatementBasisKlasse _ "COMMIT TRAN;"
+	Set Result = ..VoerUitSql(Statement)
 ]]></Implementation>
 </Method>
 
@@ -114,6 +130,14 @@
 ]]></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,Variant:%String</FormalSpec>
 <Private>1</Private>
@@ -143,13 +167,13 @@
 	#dim NieuwAantalKenmerkenBasisKlasse As %Integer = ..GeefAantalSelectieKenmerkenBasisKlasse(TeControlerenUnId, Variant, Rol)
 	
 	If (NieuwAantalKenmerkenBasisKlasse = OrigineelAantalKenmerkenBasisKlasse) {
-		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_Variant_"_"_Rol_"' met Id '"_TeControlerenUnId_"'. Product NIET verwijderd: aantal rijen in halffabel gelijk aan het aantal rijen in de afgeleide klasse ('"_OrigineelAantalKenmerkenBasisKlasse_"' = '"_NieuwAantalKenmerkenBasisKlasse_"').")
+		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Validatiefout bij syncen '"_Variant_"_"_Rol_"' met Id '"_TeControlerenUnId_"'. Product NIET verwijderd: aantal rijen in halffabel gelijk aan het aantal rijen in de afgeleide klasse ('"_OrigineelAantalKenmerkenBasisKlasse_"' = '"_NieuwAantalKenmerkenBasisKlasse_"').")
 	}
 	
 	#dim NieuwAantalKenmerkenAfgeleideKlasse As %Integer = ..GeefAantalSelectieKenmerkenAfgeleideKlasse(TeControlerenUnId, Variant, Rol)
 	
 	If $$$Not(NieuwAantalKenmerkenBasisKlasse = NieuwAantalKenmerkenAfgeleideKlasse) {
-		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_Variant_"_"_Rol_"' met ProductId '"_TeControlerenUnId_"'. Aantal rijen in halffabel is niet gelijk aan het aantal rijen in de afgeleide klasse.")
+		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Validatiefout bij syncen '"_Variant_"_"_Rol_"' met ProductId '"_TeControlerenUnId_"'. Aantal rijen in halffabel is niet gelijk aan het aantal rijen in de afgeleide klasse.")
 	}
 ]]></Implementation>
 </Method>