Index: AX/Uitgaand/EC/ServiceAX.cls.xml
===================================================================
diff -u -r53242 -r53262
--- AX/Uitgaand/EC/ServiceAX.cls.xml	(.../ServiceAX.cls.xml)	(revision 53242)
+++ AX/Uitgaand/EC/ServiceAX.cls.xml	(.../ServiceAX.cls.xml)	(revision 53262)
@@ -54,7 +54,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ImportService=##class(AX.Uitgaand.EC.impl.ImportBestand).%New(..ExportDefaults)
-	;Do ImportService.VerwijderOudeBestanden() ; ouder dan vandaag
+	Do ImportService.VerwijderOudeBestanden() ; ouder dan vandaag
 	Do ImportService.OphalenBestanden() ; ophalen van de XMLs die een GenerationID hebben
 	If ImportService.AlleBestandenAanwezig()
 	{
Index: AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml
===================================================================
diff -u -r50353 -r53262
--- AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml	(.../ExportDefaultsAX.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml	(.../ExportDefaultsAX.cls.xml)	(revision 53262)
@@ -13,6 +13,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="HistoryPad">
+<Type>%String</Type>
+</Property>
+
 <Property name="BeperktAantal">
 <Type>%Integer</Type>
 </Property>
@@ -47,6 +51,7 @@
 <Implementation><![CDATA[
 	Set ..Pad=$$FULLPAD^vhDEV(##class(TECH.Config.ConfigMgr).Instance().GetString("ECKlantenEnAssortPad"),"Step3 From Cache")
 	Set ..AXPad=$$FULLPAD^vhDEV(##class(TECH.Config.ConfigMgr).Instance().GetString("ECKlantenEnAssortPad"),"Step2 To Cache")
+	Set ..HistoryPad=$$FULLPAD^vhDEV(##class(TECH.Config.ConfigMgr).Instance().GetString("ECKlantenEnAssortPad"),"Step6 To Archive")
 	Set ..BeperktAantal=$G(BeperktAantal,0)
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..TijdstipUTC=$zdt($H,-2)
@@ -127,8 +132,6 @@
 <IndexLocation>^AX.Uitgaand5C9.ExportDefauAD0BI</IndexLocation>
 <StreamLocation>^AX.Uitgaand5C9.ExportDefauAD0BS</StreamLocation>
 <Data name="ExportDefaultsAXDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -159,6 +162,9 @@
 <Value name="10">
 <Value>AXPad</Value>
 </Value>
+<Value name="11">
+<Value>HistoryPad</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml
===================================================================
diff -u -r50353 -r53262
--- AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml	(.../CorrelateKlant.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml	(.../CorrelateKlant.cls.xml)	(revision 53262)
@@ -20,6 +20,7 @@
 
 <Property name="KlantNaam">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="250"/>
 <Parameter name="XMLNAME" value="CompanyName"/>
 </Property>
 
Index: AX/Uitgaand/EC/impl/ImportBestand.cls.xml
===================================================================
diff -u -r50353 -r53262
--- AX/Uitgaand/EC/impl/ImportBestand.cls.xml	(.../ImportBestand.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/impl/ImportBestand.cls.xml	(.../ImportBestand.cls.xml)	(revision 53262)
@@ -143,7 +143,9 @@
 </Method>
 
 <Method name="VerwijderOudeBestanden">
-<Implementation><![CDATA[	Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestandenOuderDan(..ExportDefaults.AXPad, $H-1)
+<Implementation><![CDATA[
+	Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestandenOuderDan(..ExportDefaults.AXPad, $H-1)
+	Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestandenOuderDan(..ExportDefaults.HistoryPad, $H-20)
 ]]></Implementation>
 </Method>
 </Class>