Index: AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 50282)
@@ -113,7 +113,7 @@
 	
 	Kill ^||ECCache
 
-	Do ..LeveringenOphaler.OphalenNaarCache("F")
+	Do ..LeveringenOphaler.OphalenNaarCache("F",$S(..Request.Periode:..Request.Periode,1:5))
 
 	If ..Request.Periode
 	{
Index: AX/Uitgaand/EC/AssortimentAX/impl/BasisAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/BasisAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/BasisAssortiment.cls.xml	(revision 50282)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.BasisAssortiment">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="AXItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Index name="AssortimentKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>GenerationID,Product,AssortimentGroep</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaan6850.BasisAssort150AD</DataLocation>
+<DefaultData>BasisAssortimentDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaan6850.BasisAssort150AD</IdLocation>
+<IndexLocation>^AX.Uitgaan6850.BasisAssort150AI</IndexLocation>
+<StreamLocation>^AX.Uitgaan6850.BasisAssort150AS</StreamLocation>
+<Data name="BasisAssortimentDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="3">
+<Value>AXItemID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/pxProductExcludeKlant.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/pxProductExcludeKlant.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProductExcludeKlant.cls.xml	(revision 50282)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Assortiment.impl.pxProductExcludeKlant">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>pxProduct</Super>
+
+<Parameter name="XMLNAME">
+<Default>Product</Default>
+</Parameter>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klanten">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="KlantID"/>
+<Parameter name="XMLNAME" value="Klanten"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml
===================================================================
diff -u -r36472 -r50282
--- AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 50282)
@@ -21,6 +21,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="AssortimentsGroep">
+<Type>%String</Type>
+</Property>
+
 <Property name="ExportDefaults">
 <Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
 </Property>
@@ -46,13 +50,15 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do ..OpenOutput()
+
 	For AssortimentGroep="KS","Industrie","Handel","Consument" 
 	{
-					Do ..OpenOutput(AssortimentGroep)
-					Set it=..AssortimentsGroepIterator(AssortimentGroep)
-					Do ..ExportAssortiment(it)
-					Do ..CloseOutput()
+		Set ..AssortimentsGroep=AssortimentGroep
+		Set it=..AssortimentsGroepIterator()
+		Do ..ExportAssortiment(it)
 	}
+	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -69,12 +75,11 @@
 </Method>
 
 <Method name="AssortimentsGroepIterator">
-<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
 	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep=? and GenerationID=?")
 	
- 	Set sc=rs.Execute(AssortimentGroep,..ExportDefaults.NewGenerationID)
+ 	Set sc=rs.Execute(..AssortimentsGroep,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
 ]]></Implementation>
@@ -101,32 +106,31 @@
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxBasisProduct).%New()
-	Do Proxy.InvullenMetProductData(PRNr)
+	Do Proxy.InvullenMetProductData(PRNr, ..AssortimentsGroep)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.AssortimentsGroep=Translator.GeefAssortimentIDForAX(..AssortimentsGroep)
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
-<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="BasisAssortiment"
-	Set BestandsNaam=Omschrijving_" "_AssortimentGroep_".xml"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
-	Do ..Writer.Element("AssortimentGroep")
-	Do ..Writer.Write(AssortimentGroep)
-	Do ..Writer.EndElement()
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml
===================================================================
diff -u -r44290 -r50282
--- AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 44290)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 50282)
@@ -123,8 +123,10 @@
 <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 Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
+	Set pxHistItem.KlantID=Translator.GeefCustomerIDForAX(..KlantId)
+	Set pxHistItem.ProductID=Translator.GeefItemIDForAX($P(HistRec,"\",15))
 	Set pxHistItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxHistItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
 
@@ -148,7 +150,8 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r48892 -r50282
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 48892)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 50282)
@@ -23,15 +23,6 @@
 <Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
 </Property>
 
-<Method name="ToonTellingen">
-<Description>
-d ##class(AX.Uitgaand.EC.Service).%New().ToonTellingen()</Description>
-<Implementation><![CDATA[
-	d ##class(AX.Uitgaand.EC.Assortiment.impl.Tellingen).%New().ToonAll()
-	d ##class(AX.Uitgaand.EC.Prijzen.impl.Tellingen).%New().ToonAll()
-]]></Implementation>
-</Method>
-
 <Method name="%OnNew">
 <FormalSpec>BeperkAantal:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -53,7 +44,7 @@
 
 <Method name="GenerateAndExportAll">
 <Description>
