Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r42172 -r49175
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 42172)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 49175)
@@ -17,6 +17,18 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="UpdateAlleKlanten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KlantNummer As %String = ""
+	For  { Set KlantNummer=$Order(^KK1(KlantNummer)) Quit:(KlantNummer="")
+		w !,"updating klant "_KlantNummer_"."
+		Do ##class(APPS.CRM.KlantService).RaiseWijzigEvent(KlantNummer)
+		h 0.5
+	}
+]]></Implementation>
+</Method>
 </Class>