Index: vhConsistency/Checks/vhUSER.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/vhUSER.cls.xml	(revision 0)
+++ vhConsistency/Checks/vhUSER.cls.xml	(revision 34491)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="vhConsistency.Checks.vhUSER">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+
+<Parameter name="StuurMailNaar">
+<Type>%String</Type>
+<Default>pra@vanhoecke.be</Default>
+</Parameter>
+
+<Property name="Status">
+<Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.vhUSER")</Description>
+<Type>%Status</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Method name="PrepareResultSet">
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID1, Naam FROM Res.InternePersoon WHERE NaamIntern IS NULL")
+	Quit ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set ResultSet = ..PrepareResultSet()
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set Status = $$$ERROR($$$GeneralError,"vhUSER zonder NaamIntern")
+		Do ..VoegMeldingToe("vhUSER account zonder NaamIntern: ID='" _ResultSet.Data("ID1") _ "', Naam='" _ResultSet.Data("Naam") _ "'.")
+	}
+	
+	If (..GeefAantalMeldingen() > 0)
+	{
+		Do ..VoegMeldingToe("Vul de NaamIntern gewoon in piece 2 in, via de Global Data view in de Caché Portal, voor deze Admin-accounts.")
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>