-d ##class(AX.Uitgaand.EC.Service).%New().GenerateAndExportAll()</Description>
+d ##class(AX.Uitgaand.EC.Service).%New(1).GenerateAndExportAll()</Description>
 <Implementation><![CDATA[
 	Set ..ExportDefaults.NewGenerationID=..ExportDefaults.GeefNewGenerationID() ; OldGenerationID+1
 	Do ..GenerateAll()	
@@ -109,18 +100,18 @@
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
 <Implementation><![CDATA[
 	Do ..ExportKlanten()
-	Do ..ExportKlantGroepen()
+	;Do ..ExportKlantGroepen()
 	Do ..ExportProductReferenties()
-	;Do ..ExportHistoriek()
+	Do ..ExportHistoriek()
 	
 	Do ..ExportBasisAssortiment()
 	Do ..ExportKlantUitzAssortiment()
 	Do ..ExportKlantExcludedAssortiment()
 	
-	Do ..ExportCodexPrijzen()
-	Do ..ExportKlantUitzPrijzen()
+	;Do ..ExportCodexPrijzen()
+	;Do ..ExportKlantUitzPrijzen()
 	
-	Do ..ExportAlleVoorraad()
+	;Do ..ExportAlleVoorraad()
 	;Do ..ExportAlleProductieTijden()
 	
 	Do ..ExportBestandsSamenvatting()
@@ -298,6 +289,7 @@
 <Method name="VerplaatsBestanden">
 <Private>1</Private>
 <Implementation><![CDATA[
+	q
 	Set service=##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting)
 	Do service.InitProduction()
 	Do service.DoIt()
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 50282)
@@ -30,350 +30,110 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="GlobalData">
+<Property name="ModeAX">
 <Type>%String</Type>
 </Property>
 
-<Property name="GlobalIndex">
-<Type>%String</Type>
-</Property>
-
-<Property name="FactuurProforma">
-<Type>%String</Type>
-</Property>
-
-<Property name="OrderType">
-<Description>
-Standaard of Contract</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="repOpenstaandeFactuur">
-<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
-</Property>
-
-<Property name="TrackAndTraceService">
-<Type>APPS.OV.impl.TrackAndTraceService</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<FormalSpec>AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator,ModeAX:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxCustomerID=AxCustomerID
 	Set ..KlantId=KlantId
 	Set ..Taal=Taal
 	Set ..ProductValidator=ProductValidator
-	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
-
+	Set ..Translator=Translator
+	Set ..ModeAX=ModeAX
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,FactuurNr:%String</FormalSpec>
 <Implementation><![CDATA[
-  	Set pxHoofding.FactuurId=$LG(lbHoofding,2)
-	Set FactuurRec=$LG(lbHoofding,3)
-
- 	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
-
-	Set pxHoofding.Munt=$P(FactuurRec,"\",5)
-	If $LG(lbHoofding,1)="P" {
+	;zw ^||ECCache("D",FactuurNr,"HFD") r k
+  	Set pxHoofding.FactuurId=FactuurNr
+  	Set pxHoofding.FactuurDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","INVOICEDATE"),3)
+ 	Set pxHoofding.VervalDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","DUEDATE"),3)
+ 	Set pxHoofding.FactuurBedrag=+^||ECCache("D",FactuurNr,"HFD","INVOICEAMOUNT")
+	Set pxHoofding.Munt=^||ECCache("D",FactuurNr,"HFD","CURRENCYCODE")
+	
+	Set Tebetalen=^||ECCache("D",FactuurNr,"HFD","AMOUNTCUR")
+	Set Betaald=^||ECCache("D",FactuurNr,"HFD","SETTLEAMOUNTCUR")
+	Set pxHoofding.OpenstaandBedrag=Tebetalen-Betaald
+	
+	If pxHoofding.FactuurBedrag=0 {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Nulfactuur()
-	} ElseIf $P(FactuurRec,"\",2)="C" {
+	} ElseIf pxHoofding.FactuurBedrag<0 {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Kredietnota()
-		Set pxHoofding.FactuurBedrag=-$P(FactuurRec,"\",12)
 	} Else {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Factuur()
-		If ..repOpenstaandeFactuur.BestaatViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
-		{ 
-			#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = ..repOpenstaandeFactuur.GeefViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
-			set pxHoofding.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
-			set pxHoofding.AantalHerinneringen= OpenstaandeFactuur.GeefAantalHerinneringen()
-			set pxHoofding.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
-			set pxHoofding.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
-		}
-		Else
-		{
-			Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
-		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="ConverteerOrderAlsLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="O"
-	{
-		Do ..ConverteerOrderHoofdingLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	ElseIf $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerOrderHoofdingLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	;$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-	; Order
+	Set VolgNr=$O(^||ECCache("D",FactuurNr,"ORD",OrderNr,"")) ; eerste lijn nemen voor de orderhoofding
+	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) r k
+  	Set pxLijn.OrderId=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESID")
+  	Set pxLijn.OrderDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CREATEDDATETIME"),3)
+  	Set pxLijn.CommissieReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CUSTOMERREF"),$C(0))
+  	Set pxLijn.OrderReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PURCHORDERFORMNUM"),$C(0))
+  	Set:pxLijn.OrderReferentie?2N1"."2N1"."2N.E pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,9,99) ; Strip datum van orderreferentie
+	Set:$E(pxLijn.OrderReferentie)=" " pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,2,99)
+	
+  	Set pxLijn.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr)))
 	Set pxLijn.Type="O"
-	Set pxLijn.OrderId=$LG(lbLijn,5)
-	Set pxLijn.OrderDatum=..GeefOrderDatum($LG(lbLijn,3))
-	Set pxLijn.OrderReferentie=..GeefOrderReferentie($LG(lbLijn,3))
-	; Levering
-	Set LeveringRec=$LG(lbLijn,7)
-	Set pxLijn.LeveringId=$LG(lbLijn,6)
-	Set pxLijn.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P(LeveringRec,"\",2))
-	Set pxLijn.VerzendWijze=$P($P(LeveringRec,"\",7)," #")
-	If (pxLijn.LeveringsDatum>($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd
-	{
-		try{
-		 	Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringId)
-		}Catch {	
-			Do ##class(TECH.ExceptionHandler).Catch()	
-	 	 	/// geen TrackAndTrace URL beschikbaar
-		}
-	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	;$LB(..FactuurProforma,"P",OLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
-
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+  	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) 
+  	Set pxLijn.ProductID=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ITEMID")
+  	Set pxLijn.PRNr=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
+  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
+  	If ..ModeAX'="2A"
+  	{	
+  		Set pxLijn.ProductID=pxLijn.PRNr
+	}
+	Set pxLijn.Type="P"
+	Set pxLijn.Aantal=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"QTY")
+	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRICEUNIT")=100:"%",1:"")
+	Set pxLijn.NettoPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESPRICE")
+	Set pxLijn.TotaalPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"LINEAMOUNT")
+	Set pxLijn.Munt=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CURRENCYCODE")
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Set pxLijn.OorsprongDocType="FACTUUR"
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
+	;Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATECONFIRMED"),3)
+	;Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATEREQUESTED"),3)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
+	If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
 	}
-	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+		If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
 	{
-		Set pxLijn.Afbeelding=""
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	;$LB(..FactuurProforma,"T",,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
-
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
-]]></Implementation>
-</Method>
-
-<Method name="BepaalGlobal">
-<FormalSpec>FactuurProforma:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ..FactuurProforma=FactuurProforma
-	Set ..Node="F"
-	If FactuurProforma="P" { 
-		Set ..GlobalData="^KFAP"
-		Set ..GlobalIndex="^KFAP1"
-	}Else{
-		Set ..GlobalData="^KFA"
-		Set ..GlobalIndex="^KFA1"
+	If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"))
+	{
+		Set pxLijn.LeveringsDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"),3)
+		Set VerzendDatum=$$EXTDATE^vhLib.DataTypes(pxLijn.LeveringsDatum,"DK")
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Shipment date: "_VerzendDatum
 	}
-]]></Implementation>
-</Method>
 
-<Method name="OphalenOpenstaandeNaarCache">
-<Implementation><![CDATA[
-	
-	Do ..BepaalGlobal("F")
-	#dim Iterator As TECH.Iterator = ..repOpenstaandeFactuur.ZoekViaKlantID("K||"_..KlantId)
-	while Iterator.HasNext() {
-		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
-		Do ..OphalenFactuur(OpenstaandeFactuur.GeefFactuurID())
-	}
-]]></Implementation>
-</Method>
-
-<Method name="OphalenRecenteNaarCache">
-<FormalSpec>FactuurProforma:%String,Periode:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Do ..BepaalGlobal(FactuurProforma)
-	Set TotDatum=-($H-$S(Periode="":365,1:Periode)) ; alle openstaande of voor een bep periode
-	Set FAKNr=""
-	Set Datum=""
-	
-	For  Set Datum=$O(@..GlobalIndex@(..Node,..KlantId,Datum)) Quit:Datum=""  Quit:Datum>TotDatum  Do
-	. For  Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantId,Datum,FAKNr)) Quit:FAKNr=""  Do
-	. . Quit:'..CheckFactuur(FAKNr,Periode)
-	. . Do ..OphalenFactuur(FAKNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenFactuur">
-<FormalSpec>FAKNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set BONNr="U"
-	For  Set BONNr=$O(@..GlobalData@(..Node,FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
-	. Quit:'..CheckLevering(FAKNr,BONNr)
-	. Do ..OphalenLevering(FAKNr,BONNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenLevering">
-<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim BLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim Totaal As %Float = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
-	While (BLNr '= "")
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
-		#dim LijnType As %String = ""
-		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
-		If (LijnType '=""){
-			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
-			If LijnType="O" { 										; Orderhoofding
-				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
-			}else{
-				Set Totaal = Totaal+$P(BLRec,"\",16)
-				#dim PRNr As %String = $P(BLRec,"\",2)
-				Set:PRNr?4.7N HasProd=1
-				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-				If ProdGrp="" {
-					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
-				}Else{
-					Merge Sort(ORDCnt,ProdGrp)=MemSort
-					Kill MemSort
-					
-					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
-				}
-				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
-					#dim Groep As %String = $P(BLRec,"\",18)
-					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
-					Set LastGrpTijd=$P(Groep,";")
-					#dim GrpOLUNr As %String = $P(Groep,";",3)
-					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
-					If (GrpOLUNr'=""){
-						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
-						Set LastGrpOLUNr=GrpOLUNr	
-					}
-				}
-			}
-		}
-		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+		Set pxLijn.Afbeelding=""
 	}
-	
-	Set ORDCnt = ""
-	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
-		
-		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
-		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
-		Continue:ORDNr=""
-		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
-
-		If '$D(^||ECCache("FAK",FAKNr))
-		{
-			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
-			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
-			
-			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
-			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
-		}
-
-		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-		Set ProdGrp = ""
-		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
-			Set BLNr = ""
-			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
-				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
-				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
-				#dim OLUNr As %String = $P(BLRec,"\",15)
-				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				}
-			}
-		}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
-	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
-	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderReferentie">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
-	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
-	
-	Quit Ref
-]]></Implementation>
-</Method>
-
-<Method name="CheckFactuur">
-<FormalSpec>FAKNr,Periode</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLevering">
-<FormalSpec>FAKNr,BONNr</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLeveringLijn">
-<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
-<Implementation><![CDATA[
-	Set ProdGrp="*"
-	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
-	Set PRNr=$P(Rec,"\",2)
-	Set LijnType=""
-	Quit:Rec=""
-	
-	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
-	
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
-
-	Quit:PRNr'?4.7N 
-	
-	Set:PRNr?4.7N LijnType="P"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/impl/VerplaatsBestandenAX.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/VerplaatsBestandenAX.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/VerplaatsBestandenAX.cls.xml	(revision 50282)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.VerplaatsBestandenAX">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>%RegisteredObject</Super>
+
+<Property name="FtpServer">
+<Type>TECH.Ftp.FtpAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FtpConfig">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="itExternSystem">
+<Type>TECH.Iterator</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..FtpConfig="" ; zonder verplaatsen
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetConfig">
+<FormalSpec>Config:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<Implementation><![CDATA[	Set ..FtpConfig=Config
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestanden">
+<FormalSpec>BestandIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	If $isObject(..FtpConfig)
+	{
+		Write "FTP verbinding maken ... "
+		Do ..MaakVerbinding()	
+		Write "FTP verbinding gelukt",!
+		Do ..VerzendBestanden(BestandIterator.Next())
+		Do ..VerbreekVerbinding()
+	} Else {
+		Write "VerplaatsBestanden probleem: ..FtpConfig object is niet geïnitialiseerd.", !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerzendBestanden">
+<FormalSpec>BestandIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	Do BestandIterator.Reset()
+	While BestandIterator.HasNext()
+	{
+		Do ..VerzendBestand() // Hier mankeert een parameter!!!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestand">
+<FormalSpec>Bestand:CorrelateHeader</FormalSpec>
+<Implementation><![CDATA[
+	Write "VerplaatsBestand '" _ Bestand _ "' ..."
+	If $isObject(..FtpConfig)
+	{
+		Write "(FTP verbinding maken)"
+		Do ..MaakVerbinding()
+		Write "(FTP verbinding gelukt)"
+		Do ..VerzendBestand(Bestand)
+		Write "(VerzendBestand gebeurd)",!
+		Do ..VerbreekVerbinding()
+		Write " ... gelukt.", !
+	} Else {
+		Write " ... gefaald.", !
+		Write "VerplaatsBestanden probleem: ..FtpConfig object is niet geïnitialiseerd.", !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerzendBestand">
+<FormalSpec>Bestand:CorrelateHeader</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write "Verzenden bestand vanaf '" _ Bestand.PadEnFile _ "', naar '" _ Bestand.GeefTmpBestandsNaam() _ ".", !
+	Do ..FtpServer.VerzendBestand(Bestand.PadEnFile, Bestand.GeefTmpBestandsNaam())
+	Do ..FtpServer.HernoemBestand(Bestand.GeefTmpBestandsNaam(), Bestand.GeefXMLBestandsNaam(..ExportDefaults.TijdstipUTC))
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerbinding">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..FtpServer.Connecteer(..FtpConfig)
+]]></Implementation>
+</Method>
+
+<Method name="VerbreekVerbinding">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..FtpServer.VerbreekVerbinding()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/AssortimentAX/impl/KlantAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/KlantAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/KlantAssortiment.cls.xml	(revision 50282)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.KlantAssortiment">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="AXCustomerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="AXItemID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Excluded">
+<Type>%Boolean</Type>
+</Property>
+
+<Index name="AssortimentKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>GenerationID,Product,Klant</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaan6850.KlantAssortD8EDD</DataLocation>
+<DefaultData>KlantAssortimentDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaan6850.KlantAssortD8EDD</IdLocation>
+<IndexLocation>^AX.Uitgaan6850.KlantAssortD8EDI</IndexLocation>
+<StreamLocation>^AX.Uitgaan6850.KlantAssortD8EDS</StreamLocation>
+<Data name="KlantAssortimentDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AXCustomerID</Value>
+</Value>
+<Value name="3">
+<Value>AXItemID</Value>
+</Value>
+<Value name="4">
+<Value>AssortimentGroep</Value>
+</Value>
+<Value name="5">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="6">
+<Value>Excluded</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/KlantenAX/impl/Klanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/Klanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/Klanten.cls.xml	(revision 50282)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.impl.Klanten">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="AXCustomerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>GenerationID,Klant</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="GeefAssortimentSleutel">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AssortimentGroep
+]]></Implementation>
+</Method>
+
+<Method name="BestaatKlant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GenerationID:%String,KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..%ExistsId(GenerationID_"||"_KLNr)
+]]></Implementation>
+</Method>
+
+<Method name="LaatsteGenerationID">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	&SQL(Select MAX(GenerationID) into :GenerationID From AX_Uitgaand_EC_KlantenAX_impl.Klanten) 
+	Quit GenerationID
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand.EC.KlaDAB3.KlantenD</DataLocation>
+<DefaultData>KlantenDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand.EC.KlaDAB3.KlantenD</IdLocation>
+<IndexLocation>^AX.Uitgaand.EC.KlaDAB3.KlantenI</IndexLocation>
+<StreamLocation>^AX.Uitgaand.EC.KlaDAB3.KlantenS</StreamLocation>
+<Data name="KlantenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AXCustomerId</Value>
+</Value>
+<Value name="3">
+<Value>AssortimentGroep</Value>
+</Value>
+<Value name="4">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="5">
+<Value>AXCustomerID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50282)
@@ -6,15 +6,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Property name="itLijnen">
+<Type>TECH.Iterator</Type>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
-</Property>
-
-<Property name="LijnIterator">
+<Property name="itHoofding">
 <Type>TECH.Iterator</Type>
 </Property>
 
@@ -52,209 +48,73 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="repOpenstaandeFactuur">
-<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
-</Property>
-
-<Property name="TrackAndTraceService">
-<Type>APPS.OV.impl.TrackAndTraceService</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.DataAX.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxCustomerId=AxCustomerId
 	Set ..KlantId=KlantId
 	Set ..Taal=Taal
-	Set ..ProductValidator=ProductValidator
-	Set ..Translator=Translator
-	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	Set ..itHoofding=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
+	;Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenOpenstaandeFacturen">
 <Implementation><![CDATA[
-	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..itHoofding.InitOpenstaande(..AxCustomerId)
 	Do ..OphalenFacturen()
+	;zw ^||ECCache
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenRecenteFacturen">
+<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..itHoofding.InitRecente(..AxCustomerId, Datum)
 	Do ..OphalenFacturen()
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenFacturen">
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim rsHfd as TECH.ResultSet
 	Kill ^||ECCache
-	Kill ^||ECResult
-	While ..LijnIterator.HasNext()
+	While ..itHoofding.HasNext()
 	{
-		Set rs=..LijnIterator.Next()
-		Set FactuurNr=rs.Data("INVOICEID")
-		Set OrderNr=rs.Data("ORIGSALESID")
-		Set:$C(0)[OrderNr OrderNr="*"
-		Set PRNr=..Translator.GeefPRNrForAdmin(rs.Data("ITEMID"))
-	
-		If (OrderNr'="*")&&PRNr
-		{
-			If ('$D(^||ECCache(FactuurNr)))
-			{
-				Set FactuurDatum=$zdh($E(rs.Data("INVOICEDATE"),1,10),3)
-				Set ^||ECCache(FactuurNr)=$LB(FactuurNr,FactuurDatum,rs.Data("CURRENCYCODE"))
-				Set MemFactuurNr=FactuurNr
-			}
-			/// $LB(PRNr,ItemId,Aantal,NettorPrijs,GO,LijnTotaalExclBTW, LijnTotaalInclBTW,ExterneRef)
-			Set ExterneRef=rs.Data("EXTERNALITEMID") Set:ExterneRef=$C(0) ExterneRef=""
-			Set lb=$LB(PRNr,rs.Data("ITEMID"),+rs.Data("QTY"),+rs.Data("SALESPRICE"),+rs.Data("PRICEUNIT"),+rs.Data("LINEAMOUNT"),+rs.Data("LINEAMOUNTMST"),ExterneRef)
-			Set ^||ECCache(FactuurNr,OrderNr,$I(^||ECCache))=lb
-			Merge ^||ECResult(FactuurNr,OrderNr,^||ECCache)=rs.Data
-		
-		}
+		Set rsHfd=..itHoofding.Next()
+		Set FactuurNr=rsHfd.Data("INVOICEID")
+		Set FactuurDatum=$E(rsHfd.Data("INVOICEDATE"),1,10)
+		Merge ^||ECCache("D",FactuurNr,"HFD")=rsHfd.Data
+		Set ^||ECCache("IFAK",FactuurDatum,FactuurNr)=""
+		Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
+		Do ..itLijnen.InitDetail(FactuurNr)
+		Do ..OphalenLijnen(FactuurNr)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenLevering">
-<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
+<Method name="OphalenLijnen">
+<FormalSpec>FactuurNr:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim BLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim Totaal As %Float = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
-	While (BLNr '= "")
+	#dim rsLijn as TECH.ResultSet
+	#dim CountLijnen as %Decimal=0
+	While ..itLijnen.HasNext()
 	{
-		#dim LijnType As %String = ""
-		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
-		If (LijnType '=""){
-			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
-			If LijnType="O" { 										; Orderhoofding
-				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
-			}else{
-				Set Totaal = Totaal+$P(BLRec,"\",16)
-				#dim PRNr As %String = $P(BLRec,"\",2)
-				Set:PRNr?4.7N HasProd=1
-				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-				If ProdGrp="" {
-					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
-				}Else{
-					Merge Sort(ORDCnt,ProdGrp)=MemSort
-					Kill MemSort
-					
-					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
-				}
-				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
-					#dim Groep As %String = $P(BLRec,"\",18)
-					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
-					Set LastGrpTijd=$P(Groep,";")
-					#dim GrpOLUNr As %String = $P(Groep,";",3)
-					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
-					If (GrpOLUNr'=""){
-						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
-						Set LastGrpOLUNr=GrpOLUNr	
-					}
-				}
-			}
-		}
-		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+		Set rsLijn=..itLijnen.Next()
+		Set OrderNr=rsLijn.Data("SALESID")
+		Set CountLijnen=CountLijnen+1
+		Merge ^||ECCache("D",FactuurNr,"ORD",OrderNr,CountLijnen)=rsLijn.Data
 	}
-	
-	Set ORDCnt = ""
-	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
-		
-		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
-		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
-		Continue:ORDNr=""
-		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
-
-		If '$D(^||ECCache("FAK",FAKNr))
-		{
-			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
-			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
-			
-			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
-			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
-		}
-
-		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-		Set ProdGrp = ""
-		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
-			Set BLNr = ""
-			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
-				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
-				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
-				#dim OLUNr As %String = $P(BLRec,"\",15)
-				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				}
-			}
-		}
+	If 'CountLijnen {
+		Kill ^||ECCache("D",FactuurNr)
+	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
-	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
-	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderReferentie">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
-	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
-	
-	Quit Ref
-]]></Implementation>
-</Method>
-
-<Method name="CheckFactuur">
-<FormalSpec>FAKNr,Periode</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLevering">
-<FormalSpec>FAKNr,BONNr</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLeveringLijn">
-<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
-<Implementation><![CDATA[
-	Set ProdGrp="*"
-	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
-	Set PRNr=$P(Rec,"\",2)
-	Set LijnType=""
-	Quit:Rec=""
-	
-	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
-	
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
-
-	Quit:PRNr'?4.7N 
-	
-	Set:PRNr?4.7N LijnType="P"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50282)
@@ -73,9 +73,10 @@
 	Set pxHoofding.OorsprongDocType="L"
 
 	Set LeveringRec=$LG(lbHoofding,3)
+	
 	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
-	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",2)," #"))
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -84,6 +85,8 @@
 		 	/// geen TrackAndTrace URL beschikbaar
 		}
 	}
+	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAdmin(..KlantId,$LG(lbHoofding,4))
+
 	; Niet voor AX
 	;Do ..VulAanMetFactuur(pxHoofding, lbHoofding)
 ]]></Implementation>
@@ -302,7 +305,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode && (..Node'="F")
+	If Periode ;&& (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
@@ -338,7 +341,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
+	Set Datum=""
 	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
 	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
 	Quit Datum
@@ -349,7 +352,7 @@
 <FormalSpec>ORDRec</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3,99)
 	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
 	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
 	
Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r39048 -r50282
--- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 39048)
+++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50282)
@@ -48,7 +48,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="PRE_2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
@@ -58,11 +58,18 @@
 	Set ..KlantId=..Request.Header.KlantId
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	}
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator, ModeAX)
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -127,8 +134,6 @@
 	{
 		Do ..FacturenOphaler.OphalenOpenstaandeNaarCache()
 	}
-
-	;zw ^||ECCache r k
 ]]></Implementation>
 </Method>
 
@@ -137,7 +142,6 @@
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
 	#dim FAKNr as %String
-		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
Index: AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50282)
@@ -62,29 +62,32 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
 	Set ..Request=Request
 	Set ..KlantId=..Request.Header.KlantId
-	Set ..AxCustomerId=..Request.Header.AxCustomerId
+	Set ..AxCustomerId=..Request.Header.GeefAXCustomerId()
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	}
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal)
+	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator, ModeAX)
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
-	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
-
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
-
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -105,25 +108,11 @@
 <Method name="GenereerLijst">
 <Description>
 Hoofding
-   ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData)
-	   waar Type = O,L,F,P (order, levering, factuur, proforma)
-Lijn (product of tekst)
-   ^||ECCache("D",HoofdingVolgNr,LijnVolgNr) = $LB(Type,OrderlijnData, Tekst, VoorraadStatus)
-	   waar Type = P of T (Product of Tekst)
-	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
-Index
-   ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr
-   ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr
-Hoofding
-   ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData)
-	   waar Oorsprong = O,L,F,P (order, levering, factuur, proforma)
-       waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur
-Lijn (product of tekst)
-   ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData)
-	   waar Type = P of T (Product of Tekst)
-	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
-Index
-   ^||ECCache("IORD",OrderDatum,ORDNr)=""</Description>
+   ^||ECCache("D",FactuurNr,"HFD") = ResultSet.Data
+Datum index
+   ^||ECCache("IFAK",Datum,FactuurNr) = ResultSet.Data
+FactuurLijn
+   ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) = ResultSet.Data</Description>
 <Implementation><![CDATA[
 	Do ..OphalenNaarCache()
 	Do ..ConverteerCacheNaarXML()
@@ -133,99 +122,102 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
-	Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
+	If ..Periode
+	{
+		Do ..FacturenOphaler.OphalenRecenteFacturen($H-..Periode)
+	}
+	Else
+{
+		Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerCacheNaarXML">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
-	#dim FAKNr as %String
+	#dim FactuurNr as %String
 		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
-		Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,""))
-		While FAKNr'=""
+		Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,""))
+		While FactuurNr'=""
 		{
-			Do ..Converteer(FAKNr)
-			Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,FAKNr))
+			Do ..ConverteerFactuur(FactuurNr)
+			Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,FactuurNr))
 		}
 		Set FactuurDatum=$O(^||ECCache("IFAK",FactuurDatum),-1)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Converteer">
-<FormalSpec>FAKNr:%String</FormalSpec>
+<Method name="ConverteerFactuur">
+<FormalSpec>FactuurNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.DocumentHoofding
-	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
-	#dim lbHoofding as %List
-	#dim lbLijn as %List
+	#dim pxLijn as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
+	#dim pxOrder as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
 	#dim LijnNiv1 as %String
 	#dim LijnNiv2 as %String
-	#dim LijnNiv3 as %String
-	#dim LijnNiv4 as %String
-	#dim ObjectType as %String
 	
-	Set lbHoofding=^||ECCache("FAK",FAKNr)
-	
-	Set pxHoofding=..ConverteerHoofding(lbHoofding)
-	Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,""))
+	Set pxHoofding=..ConverteerHoofding(FactuurNr)
+	Set LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",""))
 	While LijnNiv1'=""
 	{	
-		Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,""))
-		While LijnNiv2'=""
-		{	
-			Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,""))
-			While LijnNiv3'=""
-			{	
+		; eerst order hoofding toevoegen als een lijn
+		Set pxOrder=..ConverteerOrder(FactuurNr, LijnNiv1)
+		If $isObject(pxOrder) {
+			Do pxHoofding.Lijnen.Insert(pxOrder)
 
-				Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,""))
-				While LijnNiv4'=""
-				{	
-
-					Set lbLijn=^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,LijnNiv4)
-					Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
-					If $isObject(pxLijn) {
-						Do pxHoofding.Lijnen.Insert(pxLijn)
-					}
-					Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3, LijnNiv4))
+			Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,""))
+			While LijnNiv2'=""
+			{	
+				Set pxLijn=..ConverteerLijn(FactuurNr, LijnNiv1, LijnNiv2)
+				If $isObject(pxLijn) {
+					Do pxHoofding.Lijnen.Insert(pxLijn)
+				}
+				Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,LijnNiv2))
 			}
