Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r65989 -r65990
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 65989)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 65990)
@@ -263,38 +263,33 @@
 	// Aangezien voor elke specifieke halffabtabel er een foreignkey is naar een rij in de algemene halffabtabel,
 	// kan hier gecheckt worden of de inserts, deletes en updates van het versienummer correct zijn uitgevoerd 
 	
-	// Check of het aantal rijen in de halffabtabel gelijk is aan het aantal rijen in de afgeleide kindtabel
 	#dim StatementAantalInBasisklasse As %String = "SELECT COUNT (Id) As Aantal FROM "_..GeefBasistabelNaam()_" WHERE MyDiscriminator LIKE '"_TypeCode_"%"_Rolstukje_"'"
-	#dim ResultSetAantalInBasisklasse As %ResultSet = ..VoeruitSql(StatementAantalInBasisklasse)
-	#dim AantalInBasisklasse As %Integer = ..GeefAantalUitSelectQuery(ResultSetAantalInBasisklasse)
+	#dim AantalInBasisklasse As %Integer = ..GeefAantalRijen(StatementAantalInBasisklasse)
 	
 	#dim StatementAantalInAfgeleideklasse As %String = "SELECT COUNT (Id) As Aantal FROM "_..GeefRoltabelNaam(Rolstukje, TypeCode)
-	#dim ResultSetAantalInAfgeleideklasse As %ResultSet = ..VoeruitSql(StatementAantalInAfgeleideklasse)
-	#dim AantalInAfgeleideKlasse As %Integer = ..GeefAantalUitSelectQuery(ResultSetAantalInAfgeleideklasse)
+	#dim AantalInAfgeleideKlasse As %Integer = ..GeefAantalRijen(StatementAantalInAfgeleideklasse)
 	
 	If $$$Not(AantalInBasisklasse = AantalInAfgeleideKlasse) {
-		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_TypeCode_"_"_Rolstukje_"' met Id '"_UnId_"'")
+		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_TypeCode_"_"_Rolstukje_"' met Id '"_UnId_"'. Aantal rijen in halffabel is niet gelijk aan het aantal rijen in de afgeleide klasse.")
 	}
 	
-	// Check of de versie overal is geüpdatet voor deze halffab
 	#dim StatementAantalMetVersie1 As %String = "SELECT COUNT (Id) As Aantal FROM "_..GeefBasistabelNaam()_" Where MyDiscriminator Like '"_TypeCode_"%"_Rolstukje_"' And Versie = 1"
-	#dim ResultSetAantalMetVersie1 As %ResultSet = ..VoeruitSql(StatementAantalMetVersie1)
-	#dim AantalHalffabsMetVersie1 As %Integer = ..GeefAantalUitSelectQuery(ResultSetAantalMetVersie1)
+	#dim AantalHalffabsMetVersie1 As %Integer = ..GeefAantalRijen(StatementAantalMetVersie1)
 	
 	If (AantalHalffabsMetVersie1 > 0) {
-		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_TypeCode_"_"_Rolstukje_"' met Id '"_UnId_"', Versienummer is niet geupdatet")
+		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_TypeCode_"_"_Rolstukje_"' met Id '"_UnId_"', Versienummer is niet geupdatet.")
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalUitSelectQuery">
-<FormalSpec>ResultSet:%ResultSet</FormalSpec>
-<Private>1</Private>
+<Method name="GeefAantalRijen">
+<FormalSpec>Statement:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim Aantal = 0
-	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
-		
+	#dim ResultSetAantal As %ResultSet = ..VoeruitSql(Statement)
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSetAantal)
+	
 	If (ResultSetIterator.HasNext())
 	{
 		#dim Inhoud As %ResultSet = ResultSetIterator.Next()