Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r65988 -r65989
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 65988)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 65989)
@@ -79,6 +79,7 @@
 			}
 			
 			Do ..CommitNieuweVersie(UnId, Rolstukje, TypeCode)
+			Do ..ValideerSync(UnId, Rolstukje, TypeCode)
 		} catch {
 			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			Do ..Logger.ErrorMail("DotnetSync [HalffabSyncer]","Fout bij sync van halffab naar .Net. " _Exceptie.ToString())
@@ -253,6 +254,56 @@
 	Quit HalffabList
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerSync">
+<FormalSpec>UnId:%String,Rolstukje:%String,TypeCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// 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 StatementAantalInAfgeleideklasse As %String = "SELECT COUNT (Id) As Aantal FROM "_..GeefRoltabelNaam(Rolstukje, TypeCode)
+	#dim ResultSetAantalInAfgeleideklasse As %ResultSet = ..VoeruitSql(StatementAantalInAfgeleideklasse)
+	#dim AantalInAfgeleideKlasse As %Integer = ..GeefAantalUitSelectQuery(ResultSetAantalInAfgeleideklasse)
+	
+	If $$$Not(AantalInBasisklasse = AantalInAfgeleideKlasse) {
+		Do ##class(TECH.Exceptions.DataCorruptException).Throw("Fout bij syncen '"_TypeCode_"_"_Rolstukje_"' met Id '"_UnId_"'")
+	}
+	
+	// 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)
+	
+	If (AantalHalffabsMetVersie1 > 0) {
+		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>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal = 0
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+		
+	If (ResultSetIterator.HasNext())
+	{
+		#dim Inhoud As %ResultSet = ResultSetIterator.Next()
+		Set Aantal = Inhoud.Data("Aantal")
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>