-				Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3))
 		}
-			Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2))
-		}
-
-		Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,LijnNiv1))
+		Set LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1))
 	}
 	Do pxHoofding.BepaalProductGroepen()
 	Do ..Facturen.Insert(pxHoofding)
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<FormalSpec>FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
 <Implementation><![CDATA[
 	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
-	Do ..FacturenOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..FacturenConverter.ConverteerLijn(pxLijn, FactuurNr, OrderNr, VolgNr)
 	Quit pxLijn
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerOrder">
+<FormalSpec>FactuurNr:%String,OrderNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
+	Do ..FacturenConverter.ConverteerOrderAlsLijn(pxLijn, FactuurNr, OrderNr)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
+<FormalSpec>FactuurNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.FactuurHoofding).%New()
-	Do ..FacturenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..FacturenConverter.ConverteerHoofding(pxHoofding, FactuurNr)
 	Quit pxHoofding
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml	(revision 50282)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.ExportDefaultsAX">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>%Persistent</Super>
+
+<Property name="Pad">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXPad">
+<Type>%String</Type>
+</Property>
+
+<Property name="BeperktAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="PrijsDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="TijdstipUTC">
+<Type>%String</Type>
+</Property>
+
+<Property name="OldGenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="NewGenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LastGenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Pad:%String,BeperktAantal:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<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 ..BeperktAantal=$G(BeperktAantal,0)
+	Set ..Tijdstip=$zdt($H,3)
+	Set ..TijdstipUTC=$zdt($H,-2)
+	Set ..PrijsDatum=+$H+1
+	Set ..OldGenerationID=..GeefOldGenerationID()
+	Set ..NewGenerationID=..OldGenerationID
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAXPad">
+<Implementation><![CDATA[	Quit ..AXPad
+]]></Implementation>
+</Method>
+
+<Method name="GeefFormattedNewGenerationID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $TR($J(..NewGenerationID,8)," ",0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOldGenerationID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+]]></Implementation>
+</Method>
+
+<Method name="GeefNewGenerationID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OldGenerationID+1
+]]></Implementation>
+</Method>
+
+<Method name="SaveGenerationID">
+<Implementation><![CDATA[	/* GenerationID wordt automatisch bij Klanten bijgehouden */
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandsNaam">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..TijdstipUTC_" "_Omschrijving_".xml"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPadEnBestandsNaam">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..GeefVolledigPad(..GeefBestandsNaam(Omschrijving))
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigPad">
+<FormalSpec>BestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $$FULLPAD^vhDEV(..Pad,BestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="AllowProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="AllowKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand5C9.ExportDefauAD0BD</DataLocation>
+<DefaultData>ExportDefaultsAXDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand5C9.ExportDefauAD0BD</IdLocation>
+<IndexLocation>^AX.Uitgaand5C9.ExportDefauAD0BI</IndexLocation>
+<StreamLocation>^AX.Uitgaand5C9.ExportDefauAD0BS</StreamLocation>
+<Data name="ExportDefaultsAXDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Pad</Value>
+</Value>
+<Value name="3">
+<Value>BeperktAantal</Value>
+</Value>
+<Value name="4">
+<Value>Tijdstip</Value>
+</Value>
+<Value name="5">
+<Value>PrijsDatum</Value>
+</Value>
+<Value name="6">
+<Value>TijdstipUTC</Value>
+</Value>
+<Value name="7">
+<Value>OldGenerationID</Value>
+</Value>
+<Value name="8">
+<Value>NewGenerationID</Value>
+</Value>
+<Value name="9">
+<Value>LastGenerationID</Value>
+</Value>
+<Value name="10">
+<Value>AXPad</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r47531 -r50282
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 47531)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50282)
@@ -10,7 +10,7 @@
 </Parameter>
 
 <Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
 <Private>1</Private>
 </Property>
 
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50282)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+<Super>%RegisteredObject</Super>
 
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
@@ -14,10 +14,14 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
+<Property name="AXCustomerID">
+<Type>%String</Type>
+</Property>
+
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
@@ -26,156 +30,151 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="ModeAX">
+<Type>%String</Type>
+</Property>
+
+<Property name="AlleenOpenstaand">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<FormalSpec>AXCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator,AlleenOpenstaand:%Boolean,ModeAX:%String="2A"</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	$$$InitOldLocals
-	Set ..KlantID=KlantID
-	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..KlantId=KlantId
+	Set ..AXCustomerID=AXCustomerID
 	Set ..Taal=Taal
-	Set ..GenerationID=GenerationID
 	Set ..ProductValidator=ProductValidator	
+	Set ..Translator=Translator
+	Set ..ModeAX=ModeAX
+	Set ..AlleenOpenstaand=AlleenOpenstaand
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,OrderId:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding.OrderId=$LG(lbHoofding,2)
-	Set pxHoofding.OorsprongDocType="ORDER"
+	Set pxHoofding.OrderId=OrderId
 	
-	Set OrderRec=$LG(lbHoofding,3)
-	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
-	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
-	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
-	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
-	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
-	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
-	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
-	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
+	Set pxHoofding.OrderDatum=$zdh(^||ECCache("D",OrderId,"HFD","CREATEDDATETIME"),3)
+	Set pxHoofding.OrderReferentie=$TR(^||ECCache("D",OrderId,"HFD","PURCHORDERFORMNUM"),$C(0))
+	Set pxHoofding.VerzendWijze=$TR(^||ECCache("D",OrderId,"HFD","DLVMODE"),$C(0))
+	Set pxHoofding.EDIReferentie=""
+	Set pxHoofding.CommissieReferentie=$TR(^||ECCache("D",OrderId,"HFD","CUSTOMERREF"),$C(0))
+	
+	Set pxHoofding.IngegevenDoorMedewerker=$TR(^||ECCache("D",OrderId,"HFD","CREATEDBY"),$C(0))
+	Set:pxHoofding.IngegevenDoorMedewerker="KarelP" pxHoofding.IngegevenDoorMedewerker=""
+	Set:pxHoofding.IngegevenDoorMedewerker="AIF_User" pxHoofding.IngegevenDoorMedewerker=""
+	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",OrderId,"HFD")))
+	Set pxHoofding.OorsprongDocType=$TR(^||ECCache("D",OrderId,"HFD","SALESORIGINID"),$C(0))
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,OrderId:%String,VolgNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+
+	Set pxLijn.ProductID=^||ECCache("D",OrderId,"DTL",VolgNr,"ITEMID")
+	Set pxLijn.PRNr=$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
+  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
+  	If ..ModeAX'="2A"
+  	{	
+  		Set pxLijn.ProductID=pxLijn.PRNr
 	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	If ..AlleenOpenstaand {
+		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"REMAINSALESPHYSICAL")-^||ECCache("D",OrderId,"DTL",VolgNr,"GEPICKTEHOEVEELHEID")
+	} Else {
+		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED")
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE")
+	Set pxLijn.Munt=^||ECCache("D",OrderId,"DTL",VolgNr,"CURRENCYCODE")
+	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",OrderId,"DTL",VolgNr,"PRICEUNIT")=100:"%",1:"")
+	Set pxLijn.TotaalPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"LINEAMOUNT")
+	Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3)
+	Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3)
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Commentaar=$P(OLRec,"\",5)
-	
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Set pxLijn.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID"))
+	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","LIJNCONFTXT"),$C(0))
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
+	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))'=""
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))
 	}
+	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))
+	}
 	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
 		Set pxLijn.Afbeelding=""
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="TranslateStatus">
+<FormalSpec>PRNr:%String,Aantal:%Integer,SalesStatus:%String,BlokkeerStatus:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
-]]></Implementation>
-</Method>
-
-<Method name="VulAanLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.Status=$LG(lbLijn,5)
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrder">
-<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
-	Set OrderType=$P(Rec,"\",25)
-	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
-	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
-		
-	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrderLijn">
-<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
-<Implementation><![CDATA[
-
-	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	Set PRNr=$P(Rec,"\",2)
-	; ProdGrp behoud in eerste instantie de oude waarde
-	Set (LijnType,VoorraadStatus)=""
-	; Tekstlijn
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
-	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
-	;Voorraadstatus beperking
-	Set OLUNr=$P(Rec,"\",15)
-	If $P(Rec,"\",3)<0
+  ; AX SalesStatus : OpenOrder = 1, Delivered = 2, Invoiced = 3, Canceled = 4
+   ; BlokkeerStatus : Doorgegeven, Klaargezet, Geannuleerd, leeg
+	If SalesStatus=1
 	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+		If BlokkeerStatus="Klaargezet" 
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie()
+		}
+		ElseIf BlokkeerStatus="Doorgegeven"
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() 
+		}
+		ElseIf BlokkeerStatus="Geproduceerd"
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Geproduceerd()
+		}
+		ElseIf ((BlokkeerStatus="")||(BlokkeerStatus="KlaargezetWissen"))&&($P($$GENTYP^HAD(PRNr),"\")'="")
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).WachtenOpProductie()
+		}
+		ElseIf Aantal<1
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+		}
+		Else
+		{
+			Set ECStatus=$CASE(..VoorraadStatus(PRNr,Aantal,,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
+		}
 	}
-	Elseif $P(Rec,"\",3)>0
+	ElseIf SalesStatus=2 
 	{
-		If $D(^ORDW("IO",ORDNr,OLUNr)) 
-		{
-			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
-		} Else {
-			If $P(Rec,"\",27)'="" 
-			{
-				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
-			} Else {  
-				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
-			}
+		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering()
 		}
+	ElseIf SalesStatus=3 
+	{
+		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd()
 	}
-	Set LijnType="P"
+	Quit ECStatus
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerHfdTekst">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,OrderId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","ORDERCONFTXT"),$C(0))
+	Quit:pxLijn.Commentaar="" ""
+	Set pxLijn.Type="T"
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="VoorraadStatus">
 <FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
Index: AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r47509 -r50282
--- AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 47509)
+++ AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50282)
@@ -70,7 +70,7 @@
 	Set LeveringRec=$LG(lbHoofding,3)
 	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
 	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -295,7 +295,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode && (..Node'="F")
+	If Periode ; && (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
Index: AX/Uitgaand/EC/impl/BestandVerwerker.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/BestandVerwerker.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/BestandVerwerker.cls.xml	(revision 50282)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.BestandVerwerker">
+<Super>%RegisteredObject</Super>
+
+<Property name="PadEnFile">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="ECBestandsNaam">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Method name="GeefECBestandsNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$REPLACE^vhRtn1(..%ClassName(),"Correlate","")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTmpBestandsNaam">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S($L(Prefix):Prefix_" ",1:"")_..BestandsNaamZonderExtensie()_".tmp"
+]]></Implementation>
+</Method>
+
+<Method name="GeefXMLBestandsNaam">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S($L(Prefix):Prefix_" ",1:"")_..ECBestandsNaam_".xml"
+]]></Implementation>
+</Method>
+
+<Method name="BestandsNaamZonderExtensie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ECBestandsNaam_" AX"
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Abstract>1</Abstract>
+<FormalSpec>ExportDefaults:ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml	(revision 50282)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.impl.CorrelateKlant">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="CustomerID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="CustAccount"/>
+</Property>
+
+<Property name="AssortimentGroup">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="AssortmentGroupId"/>
+</Property>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="CompanyName"/>
+</Property>
+
+<Property name="PrijzenInclBTW">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="IncludeVAT"/>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateUitzondering.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateUitzondering.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateUitzondering.cls.xml	(revision 50282)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="ItemID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ItemId"/>
+</Property>
+
+<Property name="CustomerID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="CustAccount"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml
===================================================================
diff -u -r40850 -r50282
--- WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 40850)
+++ WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 50282)
@@ -93,6 +93,9 @@
 <Value name="13">
 <Value>GrootteOrde</Value>
 </Value>
+<Value name="14">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r48133 -r50282
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 48133)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50282)
@@ -22,8 +22,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
-	Set:AXPRNr="" AXPRNr=PRNr
-	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
+	Set:AXPRNr'="" PRNr=AXPRNr
+	Quit:'PRNr ""
+	Set IdentNr=$P($G(^KPR(PRNr,2)),"\",25)
+	Set:IdentNr="" IdentNr=$P($G(^KPRO(PRNr,2)),"\",25)
+	Quit IdentNr
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/ServiceAX.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/ServiceAX.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/ServiceAX.cls.xml	(revision 50282)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.ServiceAX">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="TijdStipStartLog">
+<Type>%Time</Type>
+</Property>
+
+<Property name="Debug">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="VerplaatsBestanden">
+<Type>AX.Uitgaand.EC.impl.VerplaatsBestandenAX</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BeperkAantal:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaultsAX).%New()
+	Set ..VerplaatsBestanden=##class(AX.Uitgaand.EC.impl.VerplaatsBestandenAX).%New(..ExportDefaults)
+	Set ..Tijdstip=$zdt($H,3)
+	Set ..Debug=1
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAlles">
+<Description>
+d ##class(AX.Uitgaand.EC.ServiceAX).%New().VerwerkAlles()</Description>
+<Implementation><![CDATA[
+	Set Status=..ImportAll()
+	If $$$ISOK(Status)
+	{
+		Do ..ExportHistoriek()
+		Do ..ExportReferenties()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ImportAll">
+<Description>
+d ##class(AX.Uitgaand.EC.ServiceAX).%New().ImportAll()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ImportService=##class(AX.Uitgaand.EC.impl.ImportBestand).%New(..ExportDefaults)
+	Do ImportService.VerwijderOudeBestanden() ; ouder dan vandaag
+	Do ImportService.OphalenBestanden() ; ophalen van de XMLs die een GenerationID hebben
+	If ImportService.AlleBestandenAanwezig()
+	{
+		Set ..ExportDefaults.NewGenerationID=ImportService.GeefGenerationID() ; overnemen van AX
+	
+		Set itBestanden=ImportService.GeefTeVerwerkenBestandIterator()
+		Set Status=$$$OK
+		While itBestanden.HasNext()&&($$$ISOK(Status))
+		{
+		 	#dim Bestand as AX.Uitgaand.EC.impl.BestandVerwerker
+			Set Bestand=itBestanden.Next()			
+			Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Alle 4 bestanden aanwezig : import van "_Bestand.GeefXMLBestandsNaam()_" met GenerationID "_..ExportDefaults.NewGenerationID)
+			Set Status=Bestand.Verwerk(..ExportDefaults)
+		}
+	}
+	Else 
+	{
+		If ImportService.NietAlleBestandenAanwezig()
+		{
+			Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Job heeft gelopen minstens 1 XML maar niet alle 4 zijn aanwezig")
+		}
+
+		Set Status='$$$OK
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ExportHistoriek">
+<Description>
+do ##class(AX.Uitgaand.EC.ServiceAX).%New().ExportHistoriek()</Description>
+<Implementation><![CDATA[
+	#Dim Bestand as AX.Uitgaand.EC.impl.BestandVerwerker
+	Set Bestand= ##class(AX.Uitgaand.EC.KlantenAX.impl.ExportProductHistoriek).%New(..ExportDefaults).ExportAll()
+	Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Export historiek "_Bestand.GeefXMLBestandsNaam())
+]]></Implementation>
+</Method>
+
+<Method name="ExportReferenties">
+<Description>
+do ##class(AX.Uitgaand.EC.ServiceAX).%New().ExportReferenties()</Description>
+<Implementation><![CDATA[
+	#Dim Bestand as AX.Uitgaand.EC.impl.BestandVerwerker
+	Set Bestand= ##class(AX.Uitgaand.EC.KlantenAX.impl.ExportProductReferenties).%New(..ExportDefaults).ExportAll()
+	Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Export klantreferenties "_Bestand.GeefXMLBestandsNaam())
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsBestanden">
+<FormalSpec>itBestanden:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	;Do ..VerplaatsBestanden.VerplaatsBestanden(itBestanden)
+]]></Implementation>
+</Method>
+
+<Method name="KillAll">
+<Description>
+d ##class(AX.Uitgaand.EC.ServiceAX).KillAll()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	d ##class(AX.Uitgaand.EC.AssortimentAX.impl.GenerateUitzondering).KillAll()
+	d ##class(AX.Uitgaand.EC.AssortimentAX.impl.GenerateBasis).KillAll()
+	d ##class(AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten).KillAll()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 50282)
@@ -4,257 +4,72 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
-</Property>
-
-<Property name="GenerationID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="AxCustomerId">
 <Type>%String</Type>
 </Property>
 
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
 
-<Property name="KredietWaardig">
-<Type>%String</Type>
+<Property name="itLijnen">
+<Type>TECH.Iterator</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$InitOldLocals
-	Set ..KlantID=KlantID
-	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..AxCustomerId=AxCustomerId
+	Set ..KlantId=KlantId
 	Set ..Taal=Taal
-	Set ..GenerationID=GenerationID
-	Set ..ProductValidator=ProductValidator	
-	Quit $$$OK
-]]></Implementation>
-</Method>
 
-<Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set pxHoofding.OrderId=$LG(lbHoofding,2)
-	Set pxHoofding.OorsprongDocType="ORDER"
-	
-	Set OrderRec=$LG(lbHoofding,3)
-	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
-	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
-	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
-	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
-	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
-	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
-	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
-	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
-]]></Implementation>
-</Method>
+	Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New()
 
-<Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
-	}
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenOpenstaandeOrders">
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
-	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Commentaar=$P(OLRec,"\",5)
-	
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
-	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
-	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
-	}
-	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
-	{
-		Set pxLijn.Afbeelding=""
-	}
+	Do ..itLijnen.InitOpenstaande(..AxCustomerId)
+	Do ..OphalenOrders()
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenRecenteOrders">
+<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
+	Do ..itLijnen.InitRecente(..AxCustomerId, Datum)
+	Do ..OphalenOrders()
 ]]></Implementation>
 </Method>
 
