Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml
===================================================================
diff -u -r66045 -r66049
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml	(.../VerwijderKenmerken.cls.xml)	(revision 66045)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/VerwijderKenmerken.cls.xml	(.../VerwijderKenmerken.cls.xml)	(revision 66049)
@@ -56,14 +56,16 @@
 					#dim Variant As %String = $Piece(BewerkteKenmerkGroep,"_",1)			
 					#dim Rol As %String= $Piece(BewerkteKenmerkGroep,"_",3)
 					
+					#dim OrigineelAantalKenmerken As %Integer = ..GeefAantalSelectieKenmerken(TeControlerenUnId, Variant, Rol)
 					Do ..VerwijderSelectieKenmerkInDotNet(TeControlerenUnId, Variant, Rol)
+					Do ..ValideerSync(TeControlerenUnId, Variant, Rol, OrigineelAantalKenmerken)
 				} Else {
 					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Soort van kenmerk is niet geïmplementeerd: "_SoortKenmerk))
 				}
 			}
 		} catch {
 			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do ..Logger.ErrorMail("DotnetSync [HalffabSyncer]","Fout bij sync van HalffabSyncer naar .Net. Verwijderen van halffab is niet gelukt" _Exceptie.ToString())
+			Do ..Logger.ErrorMail("DotnetSync [HalffabSyncer]","Fout bij sync van HalffabSyncer naar .Net. Verwijderen van halffab is niet gelukt. " _Exceptie.ToString())
 		}
 	}
 ]]></Implementation>
@@ -133,6 +135,47 @@
 	Quit res
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerSync">
+<FormalSpec>TeControlerenUnId:%String,Variant:%String,Rol:%String,OrigineelAantalKenmerken:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim NieuwAantalKenmerken = ..GeefAantalSelectieKenmerken(TeControlerenUnId, Variant, Rol)
+	
+	If (NieuwAantalKenmerken = OrigineelAantalKenmerken) {
+		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 ('"_OrigineelAantalKenmerken_"' = '"_NieuwAantalKenmerken_"').")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalSelectieKenmerken">
+<FormalSpec>TeControlerenUnId:%String,Variant:%String,Rol:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim StatementAantalInBasisklasse As %String = "SELECT COUNT (Id) As Aantal FROM "_..GeefBasisHalffabTabelNaam()_" WHERE MyDiscriminator LIKE '"_Variant_"%"_Rol_"'"
+	#dim AantalInBasisklasse As %Integer = ..GeefAantalRijen(StatementAantalInBasisklasse)
+	
+	Quit AantalInBasisklasse
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalRijen">
+<FormalSpec>Statement:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal = 0
+	#dim ResultSetAantal As %ResultSet = ..VoerUitSql(Statement)
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSetAantal)
+	
+	If (ResultSetIterator.HasNext())
+	{
+		#dim Inhoud As %ResultSet = ResultSetIterator.Next()
+		Set Aantal = Inhoud.Data("Aantal")
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>