Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r42557 -r44290
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 42557)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 44290)
@@ -92,7 +92,7 @@
 		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
     	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
 		FROM Derde_Klant.LevAdres
-		WHERE Klant = :KLNr 
+		WHERE Klant = :KLNr and TypeAdres='L'
 		ORDER BY TypeAdres )
    	&sql(OPEN FAP)
 
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r39774 -r44290
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 39774)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 44290)
@@ -108,6 +108,7 @@
 	Do ..ExportKlanten()
 	Do ..ExportKlantGroepen()
 	Do ..ExportProductReferenties()
+	;Do ..ExportHistoriek()
 	
 	Do ..ExportBasisAssortiment()
 	Do ..ExportKlantUitzAssortiment()
@@ -217,10 +218,19 @@
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Klanten.impl.ExportProductReferenties).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
-	Do ..ZetLog("Export klantgroepen")
+	Do ..ZetLog("Export productref")
 ]]></Implementation>
 </Method>
 
+<Method name="ExportHistoriek">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..InitLog()
+	d ##class(AX.Uitgaand.EC.Klanten.impl.ExportProductHistoriek).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
+	Do ..ZetLog("Export historiek")
+]]></Implementation>
+</Method>
+
 <Method name="ExportCodexPrijzen">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(revision 44290)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.ExportProductHistoriek">
+<Description>
+Prijsuitzonderingen per klant, als de codexprijs afwijkt van de klantprijs wordt de klantprijs opgeslagen</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Writer">
+<Type>%XML.Writer</Type>
+</Property>
+
+<Property name="DomeinID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set ..KlantId=rs.Data("Klant")
+		Continue:'..IsGeldigeKlant()
+		Do ..ExportKlant()
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	Set ..AssortimentGroep=..GeefAssortimentGroep()
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..ExportDefaults.NewGenerationID)
+
+ 	Set HoofdGroep=0
+ 	Set LijnCnt=0
+ 	For  Set HoofdGroep=$O(^KKAAP(..KlantId,HoofdGroep)) Quit:HoofdGroep=""  Do
+	. Set Groep=""
+	. For  Set Groep=$O(^KKAAP(..KlantId,HoofdGroep,Groep)) Quit:Groep=""  Do
+	. . Set SubGroep=""
+	. . For  Set SubGroep=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep)) Quit:SubGroep=""  Do
+	. . . Set KortText=""
+	. . . For  Set KortText=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)) Quit:KortText=""  Do
+	. . . . Set HistRec=^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)
+	. . . . Set PRNr=$P(HistRec,"\",15)
+	. . . . Quit:'..CheckProduct(PRNr)
+	. . . . Set Proxy=..BuildProxy(HistRec)
+	. . . . Do ..Writer.Object(Proxy,"PakketRef")
+	. . . . Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Klant from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=?")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKlant">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $D(^KKAAP(..KlantId)) ;&&(..KlantId#100=0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<Implementation><![CDATA[
+	Set Klant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_..KlantId)
+	Quit Klant.AssortimentGroep
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>HistRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHistItem=##class(AX.Uitgaand.EC.Klanten.impl.pxHistoriekProduct).%New()
+	Set pxHistItem.KlantID=..KlantId
+	Set pxHistItem.ProductID=$P(HistRec,"\",15)
+	Set pxHistItem.JaarAfname=$P(HistRec,"\",3)
+	Set pxHistItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
+
+	Quit pxHistItem
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="Historiek"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxHistoriekProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxHistoriekProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxHistoriekProduct.cls.xml	(revision 44290)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxHistoriekProduct">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>HistoriekItem</Default>
+</Parameter>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="JaarAfname">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="Jaarafname"/>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="LaatsteDatum">
+<Type>%Date</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>pxHistoriekProductState</State>
+<StreamLocation>^AX.Uitgaan7BD6.pxHistoriek8B7AS</StreamLocation>
+<Data name="pxHistoriekProductState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>KlantID</Value>
+</Value>
+<Value name="2">
+<Value>ProductID</Value>
+</Value>
+<Value name="3">
+<Value>JaarAfname</Value>
+</Value>
+<Value name="4">
+<Value>LaatsteDatum</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>