Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1126 -r1127
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1126)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1127)
@@ -92,12 +92,12 @@
 <FormalSpec>KlantNr:%Integer,Bestandsnaam:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	//$$$TECHErrorTrapOn
+	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(KlantNr)
 	
 	if '$length(Bestandsnaam) {
 		Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
-		Set Datum = $zd($h,3)
+		Set Datum = ""_$zd($h,3)
 		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
 	}
 	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
@@ -113,7 +113,7 @@
 	/// Indien de klant diezelfde dag al was gewijzigd, de vorige KlantId eruit halen.
 	/// Dit voorkomt ook duplicate data in het xml bestand.
 	/// 
-	For i = 1 : 1 : dtoKlantBestand.Klanten.Count() {
+	For i = dtoKlantBestand.Klanten.Count() : -1 : 1 {
 		If (dtoKlantBestand.Klanten.GetAt(i).Nummer = KlantNr){
 			Do dtoKlantBestand.Klanten.RemoveAt(i)
 		}
@@ -126,7 +126,7 @@
 	
 	set KlantBestand = ..ExportXML(dtoKlantBestand, Bestandsnaam)
 	
-	//$$$TECHErrorTrapOff
+	$$$TECHErrorTrapOff
 	Quit KlantBestand
 ]]></Implementation>
 </Method>