-<Method name="VulAanLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenOrders">
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.Status=$LG(lbLijn,5)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenNaarCache">
-<FormalSpec>BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ORDNr=""
-	For  Set ORDNr=$O(^KOD(..KlantID,"F",ORDNr)) Quit:ORDNr=""  Do
-	. Quit:'..CheckOrder(ORDNr,BeperkOrderType)
-	. Do ..OphalenOrder(ORDNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenOrder">
-<FormalSpec>ORDNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim OLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	#dim OrderDatum As %Date = ""
-	
-	Set HasProd=""
-	Kill Sort,GrpTekst
-	Set OrderTotaal=0
-	Set LastGrpTijd="",LastGrpOLUNr=""
-	For  Set OLNr=$O(^KOD(..KlantID,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
-	. Do ..CheckOrderLijn(ORDNr,OLNr,.LijnType,.VoorraadStatus)
-	. Quit:LijnType=""
-	. Set OLRec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	. Set OrderTotaal=OrderTotaal+$P(OLRec,"\",16)
-	. Set PRNr=$P(OLRec,"\",2)
-	. Set:PRNr?4.8N HasProd=1
-	. ; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-	. If ProdGrp="" Do
-	. . Set MemSort(OLNr)=$LB(LijnType,OLRec) ; onthouden van de lijn totdat prodgrp gekend
-	. Else  Do
-	. . Merge Sort(ProdGrp)=MemSort
-	. . Kill MemSort
-	. . Set Sort(ProdGrp,OLNr)=$LB(LijnType,OLRec,VoorraadStatus) ; onthouden van de lijn
-	. Quit:LijnType'="T" ; alleen tekstlijnen groeperen
-	. Set Groep=$P(OLRec,"\",18)
-	. Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" ; nieuwe groep
-	. Set LastGrpTijd=$P(Groep,";")
-	. Set GrpOLUNr=$P(Groep,";",3)
-	. Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-	. Set:GrpOLUNr="" GrpOLUNr=$P(OLRec,"\",15)
-	. Quit:GrpOLUNr=""
-	. Set GrpTekst(GrpOLUNr)=$G(GrpTekst(GrpOLUNr))_$S($D(GrpTekst(GrpOLUNr)):"<br>",1:"")_$P(OLRec,"\",5)
-	. Set LastGrpOLUNr=GrpOLUNr
-	 
-	Quit:'HasProd
-	Set LijnCnt=0
-	Set OrderDatum=..GeefOrderDatum(^KOD(..KlantID,"F",ORDNr,1))
-	Set ^||ECCache("ORD",ORDNr)=$LB("O",ORDNr,^KOD(..KlantID,"F",ORDNr,1),^KOD(..KlantID,"F",ORDNr,3))
-	Set ^||ECCache("IORD",OrderDatum,ORDNr)=""
-
-	Set (ProdGrp,OLNr)=""
-	For  Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp=""  Do
- 	. For  Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr=""  Do
-	. . Set LijnType=$LI(Sort(ProdGrp,OLNr),1)
-	. . Set OLRec=$LI(Sort(ProdGrp,OLNr),2)
-	. . Set OLUNr=$P(OLRec,"\",15)
-	. . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","T",,GrpTekst(OLUNr))
-	. . Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3))
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrder">
-<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
-	Set OrderType=$P(Rec,"\",25)
-	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
-	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
-		
-	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrderLijn">
-<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
-<Implementation><![CDATA[
-
-	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	Set PRNr=$P(Rec,"\",2)
-	; ProdGrp behoud in eerste instantie de oude waarde
-	Set (LijnType,VoorraadStatus)=""
-	; Tekstlijn
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
-	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
-	;Voorraadstatus beperking
-	Set OLUNr=$P(Rec,"\",15)
-	If $P(Rec,"\",3)<0
+	#dim rsLijn as TECH.ResultSet
+	Kill ^||ECCache
+	While ..itLijnen.HasNext()
 	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
-	}
-	Elseif $P(Rec,"\",3)>0
-	{
-		If $D(^ORDW("IO",ORDNr,OLUNr)) 
+		Set rsLijn=..itLijnen.Next()
+		;k %x m %x=rsLijn.Data zw %x
+		Set OrderId=rsLijn.Data("SALESID")
+		If '$D(^||ECCache("D",OrderId))
 		{
-			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
-		} Else {
-			If $P(Rec,"\",27)'="" 
-			{
-				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
-			} Else {  
-				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
-			}
+			Merge ^||ECCache("D",OrderId,"HFD")=rsLijn.Data
 		}
+		Set VolgNr=$O(^||ECCache("D",OrderId,"DTL",""),-1)
+		Merge ^||ECCache("D",OrderId,"DTL",VolgNr+1)=rsLijn.Data
 	}
-	Set LijnType="P"
 ]]></Implementation>
 </Method>
-
-<Method name="VoorraadStatus">
-<FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	$$$InitOldLocals
-	Set FysStock=$$GETSTOCK^PRODUKT4(PRNr,"F")
-	If $G(Aantal),FysStock<Aantal Quit "F"
-	Set PrakStock=$$GETSTOCK^PRODUKT4(PRNr,"P")
-	If PrakStock<$S($G(ReedsInOrder):0,1:Aantal) Quit "P"
-	Quit ""
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r47509 -r50282
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 47509)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50282)
@@ -48,12 +48,20 @@
 <Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
 <Property name="TrackAndTraceService">
 <Type>APPS.OV.impl.TrackAndTraceService</Type>
 </Property>
 
+<Property name="ModeAX">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,ModeAX:%String="PRE_2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantId=KlantId
@@ -62,6 +70,8 @@
 	Set ..ProductValidator=ProductValidator
 	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
 	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	Set ..ModeAX=ModeAX="2A"
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -163,6 +173,10 @@
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
+	If ..ModeAX
+	{
+		Set pxLijn.ProductID=..Translator.GeefItemIDForAX(pxLijn.PRNr)
+	}
 	If $P(OLRec,"\",5)'=""
 	{
 		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
Index: AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml
===================================================================
diff -u -r39484 -r50282
--- AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 39484)
+++ AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 50282)
@@ -8,14 +8,24 @@
 <Method name="AllowProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (PRNr#100)=0
+<Implementation><![CDATA[
+	Quit:PRNr=3551 1
+	Quit:PRNr=526953 1
+	Quit:PRNr=1074556 1
+	Quit (PRNr#100)=0
 ]]></Implementation>
 </Method>
 
 <Method name="AllowKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (KLNr#100)=0
+<Implementation><![CDATA[
+	Quit:KLNr=8840 1
+	Quit:KLNr=12885 1
+	Quit:KLNr=1523 1
+	Quit:KLNr=1571 1
+	Quit:KLNr=1070 1
+	Quit (KLNr#100)=0
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/AssortimentAX/impl/GenerateBasis.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/GenerateBasis.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/GenerateBasis.cls.xml	(revision 50282)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.GenerateBasis">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..NoSa="N"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KillAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.AssortimentAX.impl.BasisAssortiment).%DeleteExtent()
+	Do ##class(AX.Uitgaand.EC.AssortimentAX.impl.BasisAssortiment).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Opkuis">
+<Implementation><![CDATA[
+	Set GenerationID=..ExportDefaults.OldGenerationID
+	&SQL(delete AX_Uitgaand_EC_AssortimentAX_impl.BasisAssortiment where GenerationID<:GenerationID)
+	Set GenerationID=..ExportDefaults.NewGenerationID
+	&SQL(delete AX_Uitgaand_EC_AssortimentAX_impl.BasisAssortiment where GenerationID=:GenerationID)
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Opkuis()
+	Do ..VerwerkBestand(PadEnFile)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBestand">
+<Description>
+Do ##class(AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten).%New("").VerwerkBestand("\\cachedev2010\f$\AX.EC\20171027_142906_3625715_00001.xml")</Description>
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim pxProduct as AX.Uitgaand.EC.AssortimentAX.impl.CorrelateBasis
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PadEnFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Product","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateBasis")
+	
+	While reader.Next(.pxProduct,.sc)
+	{
+		If $$$ISOK(sc)
+		{
+			Do ..VerwerkProduct(pxProduct)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProduct">
+<FormalSpec>pxProduct:AX.Uitgaand.EC.AssortimentAX.impl.CorrelateBasis</FormalSpec>
+<Implementation><![CDATA[
+	Set Assortiment=##class(BasisAssortiment).%New()
+	Set Assortiment.AanmaakTijdstip=..ExportDefaults.Tijdstip
+	Set Assortiment.GenerationID=..ExportDefaults.NewGenerationID
+	Set Assortiment.AXItemID=pxProduct.ItemID
+	Set PRNr=..GeefAdminPRNr(pxProduct.ItemID)
+	;w !,pxProduct.ItemID," ",PRNr
+	If PRNr?4.9N,##class(Prod.Product).%ExistsId(PRNr)
+	{
+		Do Assortiment.ProductSetObjectId(PRNr)
+		If $L(pxProduct.AssortimentGroup)
+		{
+			Set Assortiment.AssortimentGroep=pxProduct.AssortimentGroup 
+			;w " ",Assortiment.AssortimentGroep
+			Do Assortiment.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminPRNr">
+<FormalSpec>ItemID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Key=$TR(ItemID,".")_" "
+	Set Rec=$G(^KPR2(Key))
+	Set PRNr=$P(Rec,"\")
+	Set IdentNr=$P(Rec,"\",2)
+	Set:IdentNr'=ItemID PRNr=""
+	Quit PRNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 50282)
@@ -3,11 +3,6 @@
 <Class name="AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="Converter">
-<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ResultSet">
 <Type>TECH.ResultSet</Type>
 <Private>1</Private>
@@ -19,68 +14,66 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection,RecenteDatum:%Date=""</FormalSpec>
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
-	If RecenteDatum
-	{
-		Do ..VoerUitQueryRecente(RecenteDatum)
-	}
-	Else
-	{
-		Do ..VoerUitQueryOpenstaande()
-	}
-	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQueryOpenstaande">
-<FormalSpec>RecenteDatum:%Date</FormalSpec>
-<Private>1</Private>
+<Method name="InitRecente">
+<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
-	Set SqlStatement = ""
-	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
-	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
-	_" and SALESTABLE.SALESSTATUS <> 4"
-	_" and SALESLINE.SALESSTATUS <> 4"
-	_" and SALESTABLE.SALESTYPE = 3"
-	
-	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
-	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
-	
+	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and ORD.CREATEDDATETIME>='"_$ZD(VanafDatum,3)_"' and SalesLine.SALESSTATUS<>4" 
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQueryRecente">
-<FormalSpec>RecenteDatum:%Date</FormalSpec>
+<Method name="InitOpenstaande">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and SalesLine.SALESSTATUS = 1"
+	; SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
+
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLVoorOrderLijnen">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
 	Set SqlStatement = ""
-	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
-	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
-	_" and SALESTABLE.SALESSTATUS = 1"
-	_" and SALESLINE.SALESSTATUS = 1"
-	_" and SALESTABLE.SALESTYPE = 3"
-	_" and SALESTABLE.CREATEDDATETIME >= '"_$zd(RecenteDatum) _ " 20171201 00:00:00.000' "
+	_"select ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME, OrdNotes.Body as ORDERCONFTXT, SalesLine.EXTERNALITEMID,"
+	_"   SalesLine.EXTERNALITEMID, SalesLine.CustomerLineNum,SalesLine.ADUORDERSTATUSID,SalesLine.ADUEXPLODEINVENTTRANSID,SalesLine.CREATEDBY,SALESORIGINID,"
+    _"   SalesLine.SALESSTATUS,SalesLine.ITEMID,ADMINPRODUCTNUMMER,QTYORDERED,REMAINSALESPHYSICAL,SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,"
+    _"   SalesLine.SALESPRICE,SalesLine.PRICEUNIT,SalesLine.LINEAMOUNT,SalesLine.CURRENCYCODE,ProdNotes.Body as PRODREF,LijnNotes.Body as LIJNCONFTXT,SalesLine.DLVMODE, "
+    _"   ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
+    _"   ,isnull(( select -sum(qty) from InventTrans where InventTransOrigin.RECID = InventTrans.INVENTTRANSORIGIN and InventTrans.STATUSISSUE = 3 and "
+	_"            InventTrans.STATUSRECEIPT = 0 and InventTrans.DATAAREAID = InventTransOrigin.DATAAREAID and InventTrans.PARTITION = InventTransOrigin.PARTITION),0) as GEPICKTEHOEVEELHEID"
+	_" from SalesLine "
+	_" join SalesTable as ORD on SalesLine.SALESID = ORD.SALESID and SalesLine.DATAAREAID = ORD.DATAAREAID"
+	_" join InventTransOrigin on InventTransOrigin.INVENTTRANSID = SalesLine.INVENTTRANSID and InventTransOrigin.DATAAREAID = SalesLine.DATAAREAID and "
+	_"                           InventTransOrigin.PARTITION = SalesLine.PARTITION "
+	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
+	_" join InventDim  on InventDim.InventDimId =SalesLine.InventDimId "
+	_"   and InventDim.DataAreaId = SalesLine.DataAreaId "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
+    _"   and InventDim.ConfigId<>'' "
+	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ProdNotes.ADUBODYTYPE=5"
+	_" left outer join AduCustomerFormNotes as LijnNotes on LijnNotes.REFTABLEID=359 and LijnNotes.REFRECID=SalesLine.RECID and LijnNotes.ADUBODYTYPE=1"
+	_" left outer join AduCustomerFormNotes as OrdNotes on OrdNotes.REFTABLEID=366 and OrdNotes.REFRECID=ORD.RECID and OrdNotes.ADUBODYTYPE=1"
+	_" where ORD.SALESTYPE = 3 " ; SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 "
 
-	
-	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
-	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
-	
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	Quit SqlStatement
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/impl/ImportBestand.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/ImportBestand.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/ImportBestand.cls.xml	(revision 50282)
@@ -0,0 +1,152 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.ImportBestand">
+<Super>%RegisteredObject</Super>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="Bestanden">
+<Type>CorrelateHeader</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefGenerationID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GenerationID
+]]></Implementation>
+</Method>
+
+<Method name="OphalenBestanden">
+<Implementation><![CDATA[
+	#dim FileIt as TECH.Iterator = ..GeefFileIterator()
+	While FileIt.HasNext()
+	{
+		Do ..OphalenInhoudBestand(FileIt.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="NietAlleBestandenAanwezig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:..AlleBestandenAanwezig() 0
+	Set GenerationID=$O(..Bestanden(""))
+	Quit:GenerationID=..ExportDefaults.OldGenerationID 0
+	Quit:GenerationID="" 0
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="AlleBestandenAanwezig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set AlleAanwezig=..ControleOpAlleAanwezig()
+	If AlleAanwezig&&(..GenerationID=..ExportDefaults.OldGenerationID)
+	{
+		Set AlleAanwezig=0
+	}
+	Quit AlleAanwezig
+]]></Implementation>
+</Method>
+
+<Method name="ControleOpAlleAanwezig">
+<Implementation><![CDATA[
+	Set AlleAanwezig=0
+	Set ..GenerationID=$O(..Bestanden(""))
+
+	; Er mag slechts 1 GenerationID zijn
+	If ..GenerationID'=""&&($O(..Bestanden(..GenerationID))="" )
+	{
+		If $D(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.KlantenAX.impl.CorrelateHeaderKlanten).GeefInhoudLabel())) {
+			If $D(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderBasis).GeefInhoudLabel())) { 
+				If $D(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderUitzondering).GeefInhoudLabel())) { 
+					If $D(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderExclusie).GeefInhoudLabel())) {
+						Set AlleAanwezig=1
+					}
+				}
+			}
+		}
+	}
+	If 'AlleAanwezig
+	{
+		Set ..GenerationID=""
+	}
+	Quit AlleAanwezig
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwerkenBestandIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst=..GeefTeVerwerkenBestanden()
+	Quit ##class(TECH.ListIterator).%New(Lijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwerkenBestanden">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Lijst=##Class(%ListOfObjects).%New()
+	Do Lijst.Insert(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.KlantenAX.impl.CorrelateHeaderKlanten).GeefInhoudLabel()))
+	Do Lijst.Insert(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderBasis).GeefInhoudLabel()))
+	Do Lijst.Insert(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderUitzondering).GeefInhoudLabel()))
+	Do Lijst.Insert(..Bestanden(..GenerationID,##class(AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderExclusie).GeefInhoudLabel()))
+	Quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="OphalenInhoudBestand">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim pxCorrelate as AX.Uitgaand.EC.impl.CorrelateHeader
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PadEnFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Exclusions","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderExclusie")
+	Do reader.Correlate("KlantUitzAssortiment","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderUitzondering")
+	Do reader.Correlate("Klanten","AX.Uitgaand.EC.KlantenAX.impl.CorrelateHeaderKlanten")
+	Do reader.Correlate("BasisAssortiment","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderBasis")
+	If reader.Next(.pxCorrelate,.sc)
+	{
+		If (pxCorrelate.GenerationID'="")&&(pxCorrelate.Inhoud'="")
+		{
+			Set pxCorrelate.PadEnFile=PadEnFile
+			Set:pxCorrelate.GenerationID?1"AE"1.n pxCorrelate.GenerationID=$E(pxCorrelate.GenerationID,3,99) ; tijdelijk
+			Set pxCorrelate.GenerationID=+pxCorrelate.GenerationID ; numeriek zonder de voorloopnullen van AX
+			Set ..Bestanden(pxCorrelate.GenerationID,pxCorrelate.Inhoud)=pxCorrelate
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefFileIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.File.impl.FileAPI).%New().GetFileList(..ExportDefaults.AXPad,"*.xml",0)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeBestanden">
+<Implementation><![CDATA[	Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestandenOuderDan(..ExportDefaults.AXPad, $H-1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 50282)
@@ -6,26 +6,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="OrdersIterator">
-<Type>TECH.Iterator</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrdersOphaler">
 <Type>AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LeveringenOphaler">
-<Type>AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder</Type>
+<Property name="OrdersConverter">
+<Type>AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="FacturenOphaler">
-<Type>AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
 <Private>1</Private>
@@ -36,6 +26,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AxCustomerId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Orders">
 <Type>WS.Vhisie4.KlantDocument.dto.OrderHoofding</Type>
 <Collection>list</Collection>
@@ -68,27 +63,31 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest,ModeAX:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
 	Set ..Request=Request
 	Set ..KlantId=..Request.Header.KlantId
+	Set ..AxCustomerId=..Request.Header.GeefAXCustomerId()
+
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=..Request.GenerationId
-	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	}
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..AxCustomerId,..KlantId, ..Taal )
+	Set ..OrdersConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator,$S(..Periode:0,1:1))
 
-	Set ..OrdersIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New(..Request.Header.AxCustomerId)
-	;Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-	;Set ..LeveringenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-	;Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -131,111 +130,83 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
-	Kill ^||ECCache
-
-	Do ..OphalenVanAx()
-	;zw ^||ECCache r k
-]]></Implementation>
-</Method>
-
-<Method name="OphalenVanAx">
-<Implementation><![CDATA[
-	While ..OrdersIterator.HasNext()
+	If ..Periode
 	{
-		Set rs=..OrdersIterator.Next()
-		IF rs.Data("ITEMID")'=$C(0)||(rs.Data("ITEMCODEID")'=$C(0))||(rs.Data("EXTERNALITEMID")'=$C(0))
-		{
-		k %q
-		m %q=rs.Data
-		zw %q
-		r k
-		}
+		Do ..OrdersOphaler.OphalenRecenteOrders($H-..Periode)
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerCacheNaarXML">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim OrderDatum as %Date
-	#dim ORDNr as %String
-		
-	Set OrderDatum=$O(^||ECCache("IORD",""),-1)
-	While OrderDatum'=""
+	Else
 	{
-		Set ORDNr=$O(^||ECCache("IORD",OrderDatum,""))
-		While ORDNr'=""
-		{
-			Do ..Converteer(ORDNr)
-			Set ORDNr=$O(^||ECCache("IORD",OrderDatum,ORDNr))
-		}
-		Set OrderDatum=$O(^||ECCache("IORD",OrderDatum),-1)
+		Do ..OrdersOphaler.OphalenOpenstaandeOrders()
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Converteer">
-<FormalSpec>ORDNr:%String</FormalSpec>
+<Method name="ConverteerCacheNaarXML">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
 	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
-	#dim lbHoofding as %List
-	#dim lbLijn as %List
 	#dim LijnNiv1 as %String
-	#dim LijnNiv2 as %String
+	#dim OrderId as %String
 	#dim ObjectType as %String
 	
-	Set lbHoofding=^||ECCache("ORD",ORDNr)
-	
-	Set pxHoofding=..ConverteerHoofding(lbHoofding)
-	Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,""))
-	While LijnNiv1'=""
-	{	
-		Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,""))
-		While LijnNiv2'=""
+	Set OrderId=$O(^||ECCache("D",""))
+	While OrderId'=""
+	{
+		Set pxHoofding=..ConverteerHoofding(OrderId)
+		
+		Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",""))
+		While LijnNiv1'=""
 		{	
-			Set lbLijn=^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2)
-			Set ObjectType=$LG(lbLijn)
-			Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+			Set pxLijn=..ConverteerLijn(OrderId,LijnNiv1)
 			If $isObject(pxLijn) {
 				Do pxHoofding.Lijnen.Insert(pxLijn)
-				Set:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
+				;Set:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
 			}
-			Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2))
+			Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",LijnNiv1))
 		}
-
-		Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,LijnNiv1))
-	}
-	Do pxHoofding.BepaalProductGroepen()
-	Do ..BepaalOrderStatus(pxHoofding)
-	; Terugnames niet toevoegen
-	Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
+		Set OrderId=$O(^||ECCache("D",OrderId))
+		Do pxHoofding.BepaalProductGroepen()
+		Do ..BepaalOrderStatus(pxHoofding)
+		; Terugnames niet toevoegen
+		;Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
 	
-	Do ..Orders.Insert(pxHoofding)
+		Do ..Orders.Insert(pxHoofding)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
+<FormalSpec>OrderId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
 <Implementation><![CDATA[
-	#dim ObjectType as %String
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
 
-	Set ObjectType=$LG(lbHoofding)
-	If ObjectType="O" { 
-		Set pxHoofding=..ConverteerOrderHoofding(lbHoofding) 
-	} Else { ; (ObjectType="L")||(ObjectType="F")||(ObjectType="P") 
-		Set pxHoofding=..ConverteerLeveringHoofding(lbHoofding) 
-	}
-	;d DumpObject^%apiOBJ(pxHoofding)
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
+	Do ..OrdersConverter.ConverteerHoofding(pxHoofding,OrderId)
+	
+	Set pxLijn=..OrdersConverter.ConverteerHfdTekst(##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New(),OrderId)
+	Do:$isObject(pxLijn) pxHoofding.Lijnen.Insert(pxLijn)
+	
 	Quit pxHoofding
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerLijn">
+<FormalSpec>OrderId:%String,VolgNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim pxLijn as WS.Vhisie4.KlantDocument.dto.OrderLijn
+
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
+	Do ..OrdersConverter.ConverteerLijn(pxLijn,OrderId,VolgNr)
+	;d DumpObject^%apiOBJ(pxLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="BepaalOrderStatus">
 <FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.OrderHoofding</FormalSpec>
 <Implementation><![CDATA[
@@ -367,87 +338,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*Method ConverteerLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
+{
 	#dim ObjectType as %String
 	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
 
 	Set ObjectType=$LG(lbLijn)
 	If ObjectType="O" { 
 		Set pxLijn=..ConverteerOrderLijn(lbHoofding,lbLijn) 
-	} ElseIf ObjectType="L" {
-		Set pxLijn=..ConverteerLeveringLijn(lbHoofding,lbLijn) 
-	} ElseIf (ObjectType="F")||(ObjectType="P") {
-		Set pxLijn=..ConverteerFactuurLijn(lbHoofding,lbLijn) 
 	}
 	;d DumpObject^%apiOBJ(pxLijn)
 	Quit pxLijn
-]]></Implementation>
-</Method>
+}
 
-<Method name="ConverteerOrderHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
-<Implementation><![CDATA[
+Method ConverteerOrderHoofding(lbHoofding As %List) As WS.Vhisie4.KlantDocument.dto.OrderHoofding [ Private ]
+{
 	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
 	Do ..OrdersOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
 	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
 	Quit pxHoofding
-]]></Implementation>
-</Method>
+}
 
-<Method name="ConverteerLeveringHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
-<Implementation><![CDATA[
-	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
-	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
-	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
-	Quit pxHoofding
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerOrderLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
+Method ConverteerOrderLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
+{
 	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
 	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
 	Do ..OrdersOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
 	Quit pxLijn
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerLeveringLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
-	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerFactuurLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
-	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..FacturenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Quit pxLijn
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml
===================================================================
diff -u -r36472 -r50282
--- AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 50282)
@@ -46,6 +46,7 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do ..OpenOutput()
 	Set itKlant=..KlantIterator()
 	While itKlant.HasNext() {
 		Set rs=itKlant.Next()
@@ -54,13 +55,13 @@
 		Continue:'..IsGeldigeKlant(KLNr)
 		Do ..ExportKlant(KLNr)
 	}
+	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
 <Method name="ExportKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..OpenOutput(KLNr)
 	
 	Set it=..ProductIterator(KLNr)
 	While it.HasNext() {
@@ -69,8 +70,6 @@
 		Continue:'..IsGeldigProduct(KLNr,PRNr)
 		Do ..ExportProduct(KLNr,PRNr)
 	}
-	
-	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -91,7 +90,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=?")
+	Do rs.Prepare("Select Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=? and isnull(Excluded,0)=0")
 	
  	Set sc=rs.Execute(KLNr,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
@@ -126,38 +125,37 @@
 <FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxKlantProduct).%New()
-	Do Proxy.InvullenMetProductData(PRNr)
-	Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
-	Set Proxy.Excluded=KlantAssortiment.Excluded
+	Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_KLNr)
+	Do Proxy.InvullenMetProductData(PRNr,Klant.AssortimentGroep)
+
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.KlantID=Translator.GeefCustomerIDForAX(KLNr)
+
+	;Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
+	;Set Proxy.Excluded=KlantAssortiment.Excluded
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
-<FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="KlantUitzAssortiment"
-	Set BestandsNaam=Omschrijving_" "_KLNr_".xml"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,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("Klant")
-	Do ..Writer.Write(KLNr)
-	Do ..Writer.EndElement()
-	Do ..Writer.Element("KlantNaam")
-	Do ..Writer.Write($P(^KKL(^KK1(KLNr),0),"\",2))
-	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r44290 -r50282
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 44290)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 50282)
@@ -89,7 +89,7 @@
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
+		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code3,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 and TypeAdres='L'
@@ -101,7 +101,7 @@
  	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
  	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
  	. . Quit:'$isObject(oAndereKlant)
- 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
+ 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.Land.Code3,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
 	. Else  Do
 	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,$S(Verzendwijze="":Klant.Verzendwijze,1:Verzendwijze),Opmerking2,TypeAdres,Klant.Taal)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
Index: AX/Uitgaand/EC/impl/FTPConfig.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/FTPConfig.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/FTPConfig.cls.xml	(revision 50282)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.FTPConfig">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefConfigProduction">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.Adres="192.168.100.61" ; production 
+	Set FtpConfig.Gebruiker="ftpuser"
+	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set FtpConfig.Poort=21
+	Set FtpConfig.ServerBestandsLocatie="current"
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfigTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.Adres="192.168.100.60" ; test
+	Set FtpConfig.Gebruiker="ftpuser"
+	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set FtpConfig.Poort=21
+	Set FtpConfig.ServerBestandsLocatie="current"
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfigAccept">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.Adres="192.168.100.62" ; accept
+	Set FtpConfig.Gebruiker="ftpuser"
+	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set FtpConfig.Poort=21
+	Set FtpConfig.ServerBestandsLocatie="current"
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperAdresConverteren.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperAdresConverteren.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperAdresConverteren.cls.xml	(revision 50282)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="MaakAdresTekstVanAX">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CacheRef:%String</FormalSpec>
+<Implementation><![CDATA[
+	;ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH
+	Set Land=$TR($G(@CacheRef@("COUNTRYREGIONID")),$C(0))
+	Set PostCode=$TR($G(@CacheRef@("ZIPCODE")),$C(0))
+	Set Woonplaats=$TR($G(@CacheRef@("CITY")),$C(0))
+	Set Straat=$TR($G(@CacheRef@("STREET")),$C(0))
+	Set Ref1=$TR($G(@CacheRef@("ADUNOTA1EXTERNAL")),$C(0))
+	Set Ref2=$TR($G(@CacheRef@("ADUNOTA2EXTERNAL")),$C(0))
+	
+	Quit ..Build(Land, PostCode,Woonplaats, Straat, Ref1, Ref2)
+]]></Implementation>
+</Method>
+
+<Method name="MaakAdresTekstVanAdmin">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%String,AdresRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $TR($P(AdresRec,"\",2,7),"\")=""
+	{
+		Set AdresRec=^KKL(^KK1(KLNr),0)
+	}
+	
+	Set LandCode=$P(AdresRec,"\",8)
+	Set Land=$$LAND^vhRtn1(LandCode,1,1)
+	Set PostCode=$P(AdresRec,"\",6)
+	Set Woonplaats=$P(AdresRec,"\",7)
+	Set Straat=$P(AdresRec,"\",5)
+	Set Ref1=""
+	Set Ref2=""
+	
+	Quit ..Build(Land, PostCode,Woonplaats, Straat, Ref1, Ref2)
+]]></Implementation>
+</Method>
+
+<Method name="Build">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Land:%String,PostCode:%String,Woonplaats:%String,Straat:%String,Ref1:%String,Ref2:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Result=Straat_" - "_Woonplaats
+	Set:Land'="BEL" Result=Result_"("_Land_")"
+	If $L(Ref1)||$L(Ref2) {
+		Set Result=Result_" - "
+		Set:$L(Ref1) Result=Result_Ref1
+		Set:$L(Ref1)&&$L(Ref2) Result=Result_", "
+		Set:$L(Ref2) Result=Result_Ref2
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50282)
@@ -60,7 +60,6 @@
 	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
 	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
 
-
 	Do ..GenereerLijst()
 		
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -109,9 +108,9 @@
 	Set pxItem.ProductID=..Translator.GeefItemIDForAX($P(HistRec,"\",15))
 	Set pxItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxItem.JaarOmzet=$P(HistRec,"\",12)
-	Set pxItem.NettoPrijs=$P(HistRec,"\",9)
-	Set:$P(HistRec,"\",11)="H" pxItem.GrootteOrde="%"
-	Set pxItem.Munt=$P(HistRec,"\",10)
+	Set pxItem.NettoPrijs=$P(HistRec,"\",6)
+	Set:$P(HistRec,"\",8)="H" pxItem.GrootteOrde="%"
+	Set pxItem.Munt=$P(HistRec,"\",7)
 	Set pxItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
 	Do pxItem.VulAanMetProduct(..Taal)
 	Do ..ToevoegenAanGroep(pxItem)
@@ -141,7 +140,9 @@
 
 <Method name="CheckProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
+<Implementation><![CDATA[
+	Quit:$D(^HISTPAK("P",PRNr)) 0
+	Quit ..ProductValidator.InAssortiment(PRNr)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml
===================================================================
diff -u -r38584 -r50282
--- AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 38584)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 50282)
@@ -119,18 +119,20 @@
 <Method name="BuildProxy">
 <FormalSpec>PakNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+
 	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 pxPakket.KlantID=Translator.GeefCustomerIDForAX(..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.ProductID=Translator.GeefItemIDForAX(PRNr)
 	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Do pxPakket.Producten.Insert(pxProduct)
 	Set:pxPakket.Producten.Count()>1 pxPakket.MultiProduct=1
@@ -154,7 +156,8 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderBasis.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderBasis.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderBasis.cls.xml	(revision 50282)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderBasis">
+<Super>AX.Uitgaand.EC.impl.CorrelateHeader</Super>
+
+<Method name="GeefECBestandsNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "BasisAssortiment"
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Generator=##class(AX.Uitgaand.EC.AssortimentAX.impl.GenerateBasis).%New(ExportDefaults)
+	Do Generator.Verwerk(..PadEnFile)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u -r49597 -r50282
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 49597)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 50282)
@@ -36,51 +36,20 @@
 <Implementation><![CDATA[
 	Set ..ExportDefaults=ExportDefaults
 	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 	Set ..BestandVerplaatser = $$$Inject(BestandVerplaatser, ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden.BestandVerplaatser).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefConfigProduction">
-<ClassMethod>1</ClassMethod>
-<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
-<Implementation><![CDATA[
-	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set FtpConfig.Adres="192.168.100.61" ; production 
-	Set FtpConfig.Gebruiker="ftpuser"
-	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
-	Set FtpConfig.Poort=21
-	Set FtpConfig.ServerBestandsLocatie="current"
-	Quit FtpConfig
-]]></Implementation>
-</Method>
-
-<Method name="GeefConfigTest">
-<ClassMethod>1</ClassMethod>
-<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
-<Implementation><![CDATA[
-	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set FtpConfig.Adres="192.168.100.60" ; test
-	Set FtpConfig.Gebruiker="ftpuser"
-	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
-	Set FtpConfig.Poort=21
-	Set FtpConfig.ServerBestandsLocatie="current"
-	Quit FtpConfig
-]]></Implementation>
-</Method>
-
 <Method name="InitProduction">
-<Implementation><![CDATA[
-	Set ..FtpConfig=..GeefConfigProduction()
-	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigProduction()
 ]]></Implementation>
 </Method>
 
 <Method name="InitTest">
-<Implementation><![CDATA[
-	Set ..FtpConfig=..GeefConfigTest()
-	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigTest()
 ]]></Implementation>
 </Method>
 
Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r46643 -r50282
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 46643)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50282)
@@ -51,6 +51,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAXCustomerId">
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	Quit:$L(..KlantId)<5 0_..KlantId
+	Quit ..KlantId
+]]></Implementation>
+</Method>
+
 <Property name="Taal">
 <Type>TECH.String</Type>
 <Required>1</Required>
Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u -r46343 -r50282
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 46343)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 50282)
@@ -55,6 +55,10 @@
 <Type>DOM.enu.Munt</Type>
 </Property>
 
+<Property name="Regio">
+<Type>%String</Type>
+</Property>
+
 <Property name="ExterneVerantwID">
 <Type>%String</Type>
 </Property>
@@ -105,19 +109,24 @@
 <Implementation><![CDATA[
 	Set D="\",U=";",Q="K"
 	Do ..KlantSetObjectId(KLNr)
-	Set ..KlantID=KLNr
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..KlantID=Translator.GeefCustomerIDForAX(KLNr)
 	Set ..FirmaNaam=..Klant.Naam_$S($L(..Klant.Aanspreking):" "_..Klant.Aanspreking,1:"")
 	Set ..Naam=..Klant.Naam
 	Set ..Toenaam=..Klant.Toenaam
 	Set ..Aanspreking=..Klant.Aanspreking
 	Set ..Straat=..Klant.StraatNrBus
 	Set ..Woonplaats=..Klant.Woonplaats
-	Set ..Postcode=..Klant.Postnummer
-	Set ..Land=..Klant.LandCode
+	Set ..Postcode=..Klant.Postnummer	Set ..Land=..Klant.Land.Code3
+	
 	Set ..Munt=..Klant.Muntkode
-	Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
-	Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
-	Set ..Taal=..Klant.Taal
+	Set ..Regio=..Klant.Sektor
+	
+	;Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
+	;Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
+
+	Set ..Taal=$Case(..Klant.Taal,"N":"nl-be","F":"fr","D":"de","E":"en-us",:"nl-be")
+
 	Set ..BTWNr=..Klant.BTWnummer
 	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
 	Do ##class(pxAdres).ToevoegenLeveringsAdressen(..Klant, ..LeveringsAdressen)
Index: AX/Uitgaand/EC/Assortiment/impl/ExportKlantExcluded.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/ExportKlantExcluded.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportKlantExcluded.cls.xml	(revision 50282)
@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.ExportKlantExcluded">
+<Description>
+Uitzondering op het assortiment : Producten die een klant niet mag krijgen</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="ExcludedProduct">
+<Type>AX.Uitgaand.EC.Assortiment.impl.pxProductExcludeKlant</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</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 itProduct=..ProductIterator()
+	While itProduct.HasNext() {
+		Set rs=itProduct.Next()
+		Set PRNr=rs.Data("Product")
+		Continue:'..IsGeldigProduct(PRNr)
+		Do ..ExportProduct(PRNr)
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="ExportProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..BuildProxy(PRNr)	
+	Set it=..KlantIterator(PRNr)
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set KLNr=rs.Data("Klant")
+		Continue:'..IsGeldigeKlant(KLNr)
+		Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+		Do ..ExcludedProduct.Klanten.Insert(Translator.GeefCustomerIDForAX(KLNr))
+	}
+	Do ..Writer.Object(..ExcludedProduct,"Product")
+	Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="ProductIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Distinct Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where GenerationID=? and isnull(Excluded,0)=1")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Klant from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Product=? and GenerationID=? and isnull(Excluded,0)=1")
+	
+ 	Set sc=rs.Execute(PRNr,..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ''$D(^KPR(PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ExcludedProduct=##class(pxProductExcludeKlant).%New()
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..ExcludedProduct.ProductID=Translator.GeefItemIDForAX(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="Exclusions"
+	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")
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..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/DataAX/impl/Testing.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/Testing.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/Testing.cls.xml	(revision 50282)
@@ -0,0 +1,196 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.Testing">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Multiple">
+<Description>
+	D ##class(TECH.Config.ConfigMgr).Instance().SetString("VHIP464DocumentLocationServiceUrl","http://ax_scan:81/MicrosoftDynamicsAXAif60_PROD/SalesInvoicePDFService/xppservice.svc")
+	D ##class(TECH.Config.ConfigMgr).Instance().SetString("VHIP464DocumentLocationServiceUrl","http://ax-aos-dev.vanhoecke.be:84/MicrosoftDynamicsAXAif60_ACCEPT/SalesInvoicePDFService/xppservice.svc")
+d ##class(AX.Uitgaand.EC.Data.impl.Testing).Multiple()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..All(12486) ; sfs
+	Do ..All(1736) ; dupont
+	Do ..All(4810) ; lobelle
+	Do ..All(2913) ; tristar
+	Do ..All(3042) ; dovy
+	Do ..All(3145) ; mibois
+	Do ..All(6780) ; De decker jb
+	Do ..All(7755) ; Casa vero
+	Do ..All(1000) ; Van Hoecke TEST-> Dupont zonder prijs
+]]></Implementation>
+</Method>
+
+<Method name="All">
+<Description>
+d ##class(AX.Uitgaand.EC.DataAX.impl.Testing).All(4810)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("AX_vHisie4_Fase","2A")
+	Set Periode=60
+	Do ..Orders(KlantId)
+	Do ..Orders(KlantId,Periode)
+	Do ..Facturen(KlantId)
+	Do ..Facturen(KlantId,Periode)
+	Do ..Leveringen(KlantId)
+	Do ..Leveringen(KlantId,Periode)
+	Do ..Offertes(KlantId,Periode)
+	Do ..Historiek(KlantId)
+]]></Implementation>
+</Method>
+
+<Method name="Doc">
+<Description>
+d ##class(AX.Uitgaand.EC.DataAX.impl.Testing).Doc()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefDocumentRequest).%New()
+	Set request.Header.KlantId=4810
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(request.Header.KlantId)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+
+	Set request.DocumentId=591298
+	Set request.DocumentType="Factuur"
+	Set request.ResultaatType="PDF"
+	;Set request.DocumentId=315652
+	;Set request.DocumentType="Levering"
+	
+	Set request.DocumentId="VO1800113366"
+	Set request.DocumentType="Order"
+	;Set request.DocumentId="573781"
+	;Set request.DocumentType="Offerte"
+
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefDocument(request)
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Document request "_request.Header.KlantId_" "_request.DocumentId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Document response "_request.Header.KlantId_" "_request.DocumentId_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="Orders">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefOrdersRequest).%New()
+	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set request.Header.KlantId=KlantId
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(KlantId)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+	Set request.Periode = $G(Periode)
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefOrders(request)
+	;D dto.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Orders request "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Orders response "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="Facturen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefFacturenRequest).%New()
+	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set request.Header.KlantId=KlantId
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(KlantId)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+	Set request.Periode = $G(Periode)
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefFacturen(request)
+	;Do dto.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Facturen request "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Facturen response "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="Leveringen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefLeveringenRequest).%New()
+	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set request.Header.KlantId=KlantId
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(KlantId)
+	Set request.Periode = $G(Periode)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefLeveringen(request)
+	;D dto.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Leveringen request "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Leveringen response "_$S($G(Periode):"recent",1:"openstaand")_" "_KlantId_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="Historiek">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest).%New()
+	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set request.Header.KlantId=KlantId
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(KlantId)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefVerkoopHistoriek(request)
+	;D dto.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Historiek request "_KlantId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Historiek response "_KlantId_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="Offertes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantId:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefOffertesRequest).%New()
+	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set request.Header.KlantId=KlantId
+	Set:(##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")="2A") request.Header.KlantId=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefCustomerIDForAX(KlantId)
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set request.Header.RequestId="yy"
+	Set request.Header.PersonalityId=""
+	Set request.Header.GebruikerId="gg"
+	Set request.Header.GebruikerIp="11.11.11.11"
+	Set request.Periode=200
+	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Set dto=bl.GeefOffertes(request)
+	;D dto.XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Offertes request "_KlantId_".xml")
+	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Offertes response "_KlantId_".xml")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml
===================================================================
diff -u -r48613 -r50282
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 48613)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 50282)
@@ -161,10 +161,10 @@
 <Method name="VerplaatstOutputNaarWeb">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigProduction()
+	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigProduction()
 	Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	Try {
-		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigTest()
+		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigTest()
 		Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	} Catch {
 		Do ##class(TECH.ExceptionHandler).Catch()	
Index: AX/Uitgaand/EC/AssortimentAX/impl/ExportProductIDVertaling.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/ExportProductIDVertaling.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/ExportProductIDVertaling.cls.xml	(revision 50282)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.ExportProductIDVertaling">
+<Super>%RegisteredObject</Super>
+
+<Property name="SoprConvertor">
+<Description>
+d ##class(AX.Uitgaand.EC.AssortimentAX.impl.ExportProductIDVertaling).%New().GenerateAll()</Description>
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..FileWriter=##class(TECH.File.impl.FileWriter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Do ..FileWriter.Open("f:\AX.EC\ConversieProductNrAX.csv")
+	Do ..WriteHeader()
+	Do ..GenerateBasis()
+	Do ..GenerateUitz()
+	Do ..FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GenerateUitz">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Product not in (Select DISTINCT Product  from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment)")
+
+ 	Set sc=rs.Execute()
+ 	
+	While rs.%Next() {
+		Set PRNr=rs.Data("Product") 
+		Do ..WriteProduct(PRNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenerateBasis">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product  from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment")
+
+ 	Set sc=rs.Execute()
+ 	
+	While rs.%Next() {
+		Set PRNr=rs.Data("Product") 
+		Do ..WriteProduct(PRNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WriteProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Set:AXPRNr="" AXPRNr=PRNr
+	Do ..FileWriter.WriteLine(PRNr_";"_$P(^KPR(AXPRNr,2),"\",25))
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<Implementation><![CDATA[	Do ..FileWriter.WriteLine("VanProductID;NaarProductID")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/KlantenAX/impl/ExportProductReferenties.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/ExportProductReferenties.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/ExportProductReferenties.cls.xml	(revision 50282)
@@ -0,0 +1,181 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.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="Bestand">
+<Type>AX.Uitgaand.EC.impl.CorrelateHeader</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	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()
+	Quit ..Bestand
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.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 Klant from AX_Uitgaand_EC_KlantenAX_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")
+]]></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=..Translator.GeefCustomerIDForAX(..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=..Translator.GeefItemIDForAX(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"
+	Do ..BuildBestand(Omschrijving)
+	Set sc=..Writer.OutputToFile(..Bestand.PadEnFile)
+	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.GeefFormattedNewGenerationID())
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="BuildBestand">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<ReturnType>AX.Uitgaand.EC.impl.BestandVerwerker</ReturnType>
+<Implementation><![CDATA[
+	Set ..Bestand=##class(AX.Uitgaand.EC.impl.BestandVerwerker).%New()
+	Set ..Bestand.ECBestandsNaam=Omschrijving
+	Set ..Bestand.PadEnFile=..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[	Do ..Writer.EndRootElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/impl/CorrelateHeader.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/CorrelateHeader.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/CorrelateHeader.cls.xml	(revision 50282)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.CorrelateHeader">
+<Super>%RegisteredObject,%XML.Adaptor,BestandVerwerker</Super>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="GenerationId"/>
+</Property>
+
+<Property name="Inhoud">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Inhoud=..GeefInhoudLabel()
+	Set ..ECBestandsNaam=..GeefECBestandsNaam()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInhoudLabel">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$REPLACE^vhRtn1(..%ClassName(),"Correlate","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/AssortimentAX/impl/GenerateUitzondering.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/GenerateUitzondering.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/GenerateUitzondering.cls.xml	(revision 50282)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.GenerateUitzondering">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..NoSa="N"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KillAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.AssortimentAX.impl.KlantAssortiment).%DeleteExtent()
+	Do ##class(AX.Uitgaand.EC.AssortimentAX.impl.KlantAssortiment).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Opkuis">
+<Implementation><![CDATA[
+	Set GenerationID=..ExportDefaults.OldGenerationID
+	&SQL(delete AX_Uitgaand_EC_AssortimentAX_impl.KlantAssortiment where GenerationID<:GenerationID)
+	Set GenerationID=..ExportDefaults.NewGenerationID
+	&SQL(delete AX_Uitgaand_EC_AssortimentAX_impl.KlantAssortiment where GenerationID=:GenerationID)
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Opkuis()
+	Do ..VerwerkBestand(PadEnFile)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBestand">
+<Description>
+Do ##class(AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten).%New("").VerwerkBestand("\\cachedev2010\f$\AX.EC\20171027_142906_3625715_00001.xml")</Description>
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim pxProduct as AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PadEnFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Product","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering")
+	
+	While reader.Next(.pxProduct,.sc)
+	{
+		If $$$ISOK(sc)
+		{
+			Do ..VerwerkProduct(pxProduct)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProduct">
+<FormalSpec>pxProduct:AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering</FormalSpec>
+<Implementation><![CDATA[
+	Set Assortiment=##class(KlantAssortiment).%New()
+	Set Assortiment.AanmaakTijdstip=..ExportDefaults.Tijdstip
+	Set Assortiment.GenerationID=..ExportDefaults.NewGenerationID
+	Set Assortiment.AXItemID=pxProduct.ItemID
+	Set PRNr=..GeefAdminPRNr(pxProduct.ItemID)
+	;w !,pxProduct.ItemID," ",PRNr
+	If PRNr?4.9N,##class(Prod.Product).%ExistsId(PRNr)
+	{
+		Set Assortiment.AXCustomerID=pxProduct.CustomerID
+		Set KLNr=..GeefAdminKLNr(pxProduct.CustomerID)
+		;w " ",pxProduct.CustomerID," ",KLNr
+		If ##class(Derde.Klant.Klant).%ExistsId(KLNr)
+		{
+			Do Assortiment.KlantSetObjectId(KLNr)	Do Assortiment.ProductSetObjectId(PRNr)
+			;w " *"
+			Do Assortiment.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminPRNr">
+<FormalSpec>ItemID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Key=$TR(ItemID,".")_" "
+	Set Rec=$G(^KPR2(Key))
+	Set PRNr=$P(Rec,"\")
+	Set IdentNr=$P(Rec,"\",2)
+	Set:IdentNr'=ItemID PRNr=""
+	Quit PRNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminKLNr">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$S($E(CustomerID)="0":$E(CustomerID,2,9),1:CustomerID)
+	Quit KLNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml
===================================================================
diff -u -r39315 -r50282
--- WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 50282)
@@ -178,6 +178,9 @@
 <Value name="39">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="40">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/AssortimentAX/impl/GenerateExclusie.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/GenerateExclusie.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/GenerateExclusie.cls.xml	(revision 50282)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.GenerateExclusie">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..NoSa="N"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KillAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%DeleteExtent()
+	Do ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Opkuis">
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Opkuis()
+	Do ..VerwerkBestand(PadEnFile)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBestand">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim pxProduct as AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PadEnFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Product","AX.Uitgaand.EC.AssortimentAX.impl.CorrelateExclusie")
+	
+	While reader.Next(.pxProduct,.sc)
+	{
+		If $$$ISOK(sc)
+		{
+			Do ..VerwerkProduct(pxProduct)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProduct">
+<FormalSpec>pxProduct:AX.Uitgaand.EC.AssortimentAX.impl.CorrelateUitzondering</FormalSpec>
+<Implementation><![CDATA[
+	Set Assortiment=##class(KlantAssortiment).%New()
+	Set Assortiment.AanmaakTijdstip=..ExportDefaults.Tijdstip
+	Set Assortiment.GenerationID=..ExportDefaults.NewGenerationID
+	Set Assortiment.AXItemID=pxProduct.ItemID
+	Set PRNr=..GeefAdminPRNr(pxProduct.ItemID)
+	;w !,pxProduct.ItemID," ",PRNr
+	If PRNr?4.9N,##class(Prod.Product).%ExistsId(PRNr)
+	{
+		Set Assortiment.AXCustomerID=pxProduct.CustomerID
+		Set KLNr=..GeefAdminKLNr(pxProduct.CustomerID)
+		If ##class(Derde.Klant.Klant).%ExistsId(KLNr)
+		{
+			Do Assortiment.KlantSetObjectId(KLNr)	Do Assortiment.ProductSetObjectId(PRNr)
+			Set Assortiment.Excluded=1
+			;w " *"
+			Do Assortiment.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminPRNr">
+<FormalSpec>ItemID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Key=$TR(ItemID,".")_" "
+	Set Rec=$G(^KPR2(Key))
+	Set PRNr=$P(Rec,"\")
+	Set IdentNr=$P(Rec,"\",2)
+	Set:IdentNr'=ItemID PRNr=""
+	Quit PRNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminKLNr">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$S($E(CustomerID)="0":$E(CustomerID,2,9),1:CustomerID)
+	Quit KLNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml
===================================================================
diff -u -r38278 -r50282
--- AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 38278)
+++ AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 50282)
@@ -20,13 +20,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:%String,GenerationID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantID=KlantID
 	Set ..GenerationID=GenerationID
 	Set ..AssortimentGroep=..GeefAssortimentGroep()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -63,6 +68,15 @@
 	Quit Klant.AssortimentGroep
 ]]></Implementation>
 </Method>
+
+<Method name="GeefItemIDForAX">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Set:AXPRNr="" AXPRNr=PRNr
+	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Data/impl/Translator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/Translator.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/Translator.cls.xml	(revision 50282)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.Translator">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefItemIDForAX">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit PRNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefPRNrForAdmin">
+<FormalSpec>ItemID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $P($G(^KPR2($TR(ItemID,".")_" ")),"\")
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomerIDForAX">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit KLNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefKLNrForAdmin">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit CustomerID
+]]></Implementation>
+</Method>
+
+<Method name="GeefGenerationIDForAX">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentIDForAX">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set IDAX=11
+	Set:ID="Industrie" IDAX=20
+	Set:ID="Handel" IDAX=24
+	Set:ID="Consument" IDAX=35
+	Quit "AG"_$E(100000000+IDAX,2,99)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateBasis.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateBasis.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateBasis.cls.xml	(revision 50282)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateBasis">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="ItemID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ItemId"/>
+</Property>
+
+<Property name="AssortimentGroup">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="AssortmentGroupId"/>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml
===================================================================
diff -u -r39774 -r50282
--- AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 39774)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 50282)
@@ -75,14 +75,16 @@
 <FormalSpec>PRNr:%String,AssortimentsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ProductSetObjectId(PRNr)
-	Set ..ProductID=PRNr
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..ProductID=Translator.GeefItemIDForAX(PRNr)
 	Set ..KortTekst=..Product.KortTekst
 	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
 	Set ..LeveringstermijnEenheid="W"
 	Set ..StockNietStock=$S(..Product.StockNietStock=1:"S",1:"NS")
 	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
 	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
 	Do ..BepaalVeelvoud(AssortimentsGroep)
+
 	Do ..DefinieerVoorraadNiveaus()
 ]]></Implementation>
 </Method>
@@ -143,8 +145,21 @@
 
 <Method name="DefinieerVoorraadNiveaus">
 <Implementation><![CDATA[
+	; in AX is de afname niet gekend, dus vaste defaults
 	If ..Product.StockNietStock
 	{
+
+	Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
+	Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
+
+	Set ..KleineWeekAfname=999999 ; de weekafname telt niet mee
+	Set ..GroteWeekAfname=999999
+	}
+	Q
+	
+	
+	If ..Product.StockNietStock
+	{
 		Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
 		Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
 		
Index: WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml
===================================================================
diff -u -r39315 -r50282
--- WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 50282)
@@ -182,6 +182,9 @@
 <Value name="34">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="35">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml
===================================================================
diff -u -r39315 -r50282
--- WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 50282)
@@ -127,6 +127,9 @@
 <Value name="37">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="38">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml
===================================================================
diff -u -r36472 -r50282
--- AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 50282)
@@ -95,8 +95,9 @@
 	Set Proxy=##class(pxKlant).%New()
 	Do Proxy.InvullenMetKlantData(..KLNr)
 	Set Klant=##class(Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_..KLNr)
-	Set Proxy.AssortimentSleutel=Klant.GeefAssortimentSleutel()
-	Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.AssortimentSleutel=Translator.GeefAssortimentIDForAX(Klant.GeefAssortimentSleutel())
+	;Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
 	Quit Proxy
 ]]></Implementation>
 </Method>
@@ -117,7 +118,8 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/KlantenAX/impl/GenerateKlanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/GenerateKlanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/GenerateKlanten.cls.xml	(revision 50282)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..NoSa="N"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KillAll">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).%DeleteExtent()
+	Do ##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).%KillExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Opkuis">
+<Implementation><![CDATA[
+	Set GenerationID=..ExportDefaults.OldGenerationID
+	&SQL(delete AX_Uitgaand_EC_KlantenAX_impl.Klanten where GenerationID<:GenerationID)
+	Set GenerationID=..ExportDefaults.NewGenerationID
+	&SQL(delete AX_Uitgaand_EC_KlantenAX_impl.Klanten where GenerationID=:GenerationID)
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Opkuis()
+	Do ..VerwerkBestand(PadEnFile)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBestand">
+<Description>
+Do ##class(AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten).%New("").VerwerkBestand("\\cachedev2010\f$\AX.EC\20171027_142906_3625715_00001.xml")</Description>
+<FormalSpec>PadEnFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim pxKlant as AX.Uitgaand.EC.KlantenAX.impl.CorrelateKlant
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PadEnFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Klant","AX.Uitgaand.EC.KlantenAX.impl.CorrelateKlant")
+	
+	While reader.Next(.pxKlant,.sc)
+	{
+		If $$$ISOK(sc)
+		{
+			Do ..VerwerkKlant(pxKlant)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKlant">
+<FormalSpec>pxKlant:AX.Uitgaand.EC.KlantenAX.impl.CorrelateKlant</FormalSpec>
+<Implementation><![CDATA[
+	Set Klant=##class(Klanten).%New()
+	Set Klant.AanmaakTijdstip=..ExportDefaults.Tijdstip
+	Set Klant.GenerationID=..ExportDefaults.NewGenerationID
+	Set Klant.AXCustomerID=pxKlant.CustomerID
+	Set KLNr=..GeefAdminKLNr(pxKlant.CustomerID)
+	;w !,pxKlant.CustomerID," ",KLNr
+	If ##class(Derde.Klant.Klant).%ExistsId(KLNr)
+	{
+		Do Klant.KlantSetObjectId(KLNr)
+		If $L(pxKlant.AssortimentGroup)
+		{
+			Set Klant.AssortimentGroep=pxKlant.AssortimentGroup
+			;w " ",Klant.AssortimentGroep
+			Do Klant.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminKLNr">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KLNr=$S($E(CustomerID)="0":$E(CustomerID,2,9),1:CustomerID)
+	Quit KLNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml
===================================================================
diff -u -r40850 -r50282
--- WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 40850)
+++ WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 50282)
@@ -177,6 +177,9 @@
 <Value name="33">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="34">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r49335 -r50282
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 49335)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 50282)
@@ -42,8 +42,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductIdConverter">
-<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
 <Private>1</Private>
 </Property>
 
@@ -57,6 +57,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Connected2AX">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="WebsiteAXIds">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ModeAX">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -66,10 +78,13 @@
 	Set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
 	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
 	Set ..KlantIdConverter = ##class(AXimpl.Utils.KlantIdConverter).%New()
-	Set ..ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New()
 	Set ..OrderBeperker = ##class(WSimpl.Vhisie4.OrderBeperker).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	
+	Set ..ModeAX=##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")
+	Set ..Connected2AX=(..ModeAX?1(1"PRE_2A",1"2A"))
+	Set ..WebsiteAXIds=(..ModeAX="2A")
+	Set ..Translator = ##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -87,26 +102,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse
 	
-	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
-	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen).%New(Request).GeefResponse()
-	
-	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
-	
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		#dim HistoriekGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
-	
-		While (HistoriekGroepIterator.HasNext()) {
-			#dim HistoriekGroep As WS.Vhisie4.KlantDocument.dto.HistoriekGroep = HistoriekGroepIterator.Next()	
-			Set HistoriekGroep.Producten = ..ProductIdConverter.ConvertProductInfoToAx(HistoriekGroep.Producten)
-		}
+	If ..WebsiteAXIds
+	{
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen).%New(Request).GeefResponse()
+		Set Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
+	}
 	
 	Quit Response
 ]]></Implementation>
@@ -126,28 +137,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOrdersResponse
 	
-	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
-	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.OrdersOphalen).%New(Request).GeefResponse()
-	
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
-		Set Response.Lijst = ..OrderBeperker.GeefBeperkteLijst(Response.Lijst, ##class(WSimpl.Vhisie4.OrderBeperker.Filter).%New())
-	
-		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
-	
-		While (HoofdingIterator.HasNext()) {
-			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OrderHoofding = HoofdingIterator.Next()	
-			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
-		}
+	If ..Connected2AX
+	{
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.OrdersOphalen).%New(Request,..ModeAX).GeefResponse()
+		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
+	}
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -165,27 +170,25 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefFacturenResponse 
-	
-	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
-	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.FacturenOphalen).%New(Request).GeefResponse()
-	
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
-	
-		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
-	
-		While (HoofdingIterator.HasNext()) {
-			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.FactuurHoofding = HoofdingIterator.Next()	
-			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
-		}
+	#dim FacturenOld As %ListOfObjects
+	If ..Connected2AX
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request,..ModeAX).GeefResponse()
+		Set FacturenOld=Response.Lijst
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.FacturenOphalen).%New(Request,..ModeAX).GeefResponse()
+		Do ..AppendList(Response.Lijst,FacturenOld)
+		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
+	}
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -202,27 +205,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOffertesResponse 
 	
-	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
-	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.OffertesOphalen).%New(Request).GeefResponse()
-	
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
-	
-		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
-	
-		While (HoofdingIterator.HasNext()) {
-			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OfferteHoofding = HoofdingIterator.Next()	
-			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
-		}
+	If ..Connected2AX
+	{
+		Set Response="" ; geen offertes in fase 2A
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
+	}
+		
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -240,26 +238,24 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefLeveringenResponse 
 	
-	Set Response = ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request).GeefResponse()
-	
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
-	
-		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
-	
-		While (HoofdingIterator.HasNext()) {
-			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.LeveringHoofding = HoofdingIterator.Next()	
-			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
-		}
+	If ..WebsiteAXIds
+	{
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.LeveringenOphalen).%New(Request).GeefResponse()
+		Set Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request).GeefResponse()
+	}
 	
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -269,24 +265,36 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-		Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
-	}
-	;Do ..HeaderValidator.ValidateHeader(Request.Header)
-	;Do ..Logger.Debug("GeefDocument - ValidateHeader ok", Request.DocumentId)
-	;Do ..SessionManager.RegisterSession(Request.Header)
-	;Do ..Logger.Debug("GeefDocument - RegisterSession ok", Request.DocumentId)
+	Do ##class(Tools.Wlip).%New(127).String("start")
 	
+	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
+	Do ..SessionManager.RegisterSession(Request.Header)
+	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefDocumentResponse
-
 	Set Response = ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New(Request).GeefResponse()
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
+	
+	Do ##class(Tools.Wlip).%New(127).ObjToXML(Response)
+	
+	If ..Connected2AX
+	{
+	Do ##class(Tools.Wlip).%New(127).String("connected to ax")
+		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
 	Quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="AppendList">
+<FormalSpec>List:%ListOfObjects,ListAdd:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	For I=1:1:ListAdd.Count() {
+		Do List.Insert(ListAdd.GetAt(I))
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateExclusie.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateExclusie.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateExclusie.cls.xml	(revision 50282)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateExclusie">
+<Super>CorrelateUitzondering</Super>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml
===================================================================
diff -u -r38803 -r50282
--- WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 38803)
+++ WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 50282)
@@ -37,6 +37,10 @@
 <Type>WS.Vhisie4.KlantDocument.enu.OrderStatus</Type>
 </Property>
 
+<Property name="LeverAdresTekst">
+<Type>TECH.String</Type>
+</Property>
+
 <Property name="Lijnen">
 <Type>WS.Vhisie4.KlantDocument.dto.OrderLijn</Type>
 <Collection>list</Collection>
@@ -101,6 +105,9 @@
 <Value name="17">
 <Value>Status</Value>
 </Value>
+<Value name="18">
+<Value>LeverAdresTekst</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml
===================================================================
diff -u -r38803 -r50282
--- WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 38803)
+++ WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 50282)
@@ -51,6 +51,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Geproduceerd">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
+<Implementation><![CDATA[	Quit "VoldoendeVoorraad"
+]]></Implementation>
+</Method>
+
+<Method name="WachtenOpProductie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
+<Implementation><![CDATA[	Quit "NietInVoorraad"
+]]></Implementation>
+</Method>
+
 <Method name="NietInVoorraad">
 <ClassMethod>1</ClassMethod>
 <ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderUitzondering.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderUitzondering.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderUitzondering.cls.xml	(revision 50282)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderUitzondering">
+<Super>AX.Uitgaand.EC.impl.CorrelateHeader</Super>
+
+<Method name="GeefECBestandsNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "KlantUitzAssortiment"
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Generator=##class(AX.Uitgaand.EC.AssortimentAX.impl.GenerateUitzondering).%New(ExportDefaults)
+	Do Generator.Verwerk(..PadEnFile)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/KlantenAX/impl/CorrelateHeaderKlanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/CorrelateHeaderKlanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/CorrelateHeaderKlanten.cls.xml	(revision 50282)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.impl.CorrelateHeaderKlanten">
+<Super>AX.Uitgaand.EC.impl.CorrelateHeader</Super>
+
+<Method name="GeefECBestandsNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Klanten"
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Generator=##class(AX.Uitgaand.EC.KlantenAX.impl.GenerateKlanten).%New(ExportDefaults)
+	Do Generator.Verwerk(..PadEnFile)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/Testing.cls.xml
===================================================================
diff -u -r40850 -r50282
--- AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 40850)
+++ AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 50282)
@@ -37,7 +37,6 @@
 	Do ..Leveringen(KlantId)
 	Do ..Leveringen(KlantId,Periode)
 	Do ..Offertes(KlantId,Periode)
-	
 	Do ..Historiek(KlantId)
 ]]></Implementation>
 </Method>
@@ -47,28 +46,33 @@
 d ##class(AX.Uitgaand.EC.Data.impl.Testing).Doc()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	
 	Set request=##class(WS.Vhisie4.KlantDocument.GeefDocumentRequest).%New()
 	Set request.Header.KlantId=1736
-	Set request.Header.Taal="N"
+	Set request.Header.Taal="F"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 
-	Set request.DocumentId=591298
-	Set request.DocumentType="Factuur"
+	Set request.DocumentId="VO1800141169"
+	Set request.DocumentType="Order"
 	Set request.ResultaatType="PDF"
 	;Set request.DocumentId=315652
 	;Set request.DocumentType="Levering"
 	
-	Set request.DocumentId=166946
-	Set request.DocumentType="Order"
+	Set request.DocumentId="VC123339"
+	Set request.DocumentType="Factuur"
 	;Set request.DocumentId="573781"
 	;Set request.DocumentType="Offerte"
 
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
+
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 	Set dto=bl.GeefDocument(request)
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 
 	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Document request "_request.Header.KlantId_" "_request.DocumentId_".xml")
 	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Document response "_request.Header.KlantId_" "_request.DocumentId_".xml")
@@ -85,7 +89,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -107,7 +111,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -130,7 +134,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -151,7 +155,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -172,7 +176,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode=200
Index: AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml
===================================================================
diff -u -r48574 -r50282
--- AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 48574)
+++ AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 50282)
@@ -21,26 +21,67 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
-	Do ..VoerUitQuery()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQuery">
+<Method name="InitRecente">
+<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and INV.INVOICEDATE>'"_$ZD(VanafDatum,3)_"'" 
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="InitOpenstaande">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and TRANS.CLOSED='1900-01-01' "
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLVoorFactuurHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
 	Set SqlStatement = ""
-	_"select custinvoicetrans.* from CUSTINVOICETRANS "
-	_"join INVENTDIM on INVENTDIM.INVENTDIMID = CUSTINVOICETRANS.INVENTDIMID and INVENTDIM.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
-	_"join CUSTINVOICEJOUR on CUSTINVOICEJOUR.INVOICEID = CUSTINVOICETRANS.INVOICEID and CUSTINVOICEJOUR.INVOICEDATE = CUSTINVOICETRANS.INVOICEDATE and CUSTINVOICEJOUR.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
-	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = CUSTINVOICEJOUR.INVOICEPOSTALADDRESS "
-	_" where exists (select * from CUSTTRANS where CUSTTRANS.INVOICE = CUSTINVOICEJOUR.INVOICEID and CUSTTRANS.ACCOUNTNUM = CUSTINVOICEJOUR.INVOICEACCOUNT and CUSTTRANS.TRANSDATE = CUSTINVOICEJOUR.INVOICEDATE "
-	_"               and CUSTTRANS.VOUCHER = CUSTINVOICEJOUR.LEDGERVOUCHER and CUSTTRANS.CLOSED = '1900-01-01' and  CUSTTRANS.DATAAREAID = CUSTINVOICEJOUR.DATAAREAID)"
+	_"select INV.INVOICEID, INV.ORDERACCOUNT, INV.INVOICEACCOUNT, INV.INVOICEDATE, INV.DUEDATE, INVOICEAMOUNT,SUMTAX,INV.CURRENCYCODE,INV.CASHDISC, INV.CASHDISCDATE, "
+	_"     TRANS.CLOSED,TRANS.AMOUNTCUR,TRANS.SETTLEAMOUNTCUR"
+	_" from CUSTINVOICEJOUR as INV"
+	_" join salestable as ORD on ORD.salesid = INV.salesid "
+	_" join CUSTTRANS as TRANS on TRANS.INVOICE = INV.INVOICEID "
+	_"     and TRANS.ACCOUNTNUM = INV.INVOICEACCOUNT "
+	_"     and TRANS.TRANSDATE = INV.INVOICEDATE "
+	_"     and TRANS.VOUCHER = INV.LEDGERVOUCHER "
+	_"     and TRANS.DATAAREAID = INV.DATAAREAID "
+	Quit SqlStatement
+]]></Implementation>
+</Method>
 
-	
+<Method name="InitDetail">
+<FormalSpec>FactuurID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	; toevoegen aan ADUECoResAttributeCombination where InvLine.ItemId = Kenmerk.ItemId AND
+	Set SqlStatement = ""
+	_"select INVOICEID,InvLine.LINENUM,ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME,InvLine.ITEMID,ADMINPRODUCTNUMMER,DLVDATE,MCRDLVMODE,"
+	_"     InvLine.QTY,InvLine.SALESPRICE,InvLine.PRICEUNIT,InvLine.CURRENCYCODE,InvLine.LINEAMOUNT, SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,ProdNotes.Body as PRODREF,"
+	_"     ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
+	_" from CUSTINVOICETRANS as InvLine"
+	_" join SalesLine on SalesLine.InventTransId = InvLine.InventTransId and SalesLine.DataAreaId=InvLine.DataAreaId "
+	_" join SalesTable ORD on ORD.SalesId = SalesLine.SALESID"
+	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
+    _" join InventDim  on InventDim.InventDimId = InvLine.InventDimId "
+	_"      and InventDim.DataAreaId = InvLine.DataAreaId "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
+    _"   and InventDim.ConfigId<>'' "
+	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ADUBODYTYPE=5"
+	_" where InvLine.DataAreaID='vhbe' and InvLine.INVOICEID = '"_FactuurID_"' " ; specifieke factuur
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderExclusie.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderExclusie.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderExclusie.cls.xml	(revision 50282)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.AssortimentAX.impl.CorrelateHeaderExclusie">
+<Super>AX.Uitgaand.EC.impl.CorrelateHeader</Super>
+
+<Method name="GeefECBestandsNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Exclusions"
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Generator=##class(AX.Uitgaand.EC.AssortimentAX.impl.GenerateExclusie).%New(ExportDefaults)
+	Do Generator.Verwerk(..PadEnFile)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml
===================================================================
diff -u -r38803 -r50282
--- WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 38803)
+++ WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 50282)
@@ -59,6 +59,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="LeverAdresTekst">
+<Type>TECH.String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DocumentHoofdingState">
@@ -163,6 +167,9 @@
 <Value name="33">
 <Value>FactuurType</Value>
 </Value>
+<Value name="34">
+<Value>LeverAdresTekst</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/KlantenAX/impl/ExportProductHistoriek.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/KlantenAX/impl/ExportProductHistoriek.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/KlantenAX/impl/ExportProductHistoriek.cls.xml	(revision 50282)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.KlantenAX.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="Bestand">
+<Type>AX.Uitgaand.EC.impl.CorrelateHeader</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<ReturnType>AX.Uitgaand.EC.impl.CorrelateHeader</ReturnType>
+<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()
+	Quit ..Bestand
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.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")
+]]></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_KlantenAX_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="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=..Translator.GeefCustomerIDForAX(..KlantId)
+	Set pxHistItem.ProductID=..Translator.GeefItemIDForAX($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"
+	Do ..BuildBestand(Omschrijving)
+	Set sc=..Writer.OutputToFile(..Bestand.PadEnFile)
+	
+	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.GeefFormattedNewGenerationID())
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="BuildBestand">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<ReturnType>AX.Uitgaand.EC.impl.BestandVerwerker</ReturnType>
+<Implementation><![CDATA[
+	Set ..Bestand=##class(AX.Uitgaand.EC.impl.BestandVerwerker).%New()
+	Set ..Bestand.ECBestandsNaam=Omschrijving
+	Set ..Bestand.PadEnFile=..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[	Do ..Writer.EndRootElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml
===================================================================
diff -u -r49497 -r50282
--- WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 49497)
+++ WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 50282)
@@ -30,6 +30,11 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="PRNr">
+<Type>TECH.String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Property name="Afbeelding">
 <Type>TECH.String</Type>
 </Property>
@@ -38,33 +43,44 @@
 <FormalSpec>Taal:TECH.String</FormalSpec>
 <Implementation><![CDATA[
 	; Caching ingebouwd voor orders, leveringen en facturen omdat dezelfe producten meerdere keren voorkomen
-	
-	If '$D(^||ECCache("PROD",..ProductID))
+	If ..PRNr="" Set ..PRNr=..ProductID ; nodig voor AX wanneer 'Mode = A2'"
+	If '..PRNr||'($D(^KPR(..PRNr))||$D(^KPRO(..PRNr)))
 	{
+		Set ..ProductGroep="Verwijderd"
+		Set ..ProductSubGroep="Verwijderd"
+		Set ..KortTekst="Deleted"
+		Set ..ProductCode=""
+		Set ..ProductOmschrijving=""
+		Set ..Afbeelding=""
+	}
+	ElseIf '$D(^||ECCache("PROD",..PRNr))
+	{
 		Set ..ProductGroep=..BepaalProdGroep()
 		Set ..ProductSubGroep=..BepaalProdSubGroep()
 		Set ..KortTekst=..GeefKortTekst()	
 		Set ..ProductCode=..GeefProductCode()
 		Set ..ProductOmschrijving=..GeefOmschrijving(Taal)
 		Set ..Afbeelding=..GeefAfbeelding()
-		Set ^||ECCache("PROD",..ProductID)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
+		Set ^||ECCache("PROD",..PRNr)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
 	}
 	Else
 	{ 
-		Set lb=^||ECCache("PROD",..ProductID)
+		Set lb=^||ECCache("PROD",..PRNr)
 		Set ..ProductGroep=$LI(lb,1)
 		Set ..ProductSubGroep=$LI(lb,2)
 		Set ..KortTekst=$LI(lb,3)
 		Set ..ProductCode=$LI(lb,4)
 		Set ..ProductOmschrijving=$LI(lb,5)
 		Set ..Afbeelding=$LI(lb,6)
 	}
+	;w ..KortTekst
+	;r:..PRNr'=..ProductID k
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKortTekst">
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..ProductID,$$$KortTekst)
+<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..PRNr,$$$KortTekst)
 ]]></Implementation>
 </Method>
 
@@ -73,7 +89,7 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	;Omschrijving met kleur maar zonder FSC, vermits de FSC berekening te veel tijd vraagt
-	#dim Omschrijving As %String = ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..ProductID, Taal, "<br/>", 1)
+	Set Omschrijving=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..PRNr, Taal, "<br/>", 1)
 	Set:Omschrijving="" Omschrijving=" "
 	Quit Omschrijving
 ]]></Implementation>
@@ -82,18 +98,18 @@
 <Method name="GeefProductCode">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	If (..ProductGroep="Maatwerk")&&($P($G(^KPR(..ProductID,"G")),"\")'="") {
-		Quit $P(^KPR(..ProductID,"G"),"\")
+	If (..ProductGroep?1(1"TAX",1"KAD",1"PRG",1"GLA",1"LBX",1"TBX"))&&($P($G(^KPR(..PRNr,"G")),"\")'="") {
+		Quit $$BARCODE^HAD(..PRNr,"F") 
 	} Else {
-		Quit $$GetOrOld^PRODUKT(..ProductID,$$$IdentNummer)	
+		Quit $$GetOrOld^PRODUKT(..PRNr,$$$IdentNummer)	
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAfbeelding">
 <Implementation><![CDATA[
 	Set blImageLink=##class(BL.Prod.ImageLink).Instantiate()
-	Set URL=blImageLink.GetProductImageURL(..ProductID,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
+	Set URL=blImageLink.GetProductImageURL(..PRNr,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
 	Set Image=$S($ZCVT(URL,"U")["GENERIEK/":$P(URL,"/",$L(URL,"/")-1,$L(URL,"/")),1:$P(URL,"/",$L(URL,"/")))
 	Quit Image
 ]]></Implementation>
@@ -102,11 +118,10 @@
 <Method name="BepaalProdGroep">
 <ReturnType>WS.Vhisie4.KlantDocument.enu.ProductGroep</ReturnType>
 <Implementation><![CDATA[
-	Set PRNr=..ProductID
-	If '$D(^KPR(PRNr)) { 
+	If '$D(^KPR(..PRNr)) { 
 		Set ProdGrp="Verwijderd"
 	} Else {
-		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..ProductID)
+		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..PRNr)
 	}
 	Quit ProdGrp
 ]]></Implementation>
@@ -117,7 +132,7 @@
 <Implementation><![CDATA[
 	If ..ProductGroep=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag()
 	{
-		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..ProductID)
+		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..PRNr)
 	}
 	Else
 	{
@@ -143,6 +158,8 @@
 <State>ProductInfoState</State>
 <StreamLocation>^WS.Vhisie4.KlaF15E.ProductInfoS</StreamLocation>
 <Data name="ProductInfoState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>ProductGroep</Value>
 </Value>
@@ -164,6 +181,9 @@
 <Value name="7">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="8">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml
===================================================================
diff -u -r39315 -r50282
--- WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 50282)
@@ -71,6 +71,10 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="LeverAdresTekst">
+<Type>TECH.String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>FactuurLijnState</State>
@@ -198,6 +202,15 @@
 <Value name="40">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="41">
+<Value>PRNr</Value>
+</Value>
+<Value name="42">
+<Value>LeverAdres</Value>
+</Value>
+<Value name="43">
+<Value>LeverAdresTekst</Value>
+</Value>
 </Data>
 </Storage>
 </Class>