Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r38273 -r38584
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 38273)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 38584)
@@ -45,7 +45,7 @@
 		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
 	}
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
-	Set ..ExportDefaults.NewGenerationID=+$H ;##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
 	Quit $$$OK
@@ -82,10 +82,9 @@
 <Description>
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
 <Implementation><![CDATA[
-	Do ..ExportGebruiker()
-	
 	Do ..ExportKlanten()
 	Do ..ExportKlantGroepen()
+	Do ..ExportProductReferenties()
 	
 	Do ..ExportBasisAssortiment()
 	Do ..ExportKlantUitzAssortiment()
@@ -200,6 +199,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExportProductReferenties">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..InitLog()
+	d ##class(AX.Uitgaand.EC.Klanten.impl.ExportProductReferenties).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
+	Do ..ZetLog("Export klantgroepen")
+]]></Implementation>
+</Method>
+
 <Method name="ExportCodexPrijzen">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -235,7 +243,7 @@
 
 <Method name="VerplaatsBestanden">
 <Private>1</Private>
-<Implementation><![CDATA[	;Do ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting).DoIt()
+<Implementation><![CDATA[	Do ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting).DoIt()
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u -r37151 -r38584
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 37151)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 38584)
@@ -33,11 +33,11 @@
 	Set ..ExportSamenvatting=ExportSamenvatting
 
 	Set ..FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set ..FtpConfig.Adres="vhisiedownload.vanhoecke.be"
-	Set ..FtpConfig.Gebruiker="Tineke"
-	Set ..FtpConfig.Paswoord="T!neKe"
+	Set ..FtpConfig.Adres="192.168.100.60"
+	Set ..FtpConfig.Gebruiker="ftpuser"
+	Set ..FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
 	Set ..FtpConfig.Poort=21
-	Set ..FtpConfig.ServerBestandsLocatie=""
+	Set ..FtpConfig.ServerBestandsLocatie="current"
 	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -76,8 +76,8 @@
 <FormalSpec>BestandsNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Write " Transfer ",BestandsNaam,!
-	;Do ..FtpServer.VerzendBestand(..ExportDefaults.GeefVolledigPad(BestandsNaam), BestandsNaam)
+	;Write " Transfer ",BestandsNaam,!
+	Do ..FtpServer.VerzendBestand(..ExportDefaults.GeefVolledigPad(BestandsNaam), BestandsNaam)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Klanten/impl/pxPakketRefProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxPakketRefProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxPakketRefProduct.cls.xml	(revision 38584)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxPakketRefProduct">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>Product</Default>
+</Parameter>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Multiplier">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>pxPakketRefProductState</State>
+<StreamLocation>^AX.Uitgaan7BD6.pxPakketRef13FCS</StreamLocation>
+<Data name="pxPakketRefProductState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>ProductID</Value>
+</Value>
+<Value name="2">
+<Value>Multiplier</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxPakketRef.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxPakketRef.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxPakketRef.cls.xml	(revision 38584)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxPakketRef">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLNAME">
+<Default>PakketRef</Default>
+</Parameter>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="PakketID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="MultiProduct">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Producten">
+<Type>AX.Uitgaand.EC.Data.impl.pxPakketRefProduct</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Product"/>
+<Parameter name="XMLNAME" value="Producten"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>pxPakketRefState</State>
+<StreamLocation>^AX.Uitgaand.EC7BD6.pxPakketRefS</StreamLocation>
+<Data name="pxPakketRefState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="2">
+<Value>Naam</Value>
+</Value>
+<Value name="3">
+<Value>PakketID</Value>
+</Value>
+<Value name="4">
+<Value>MultiProduct</Value>
+</Value>
+<Value name="5">
+<Value>Producten</Value>
+</Value>
+<Value name="6">
+<Value>KlantID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(revision 38584)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.ExportProductReferenties">
+<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="BeperktAantal">
+<Type>%Integer</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>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlanten).%New(,10).ExportAll()</Description>
+<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 ..BeperktAantal=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	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 ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..ExportDefaults.NewGenerationID)
+	Set Pakket="" 
+	For  Set Pakket=$O(^PAKKET("IK",..KlantId,Pakket)) Quit:Pakket=""  Do
+	. Set PakNr=^PAKKET("IK",..KlantId,Pakket),R=^PAKKET("D",PakNr),PakCode=$P(R,"\",2),PakOms=$P(R,"\",4)
+	. Quit:'..CheckValidPakket(PakNr)
+	. Do ..ExportPakket(PakNr)
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select "_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" 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 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckValidPakket">
+<FormalSpec>PakNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set PRNr=""
+	Set Valid=1
+	For  Set PRNr=$O(^PAKKET("D",PakNr,PRNr)) Quit:'PRNr  Do  Quit:'Valid
+	. Set:'..ProductValidator.InAssortiment(PRNr) Valid=0
+	Quit Valid
+]]></Implementation>
+</Method>
+
+<Method name="ExportPakket">
+<FormalSpec>PakNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Proxy=..BuildProxy(PakNr)
+	Do ..Writer.Object(Proxy,"PakketRef")
+	Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>PakNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set PakketHoofding=^PAKKET("D",PakNr)
+	Set pxPakket=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRef).%New()
+	Set pxPakket.Naam=$P(PakketHoofding,"\",2)
+	Set pxPakket.Omschrijving=$P(PakketHoofding,"\",4)
+	Set pxPakket.PakketID=PakNr
+	Set pxPakket.KlantID=..KlantId
+
+	Set PRNr=""
+	For  Set PRNr=$O(^PAKKET("D",PakNr,PRNr)) Quit:'PRNr  Do
+	. Set Aantal=$P(^PAKKET("D",PakNr,PRNr),"\")
+	. Set pxProduct=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRefProduct).%New()
+	. Set pxProduct.ProductID=PRNr
+	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
+	. Do pxPakket.Producten.Insert(pxProduct)
+	Set:pxPakket.Producten.Count()>1 pxPakket.MultiProduct=1
+	Quit pxPakket
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="PakketReferenties"
+	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/Data/impl/pxPakketRefItem.cls.xml
===================================================================
diff -u -r37866 -r38584
--- AX/Uitgaand/EC/Data/impl/pxPakketRefItem.cls.xml	(.../pxPakketRefItem.cls.xml)	(revision 37866)
+++ AX/Uitgaand/EC/Data/impl/pxPakketRefItem.cls.xml	(.../pxPakketRefItem.cls.xml)	(revision 38584)
@@ -18,6 +18,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
 <Property name="Naam">
 <Type>%String</Type>
 </Property>
@@ -57,6 +61,9 @@
 <Value name="5">
 <Value>Producten</Value>
 </Value>
+<Value name="6">
+<Value>KlantID</Value>
+</Value>
 </Data>
 </Storage>
 </Class>