Index: AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Voorraad/impl/pxVoorraad.cls.xml	(revision 36472)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Voorraad.impl.pxVoorraad">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Product">
+<Type>%String</Type>
+</Property>
+
+<Property name="PraktischeVoorraad">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="Aantal"/>
+</Property>
+
+<Method name="InvullenMetData">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Product=PRNr
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/impl/ExportDefaults.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(revision 36472)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.ExportDefaults">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Pad">
+<Type>%String</Type>
+</Property>
+
+<Property name="BeperktAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="OldGenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="NewGenerationID">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Pad:%String,BeperktAantal:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Pad=$G(Pad,"F:\AX.EC")
+	Set ..BeperktAantal=$G(BeperktAantal,0)
+	Set ..Tijdstip=$zdt($H,3)
+	Set ..NewGenerationID=+$H
+	Set ..OldGenerationID=..NewGenerationID-1
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Gebruiker/impl/pxGebruiker.cls.xml	(revision 36472)
@@ -0,0 +1,161 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Gebruiker.impl.pxGebruiker">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="GebruikerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="LoginNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToegangGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Wachtwoord">
+<Type>%String</Type>
+</Property>
+
+<Property name="WachtwoordIntern">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Property name="MultiKlantGroep">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="KlantGroepID"/>
+<Parameter name="XMLNAME" value="ToegelatenKlantGroepen"/>
+</Property>
+
+<Property name="MultiKlanten">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="KlantID"/>
+<Parameter name="XMLNAME" value="ToegelatenKlanten"/>
+</Property>
+
+<Property name="Favorieten">
+<Type>pxFavoriet</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Favoriet"/>
+</Property>
+
+<Property name="DefaultKlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetData">
+<FormalSpec>rs:%ResultSet,GenerationID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..GebruikerID=rs.Data("ID")
+	Set ..LoginNaam=rs.Data("UserNaam")
+	Set ..ToegangGroep=rs.Data("ToegangGroep")
+	Set ..EmailAdres=rs.Data("EmailAdres")
+	Set ..Wachtwoord=..WWOneWayEncrypt("VH12HA") ; rs.Data("WachtWoord")
+	Set:$Random(100)>50 ..WachtwoordIntern=..WWBiDirectEncrypt("VH12HA") ; rs.Data("WachtWoordIntern")
+	Set ..Taal=rs.Data("Taal")
+	Set ..DefaultKlantID=rs.Data("DefaultKlant")
+	Do ..VoegToeKlanten(rs.Data("Klanten"),GenerationID)
+	Do ..VoegToeRegios(rs.Data("Regio"))
+	Do ..VoegToeFavorieten()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeFavorieten">
+<Implementation><![CDATA[
+	Quit:..ToegangGroep="INT"
+	Quit:..ToegangGroep="MAX"
+	Set it=..GeefFavorietenIterator()	
+	While it.HasNext()
+	{	Set rs=it.Next()
+		If ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment).IsVerkoopbaarProduct(rs.Data("Product"))=""
+		{
+			Do ..AddFavoriet(rs.Data("KlantNr"),rs.Data("Product"))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddFavoriet">
+<FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set px=##class(pxFavoriet).%New()
+	Set px.KlantID=KLNr
+	Set px.ProductID=PRNr
+	Do ..Favorieten.Insert(px)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFavorietenIterator">
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT KlantNr,Product,Datum	FROM Derde_EC.Favorieten WHERE ToegangID=?")
+	Set sc=rs.Execute(..GebruikerID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeRegios">
+<FormalSpec>lbRegios:%List</FormalSpec>
+<Implementation><![CDATA[
+	For I=1:1:$LL(lbRegios)
+	{
+		Set Regio=$LG(lbRegios,I)
+		Continue:Regio=""
+		Do ..MultiKlantGroep.Insert(Regio)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKlanten">
+<FormalSpec>lbKlanten:%List,GenerationID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $LL(lbKlanten)>1
+	{
+		For I=1:1:$LL(lbKlanten)
+		{
+			Set KLNr=$LG(lbKlanten,I)
+			Continue:KLNr=""
+			Continue:'##class(AX.Uitgaand.EC.Klanten.impl.Klanten).BestaatKlant(GenerationID,KLNr)
+			Do ..MultiKlanten.Insert(KLNr)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WWOneWayEncrypt">
+<FormalSpec>Wachtwoord</FormalSpec>
+<Implementation><![CDATA[
+	Set WachtWoordMD5=$System.Encryption.MD5Encode(Wachtwoord)
+ 	Set WachtWoordMD5Base64=$System.Encryption.Base64Encode(WachtWoordMD5)
+
+	Quit WachtWoordMD5Base64
+]]></Implementation>
+</Method>
+
+<Method name="WWBiDirectEncrypt">
+<FormalSpec>Wachtwoord</FormalSpec>
+<Implementation><![CDATA[
+	Set WachtWoordEncode=$System.Encryption.AESEncode(Wachtwoord,##class(BL.EC.Toegang).#EncryptKey)
+	Set WachtWoordBase64=$System.Encryption.Base64Encode(WachtWoordEncode)
+	Quit WachtWoordBase64
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(revision 36472)
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.ExportKlant">
+<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="BeperktAantalProducten">
+<Type>%Integer</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">
+<Description>
+d ##class(AX.Uitgaand.EC.Assortiment.impl.ExportKlant).%New(,10).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantalProducten=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set KLNr=rs.Data("Klant")
+	
+		Continue:'..IsGeldigeKlant(KLNr)
+		Do ..ExportKlant(KLNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OpenOutput(KLNr)
+	
+	Set it=..ProductIterator(KLNr)
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set PRNr=rs.Data("Product")
+		Continue:'..IsGeldigProduct(KLNr,PRNr)
+		Do ..ExportProduct(KLNr,PRNr)
+	}
+	
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Distinct Klant from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where GenerationID=?")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ProductIterator">
+<FormalSpec>KLNr:%String</FormalSpec>
+<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=?")
+	
+ 	Set sc=rs.Execute(KLNr,..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ExportProduct">
+<FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set Proxy=..BuildProxy(KLNr,PRNr)
+		Do ..Writer.Object(Proxy,"Product")
+		Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigProduct">
+<FormalSpec>KLNr:%String,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>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
+	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"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	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)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/KlantAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/CodexPrijzen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/pxHistoriekLijst.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxHistoriekLijst.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxHistoriekLijst.cls.xml	(revision 36472)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxHistoriekLijst">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Historiek</Default>
+</Parameter>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SessionID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Lijst">
+<Type>pxHistoriekItem</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Item"/>
+<Parameter name="XMLNAME" value="Lijst"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Data/impl/pxHistoriekItem.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxHistoriekItem.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxHistoriekItem.cls.xml	(revision 36472)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxHistoriekItem">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="JaarAfname">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LaatsteDatum">
+<Type>%Date</Type>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/ExportKlantUitz.cls.xml	(revision 36472)
@@ -0,0 +1,176 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.ExportKlantUitz">
+<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="BeperktAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KLNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.ExportKlantUitz).%New(,10).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantal=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Set ..DomeinID="VH"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set ..KLNr=rs.Data("Klant")
+	
+		Continue:'..IsGeldigeKlant()
+		Do ..ExportKlant()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	
+	Set it=..ProductIterator()
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set ..PRNr=rs.Data("Product")
+		Continue:'..IsGeldigProduct()
+		Do ..ExportProduct(rs.Data("ID"))
+	}
+	
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Distinct Klant from AX_Uitgaand_EC_Prijzen_impl.KlantPrijzen where GenerationID=? ")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ProductIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select"_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" ID, Product from AX_Uitgaand_EC_Prijzen_impl.KlantPrijzen where Klant=? and GenerationID=?")
+	
+ 	Set sc=rs.Execute(..KLNr,..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ExportProduct">
+<FormalSpec>PrijsUitzID:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set Proxy=..BuildProxy(PrijsUitzID)
+		;Write PRNr,! Do Proxy.XMLExport()
+		Do ..Writer.Object(Proxy,"PrijsUitz")
+		Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigProduct">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ''$D(^KPR(..PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKlant">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>PrijsUitzID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Proxy=##class(pxKlantPrijsUitz).%New()
+	Do Proxy.InvullenMetData(..KLNr,..PRNr)
+	Do Proxy.InvullenMetPrijsData(PrijsUitzID)
+
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="KlantUitzPrijzen"
+	Set BestandsNaam=Omschrijving_" "_..KLNr_".xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	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)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Voorraad/impl/ExportVoorraad.cls.xml	(revision 36472)
@@ -0,0 +1,211 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad">
+<Description>
+Prijsuitzonderingen per klant, als de codexprijs afwijkt van de klantprijs wordt de klantprijs opgeslagen</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Writer">
+<Type>%XML.Writer</Type>
+</Property>
+
+<Property name="ExporteerAlleProducten">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="PraktischeVoorraad">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GemiddeldeAfname">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VoorraadVorigNivo">
+<Type>VoorraadVorigNivo</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DomeinID">
+<Type>%String</Type>
+</Property>
+
+<Property name="VoorraadIsVeranderd">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportAll()
+d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New().ExportVeranderde()</Description>
+<FormalSpec>Pad:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..FileName=$$FULLPAD^vhDEV($G(Pad,"F:\AX.EC"),"EC Voorraad")
+	Set ..DomeinID="VH"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Set ..ExporteerAlleProducten=1
+	Do ..ExportVeranderde()
+]]></Implementation>
+</Method>
+
+<Method name="ExportVeranderde">
+<Implementation><![CDATA[
+	Set it=..GeefProductIterator()
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set ..PRNr=rs.Data("Product")
+		Continue:'..IsGeldig()
+		Do ..BepaalVoorraadNivo()
+		Continue:'..IsVoorraadGewijzigd()
+		Do ..OpslaanVoorraadNivo()
+		Do ..ExportVoorraad()
+		}
+	Do:..VoorraadIsVeranderd ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIterator">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep='Industrie'")
+	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVoorraadNivo">
+<Implementation><![CDATA[
+	Do ..OpenVoorraadVorigNivo()
+	Set ..PraktischeVoorraad=..GeefPraktischeVoorraad()
+	Set ..GemiddeldeAfname=..GeefGemiddeldeAfname()
+]]></Implementation>
+</Method>
+
+<Method name="GeefPraktischeVoorraad">
+<Implementation><![CDATA[
+ ; Berekening zou moeten zijn : VoorraadVanHoecke - KlantOrders (incl transfer) + MAX( KlantOrdersHalffabrikaten - (VoorraadHalux + TransferOrders),0)
+  ; maar er is een fout in de TheoretischeStockHalux (reeds bij PraktischeStockHalux) als er met dimensie wordt gewerkt
+ 	If $$$ProductGet(..PRNr,$$$StockType)=1 
+	{
+		Set StockNivo=##class(APPS.common.StockNiveauServiceFactory).Maak(..PRNr)
+		Set PraktischeVoorraad=StockNivo.GeefPraktischeStock()
+		Set VoorraadHalux=+$J(StockNivo.GeefTheoretischeStockHalux(),0,0)
+		Set:VoorraadHalux<0 PraktischeVoorraad=PraktischeVoorraad-VoorraadHalux
+		Set:PraktischeVoorraad<0 PraktischeVoorraad=0
+		/*
+		If ..PRNr=888048
+		{
+			w "VH Fys : ",StockNivo.GeefFysischeStock(),!
+			w "VH Prak: ",StockNivo.GeefPraktischeStock(),!
+			w "HA Fys : ",StockNivo.GeefFysischeStockHalux(),!
+			w "HA Prak: ",StockNivo.GeefPraktischeStockHalux(),!
+			w "HA Theo: ",StockNivo.GeefTheoretischeStockHalux(),!
+		Write !,PraktischeVoorraad,!
+		}
+		*/
+	}
+	Else 
+	{
+		Set PraktischeVoorraad=0
+	}
+	Quit PraktischeVoorraad
+]]></Implementation>
+</Method>
+
+<Method name="GeefGemiddeldeAfname">
+<Implementation><![CDATA[	Quit $P($P(^KPR(..PRNr,1),"\",21),"#")
+]]></Implementation>
+</Method>
+
+<Method name="OpenVoorraadVorigNivo">
+<Implementation><![CDATA[
+	Set ..VoorraadVorigNivo=##class(VoorraadVorigNivo).%OpenId(..PRNr)
+	Set:'$IsObject(..VoorraadVorigNivo) ..VoorraadVorigNivo=##class(VoorraadVorigNivo).%New(..PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanVoorraadNivo">
+<Implementation><![CDATA[
+	Set ..VoorraadVorigNivo.PraktischeVoorraad=..PraktischeVoorraad
+	Set ..VoorraadVorigNivo.AanmaakTijdstip=$zdt($H,3)
+	Do ..VoorraadVorigNivo.Save()
+]]></Implementation>
+</Method>
+
+<Method name="IsVoorraadGewijzigd">
+<Implementation><![CDATA[
+	Quit:..ExporteerAlleProducten 1
+	Quit ..VoorraadVorigNivo.PraktischeVoorraad'=..PraktischeVoorraad
+]]></Implementation>
+</Method>
+
+<Method name="ExportVoorraad">
+<Implementation><![CDATA[
+	If '..VoorraadIsVeranderd {
+		Do ..OpenOutput()
+		Set ..VoorraadIsVeranderd=1
+	}		
+	Set Proxy=..BuildProxy()
+	Do ..Writer.Object(Proxy,"Voorraad")
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $D(^KPR(..PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<Implementation><![CDATA[
+	#dim CodexGroep As BL.Legacy.enu.CodexType
+	#dim Codex as DOM.VKP.enu.PrijsCodex
+	Set Proxy=##class(pxVoorraad).%New()
+	Do Proxy.InvullenMetData(..PRNr)
+	Set Proxy.PraktischeVoorraad=..PraktischeVoorraad
+	;Set Proxy.GemiddeldeAfname=..GemiddeldeAfname
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set sc=..Writer.OutputToFile(..FileName_" "_$tr($zdt($H,8),":")_".xml")
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement("Voorraden")
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("AlleProducten")
+	Do ..Writer.Write(..ExporteerAlleProducten)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[	Do ..Writer.EndRootElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/BasisAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/pxExportSamenvatting.cls.xml	(revision 36472)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.impl.pxExportSamenvatting">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Bestandsnaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalRecords">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="BeginTijd">
+<Type>%TimeStamp</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="EindeTijd">
+<Type>%TimeStamp</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+<Calculated>1</Calculated>
+</Property>
+
+<Method name="TijdGet">
+<Implementation><![CDATA[	Quit $$DIFFTIME^vhLib.DataTypes($zdth(..BeginTijd,3),$zdth(..EindeTijd,3))
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/ExportAssets.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml	(revision 36472)
@@ -0,0 +1,152 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.Klanten">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="CodexPerGroep">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="KATPrijsGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="BusinessType">
+<Type>DOM.VKP.enu.BusinessType</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrijsSleutel">
+<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="GeefCodex">
+<Description>
+(VALUELIST = ";IP;KS;HAN;CONS");</Description>
+<FormalSpec>CodexGroep:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.PrijsCodex</ReturnType>
+<Implementation><![CDATA[	Quit ..CodexPerGroep.GetAt(CodexGroep)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCodexSleutel">
+<Implementation><![CDATA[	Quit ..StelCodexSleutelSamen(..KATPrijsGroep, ..BusinessType, ..GeefCodex(##class(BL.Legacy.enu.CodexType).Standaard()), ..GeefCodex(##class(BL.Legacy.enu.CodexType).Orgalux()), ..GeefCodex(##class(BL.Legacy.enu.CodexType).TAOR()))
+]]></Implementation>
+</Method>
+
+<Method name="StelCodexSleutelSamen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PrijsGroep:%String,BusinessType:DOM.VKP.enu.BusinessType,CodexStd:DOM.VKP.enu.PrijsCodex,CodexOL:DOM.VKP.enu.PrijsCodex,CodexTAOR:DOM.VKP.enu.PrijsCodex</FormalSpec>
+<Implementation><![CDATA[	Quit ..TranslatePrijsGroep(PrijsGroep)_..TranslateBusiness(BusinessType)_CodexStd_CodexOL_CodexTAOR
+]]></Implementation>
+</Method>
+
+<Method name="TranslatePrijsGroep">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PrijsGroep:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $ZCVT($E(PrijsGroep,1,2),"U")
+]]></Implementation>
+</Method>
+
+<Method name="TranslateBusiness">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BusinessType:DOM.VKP.enu.BusinessType</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If BusinessType=##class(DOM.VKP.enu.BusinessType).B2B()
+	{
+		Set Type="B"
+	}
+	Else
+	{
+		Set Type="C"
+	}
+	Quit $ZCVT(Type,"U")
+]]></Implementation>
+</Method>
+
+<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>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand.EC.Kla7BD6.KlantenD</DataLocation>
+<DefaultData>KlantenDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand.EC.Kla7BD6.KlantenD</IdLocation>
+<IndexLocation>^AX.Uitgaand.EC.Kla7BD6.KlantenI</IndexLocation>
+<StreamLocation>^AX.Uitgaand.EC.Kla7BD6.KlantenS</StreamLocation>
+<Data name="CodexPerGroep">
+<Attribute>CodexPerGroep</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"CodexPerGroep"</Subscript>
+</Data>
+<Data name="KlantenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>KATPrijsGroep</Value>
+</Value>
+<Value name="3">
+<Value>BusinessType</Value>
+</Value>
+<Value name="4">
+<Value>Munt</Value>
+</Value>
+<Value name="5">
+<Value>AssortimentGroep</Value>
+</Value>
+<Value name="6">
+<Value>PrijsSleutel</Value>
+</Value>
+<Value name="7">
+<Value>AanmaakTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/ExportCodexPerProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/ExportCodexPerProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/ExportCodexPerProduct.cls.xml	(revision 36472)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.ExportCodexPerProduct">
+<Description>
+Prijsuitzonderingen per klant, als de codexprijs afwijkt van de klantprijs wordt de klantprijs opgeslagen</Description>
+<Super>ExportCodex</Super>
+
+<Property name="FileName">
+<Type>%String</Type>
+</Property>
+
+<Property name="Writer">
+<Type>%XML.Writer</Type>
+</Property>
+
+<Property name="BeperktAantalProducten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="PrijsGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="BusinessType">
+<Type>DOM.VKP.enu.BusinessType</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="BeslagCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="OrgaluxCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="TAORCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="PrijsSleutel">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="GebruiktePrijsSleutels">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DomeinID">
+<Type>%String</Type>
+</Property>
+
+<Method name="ExportAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.ExportCodexPerProduct).%New(,10).ExportAll()</Description>
+<Implementation><![CDATA[
+	Set it=..GeefProductIterator()
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set ..PRNr=rs.Data("Product")
+		Continue:'..IsGeldig()
+		Do ..OpenOutput()
+		Do ..ExportCodexen()
+		Do ..CloseOutput()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="CodexPrijzen"
+	Set BestandsNaam=Omschrijving_" "_..PRNr_".xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(revision 36472)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.ProductValidator">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</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()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InConfigurator">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Quit:PRNr'?4.9N 0
+	Quit:'$D(^KPR(PRNr)) 0
+	Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
+	Quit:GenTyp="TBX" 1
+	Quit:GenTyp="LBX" 1
+	Quit:GenTyp="TAO" 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="InAssortiment">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Quit:PRNr'?4.9N 0
+	Quit:'$D(^KPR(PRNr)) 0
+	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..KlantID) 1
+	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..AssortimentGroep) 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<Implementation><![CDATA[
+	Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..GenerationID_"||"_..KlantID)
+	Quit Klant.AssortimentGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/ExportProducten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/Tellingen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml	(revision 36472)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Assortiment.impl.pxBasisProduct">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakkingGroot">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VerpakkingNorm">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalIsVeelvoud">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="MinBestelhoeveelheid">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Leveringstermijn">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LeveringstermijnEenheid">
+<Description>
+A: Arbeidsdagen, D: Dagen, W: Weken</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="StockNietStock">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetProductData">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ProductSetObjectId(PRNr)
+	Set ..ProductID=PRNr
+	Set ..KortTekst=..Product.KortTekst
+	Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
+	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
+	Set ..LeveringstermijnEenheid="W"
+	Set ..StockNietStock=..Product.StockNietStock
+	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
+	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
+	Set ..AantalIsVeelvoud=..GeefVeelvoud()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVeelvoud">
+<Implementation><![CDATA[
+	#dim VerkoopPerStuk as %String
+	Set VerkoopPerStuk=..Product.Prijs.VerkoopPerStuk
+	If VerkoopPerStuk
+	{
+		Set Veelvoud=1
+	}
+	else
+	{
+		If ..Product.Prijs.KleinVerpakking
+		{
+			Set Veelvoud=..Product.Prijs.KleinVerpakking
+		}
+		elseif ..Product.Prijs.NormaleVerpakking
+		{
+			Set Veelvoud=..Product.Prijs.NormaleVerpakking
+		}
+		else
+		{
+			Set Veelvoud=..Product.Prijs.GrootVerpakking
+		}
+	}
+	Quit Veelvoud
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/ExportCodex.cls.xml	(revision 36472)
@@ -0,0 +1,270 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.ExportCodex">
+<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="BeperktAantalProducten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="CodexGroep">
+<Type>BL.Legacy.enu.CodexType</Type>
+</Property>
+
+<Property name="PrijsGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="BusinessType">
+<Type>DOM.VKP.enu.BusinessType</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="BeslagCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="OrgaluxCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="TAORCodex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="PrijsSleutel">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="GebruiktePrijsSleutels">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DomeinID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.ExportCodex).%New(,).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantalProducten=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Do ..BepaalGebruikteCodexen()
+	Set ..DomeinID="VH"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	Set it=..GeefProductIterator()
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set ..PRNr=rs.Data("Product")
+		Set ..CodexGroep=##class(AX.Uitgaand.EC.Prijzen.impl.GenerateCodexPrijzen).CodexGroepToProperCase(rs.Data("CodexGroep"))
+		Continue:'..IsGeldig()
+		Do ..ExportCodexen()
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductIterator">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product, CodexGroep from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where  GenerationID=?")
+	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGebruikteCodexen">
+<Implementation><![CDATA[
+	Set it=..GeefPrijsSleutelIterator()
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set ..GebruiktePrijsSleutels(rs.Data("PrijsSleutel"))=""
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijsSleutelIterator">
+<Implementation><![CDATA[
+	Set rs=##class(%ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT PrijsSleutel from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=?")
+	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ExportCodexen">
+<Implementation><![CDATA[
+	For PrijsGroep="KS","Industrie","Handel"
+	{
+		Set ..PrijsGroep=PrijsGroep
+		For BusinessType=##class(DOM.VKP.enu.BusinessType).B2B(),##class(DOM.VKP.enu.BusinessType).B2C()
+		{
+			Set ..BusinessType=BusinessType
+			For Munt=##class(DOM.enu.Munt).EUR()
+			{
+				Set ..Munt=Munt
+				For BeslagCodex="C","P","L","R","S","B","G"
+				{
+					Set ..BeslagCodex=BeslagCodex
+					For OrgaluxCodex="C","P","L","R","S","B","G"
+					{
+						Set ..OrgaluxCodex=OrgaluxCodex
+						For TAORCodex="C","P","L","R","S","B","G"
+						{
+							Set ..TAORCodex=TAORCodex
+							Set ..PrijsSleutel=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).StelCodexSleutelSamen(..PrijsGroep,..BusinessType,..BeslagCodex,..OrgaluxCodex,..TAORCodex)
+							Continue:$D(..GebruiktePrijsSleutels)&&('$D(..GebruiktePrijsSleutels(..PrijsSleutel)))
+					
+							Do ..ExportPrijs()
+						}
+					}
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalBusinessTypeUitPrijsSleutel">
+<Implementation><![CDATA[
+	Set ..BusinessType="B2B"
+	Set:$E(..PrijsSleutel,3)="C" ..BusinessType="B2C"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPrijsGroepUitPrijsSleutel">
+<Implementation><![CDATA[
+	Set ..PrijsGroep="KS"
+	Set:$E(..PrijsSleutel,1,2)="Ha" ..PrijsGroep="Handel"
+	Set:$E(..PrijsSleutel,1,2)="In" ..PrijsGroep="Industrie"
+]]></Implementation>
+</Method>
+
+<Method name="ExportPrijs">
+<Implementation><![CDATA[
+		Set Proxy=..BuildProxy()
+		If $isObject(Proxy)
+		{
+			Do ..Writer.Object(Proxy,"Product")
+		}
+		else
+		{
+			Write "Product "_..PRNr_" heeft geen prijs",!
+			Do Proxy.XMLExport()
+		}
+		Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $D(^KPR(..PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<Implementation><![CDATA[
+	#dim CodexGroep As BL.Legacy.enu.CodexType
+	#dim Codex as DOM.VKP.enu.PrijsCodex
+	Set Proxy=##class(pxCodexProduct).%New()
+	Do Proxy.InvullenMetProductData(..PRNr)
+	Set Proxy.CodexGroep=..CodexGroep
+	Set Proxy.Codex=..GeefCodex(Proxy.CodexGroep)
+	Set Proxy.PrijsGroep=..PrijsGroep
+	Set Proxy.BusinessType=..BusinessType
+	Set Proxy.PrijsSleutel=..PrijsSleutel
+	Do Proxy.InvullenMetPrijsData(..Munt)
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="GeefCodex">
+<FormalSpec>CodexGroep:BL.Legacy.enu.CodexType</FormalSpec>
+<ReturnType>DOM.VKP.enu.PrijsCodex</ReturnType>
+<Implementation><![CDATA[
+	If CodexGroep=##class(BL.Legacy.enu.CodexType).TAOR()
+	{
+			Set Codex=..TAORCodex
+	}
+	ElseIf CodexGroep=##class(BL.Legacy.enu.CodexType).Orgalux()
+	{
+			Set Codex=..OrgaluxCodex
+	}
+	Else
+	{
+			Set Codex=..BeslagCodex
+	}
+	Quit Codex
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="CodexPrijzen"
+	Set BestandsNaam=Omschrijving_" ALL.xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(revision 36472)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.ExportBasis">
+<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="BeperktAantalProducten">
+<Type>%Integer</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">
+<Description>
+d ##class(AX.Uitgaand.EC.Assortiment.impl.ExportBasis).%New(,10).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantalProducten=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	For AssortimentGroep="KS","Industrie","Handel","Consument" 
+	{
+					Do ..OpenOutput(AssortimentGroep)
+					Set it=..AssortimentsGroepIterator(AssortimentGroep)
+					Do ..ExportAssortiment(it)
+					Do ..CloseOutput()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ExportAssortiment">
+<FormalSpec>it:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	While it.HasNext() {
+		Set rs=it.Next()
+		Set PRNr=rs.Data("Product")
+		Continue:'..IsGeldig(PRNr)
+		Do ..ExportProduct(PRNr)
+	}
+]]></Implementation>
+</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 it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ExportProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set Proxy=..BuildProxy(PRNr)
+		;Write PRNr,! Do Proxy.XMLExport()
+		Do ..ExportSamenvatting.Increment()
+		Do ..Writer.Object(Proxy,"Product")
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ''$D(^KPR(PRNr))
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Proxy=##class(pxBasisProduct).%New()
+	Do Proxy.InvullenMetProductData(PRNr)
+	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"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	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)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijn.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijn.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijn.cls.xml	(revision 36472)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxOpenstaandeOrderLijn">
+<IncludeCode>BL.EC.Common,Prod.Product</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Order</Default>
+</Parameter>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GevraagdeLeverDatum">
+<Description>
+Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd</Description>
+<Type>%Date</Type>
+</Property>
+
+<Property name="ProductGroep">
+<Description>
+Maatwerk, Beslag, Orgalux</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerwachteLeverDatum">
+<Description>
+Verwachte (of voorziene) leverdatum</Description>
+<Type>%Date</Type>
+</Property>
+
+<Property name="BackOrder">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ProductOmschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="Commentaar">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="NettoPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="GrootteOrde">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
+<Property name="InAssortiment">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="InConfigurator">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Type">
+<Description>
+Tekst, Levering, Retour</Description>
+<Type>%String</Type>
+</Property>
+
+<Method name="VulAanMetProduct">
+<FormalSpec>Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ProductGroep=..BepaalProdGroep()
+	Set ..KortTekst=..GeefKortTekst()	
+	Set ..ProductCode=..GeefProductCode()
+	Set ..ProductOmschrijving=..GeefOmschrijving(Taal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortTekst">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..ProductID,$$$KortTekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<FormalSpec>Taal:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Omschrijving met kleur maar zonder FSC, vermits de FSC berekening te veel tijd vraagt
+	Quit ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..ProductID, Taal, "<br/>", 1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (..ProductGroep="Maatwerk")&&($P($G(^KPR(..ProductID,"G")),"\")'="") {
+		Quit $P(^KPR(..ProductID,"G"),"\")
+	} Else {
+		Quit $$GetOrOld^PRODUKT(..ProductID,$$$IdentNummer)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProdGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set PRNr=..ProductID
+	If '$D(^KPR(PRNr)) { 
+		Set ProdGrp="Verwijderd"
+	} ElseIf ($P(^KPR(PRNr,0),"\",3)?4.8N)&&$D(^KPR(PRNr,"J6332")){
+		Set ProdGrp="Maatwerk"
+	} ElseIf $$ISORGAL^ORGALUX(PRNr) {
+		Set ProdGrp="Orgalux"
+	} Else {
+		Set ProdGrp="Beslag"
+	}
+	Quit ProdGrp
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxKlantGroep.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxKlantGroep.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlantGroep.cls.xml	(revision 36472)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxKlantGroep">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantGroepID">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetKlantData">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..KlantSetObjectId(KLNr)
+
+	Set ..KlantID=KLNr
+	Set ..KlantGroepID=..Klant.Sektor
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/pxProduct.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Klanten/impl/pxMedewerker.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxMedewerker.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxMedewerker.cls.xml	(revision 36472)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxMedewerker">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="MedewerkerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Initialen">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Functie">
+<Type>%String</Type>
+</Property>
+
+<Property name="TelefoonNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Property name="EmailAdresMetNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="FotoURL">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetKlantData">
+<FormalSpec>IPNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..MedewerkerID=IPNr
+	Set ..Naam=$$USERNAME^vhUSER(IPNr,1) 
+	Set ..Initialen=$$USERNAME^vhUSER(IPNr,-1) 
+	Set ..EmailAdres=$$USERNAME^vhUSER(IPNr,"@") 
+	Set ..EmailAdresMetNaam=$$USERNAME^vhUSER(IPNr,"@1") 
+	Set ..FotoURL=$ZCVT($$USERNAME^vhUSER(IPNr,1)_".jpg","O","URL")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.HistoriekOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Historiek">
+<Type>pxHistoriek</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).test(1736)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID</FormalSpec>
+<Implementation><![CDATA[
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New($G(KlantID,4875),+$H,"sessie")
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	D bl.Historiek.XMLExport(,"literal,indent")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,GenerationID:%String,SessionID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..GenerationID=GenerationID
+	
+	Set ..Historiek=##class(pxHistoriek).%New()
+	Set ..Historiek.GenerationID=GenerationID
+	Set ..Historiek.SessionID=SessionID
+	Set ..Historiek.KlantID=KlantID
+	Set ..AssortimentGroep=..GeefAssortimentGroep()
+	Do ..GenereerLijst()	
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<Implementation><![CDATA[	Quit ..Historiek
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Implementation><![CDATA[
+ 	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)
+	. . . . Do ..ToevoegenHistoriek(HistRec)
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenHistoriek">
+<FormalSpec>HistRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxItem=##class(pxHistoriekItem).%New()
+	Set pxItem.ProductID=$P(HistRec,"\",15)
+	Set pxItem.JaarAfname=$P(HistRec,"\",3)
+	Set pxItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
+	Do ..Historiek.Lijst.Insert(pxItem)
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Quit:PRNr'?4.9N 0
+	Quit:'$D(^KPR(PRNr)) 0
+	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..KlantID) 1
+	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..AssortimentGroep) 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<Implementation><![CDATA[
+	Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..GenerationID_"||"_..KlantID)
+	Quit Klant.AssortimentGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijst.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijst.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderLijst.cls.xml	(revision 36472)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxOpenstaandeOrderLijst">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>OpenstaandeOrders</Default>
+</Parameter>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SessionID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Lijst">
+<Type>pxOpenstaandeOrderItem</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Item"/>
+<Parameter name="XMLNAME" value="Lijst"/>
+</Property>
+</Class>
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/KlantPrijzen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(revision 36472)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.impl.ExportSamenvatting">
+<Description>
+Verzamelen van de export bestanden en het aantal records per bestand</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Actueel">
+<Type>pxExportSamenvatting</Type>
+</Property>
+
+<Property name="Bestandslijst">
+<Type>pxExportSamenvatting</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Writer">
+<Type>%XML.Writer</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</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="NieuwBestand">
+<FormalSpec>Omschrijving:%String,Bestandsnaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Actueel=##class(pxExportSamenvatting).%New()
+	Set ..Actueel.Omschrijving=Omschrijving
+	Set ..Actueel.Bestandsnaam=Bestandsnaam
+	Set ..Actueel.BeginTijd=$ZDT($H,3)
+]]></Implementation>
+</Method>
+
+<Method name="SluitBestand">
+<Implementation><![CDATA[
+	Set ..Actueel.EindeTijd=$ZDT($H,3)
+	Do ..Bestandslijst.Insert(..Actueel)
+	Set ..Actueel=""
+]]></Implementation>
+</Method>
+
+<Method name="Increment">
+<Implementation><![CDATA[	Set ..Actueel.AantalRecords=..Actueel.AantalRecords+1
+]]></Implementation>
+</Method>
+
+<Method name="Export">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	Set it=..BestandsIterator()
+	While it.HasNext()
+	{
+		Set pxBestand=it.Next()
+		Do ..Writer.Object(pxBestand,"BestandSamenvatting")
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="BestandsIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set it=##class(TECH.ListIterator).%New(..Bestandslijst)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,"ExportSamenvatting.xml"))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement("ExportSamenvatting")
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[	Do ..Writer.EndRootElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Node">
+<Type>%String</Type>
+</Property>
+
+<Property name="GlobalData">
+<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>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.FactuurID=$LG(lbHoofding,4)
+	Set FactuurRec=$LG(lbHoofding,7)
+	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
+	Set pxHoofding.VervalDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",3),"DK")
+	Set pxHoofding.DocType=$S($LG(lbHoofding)="P":"N",1:$P(FactuurRec,"\",2))
+	If $D(^KKL(^KK1(..KlantID),pxHoofding.FactuurID)) { ; Is nog openstaand
+	 Set pxHoofding.OpenstaandBedrag=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",5)
+	 Set pxHoofding.AantalRappels=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",8)
+	}
+
+	
+	;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	;Set pxHoofding.InternMedewerker=""
+	;Set pxHoofding.ExterneMedewerker=""
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+</Method>
+
+<Method name="BepaalGlobal">
+<FormalSpec>FactuurProforma:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..FactuurProforma=FactuurProforma
+	If FactuurProforma="P" { 
+		Set ..GlobalData="^KFAP"
+		Set ..GlobalIndex="^KFAP1"
+	}Else{
+		Set ..GlobalData="^KFA"
+		Set ..GlobalIndex="^KFA1"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<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=""
+	Set ..Node="F"
+	
+	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 '= "")
+	{
+		#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 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
+		
+		Set HoofdingVolgNr=$I(^||ECCache("D"))
+		Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,ORDNr,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3)))
+		Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
+		Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-1)+1)=HoofdingVolgNr
+
+		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("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+				Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
+				}
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="CheckFactuur">
+<FormalSpec>FAKNr,Periode</FormalSpec>
+<Implementation><![CDATA[
+	Quit:Periode="" $D(^KKL(^KK1(..KlantID),FAKNr))>0 ; alleen openstande
+	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>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/Tellingen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.PakketRefOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxPakketRefLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.PakketRefOphalen).test()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String=4875</FormalSpec>
+<Implementation><![CDATA[
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New(KlantID,"N",GenerationID,"sessie")
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC PakketRef "_KlantID_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..KlantID=KlantID
+	Set ..GenerationID=GenerationID
+	
+	Set ..Data=##class(pxPakketRefLijst).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	Set ..ProductValidator=##class(ProductValidator).%New(KlantID,GenerationID)
+	
+	Do ..GenereerLijst()	
+	
+	Set ..Data.Tijd=Timer.Stop()\1
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>pxPakketRefLijst</ReturnType>
+<Implementation><![CDATA[	Quit ..Data
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Implementation><![CDATA[
+	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 ..ToevoegenPakket(PakNr)
+]]></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="ToevoegenPakket">
+<FormalSpec>PakNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set PakketHoofding=^PAKKET("D",PakNr)
+	Set pxItem=##class(pxPakketRefItem).%New()
+	Set pxItem.Naam=$P(PakketHoofding,"\",2)
+	Set pxItem.Omschrijving=$P(PakketHoofding,"\",4)
+	Set pxItem.PakketID=PakNr
+
+	Set PRNr=""
+	For  Set PRNr=$O(^PAKKET("D",PakNr,PRNr)) Quit:'PRNr  Do
+	. Set Aantal=$P(^PAKKET("D",PakNr,PRNr),"\")
+	. Set pxProduct=##class(pxPakketRefProduct).%New()
+	. Set pxProduct.ProductID=PRNr
+	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
+	. Do pxItem.Producten.Insert(pxProduct)
+	Set:pxItem.Producten.Count()>1 pxItem.MultiProduct=1
+	Do ..Data.Lijst.Insert(pxItem)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlantGroepen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/ExportKlantGroepen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlantGroepen.cls.xml	(revision 36472)
@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.ExportKlantGroepen">
+<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="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlantGroepen).%New(,10).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantal=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Set itRegio=..RegioIterator()
+	While itRegio.HasNext() {
+		Set rs=itRegio.Next()
+		Set Regio=rs.Data("Sektor")
+		Do ..ExportRegio(Regio)
+	}
+	Do ..ExportBusinessType(##class(DOM.VKP.enu.BusinessType).B2B())
+]]></Implementation>
+</Method>
+
+<Method name="ExportRegio">
+<FormalSpec>Regio:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OpenOutput(Regio)
+	Set itKlant=..KlantenVanRegioIterator(Regio)
+	Do ..ExportKlanten(itKlant)
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlanten">
+<FormalSpec>itKlant:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Writer.Element("Klanten")
+
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set KLNr=rs.Data("Klant")
+		Do ..Writer.Element("KlantID")
+		Do ..Writer.Write(KLNr)
+		Do ..Writer.EndElement()
+		Do ..ExportSamenvatting.Increment()
+	}
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="RegioIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select distinct Sektor from AX_Uitgaand_EC_Klanten_impl.Klanten ECKL join Derde_Klant.Klant DKL on DKL.Nummer=ECKL.Klant where GenerationID=?")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="KlantenVanRegioIterator">
+<FormalSpec>Regio:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select "_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" Klant from AX_Uitgaand_EC_Klanten_impl.Klanten ECKL join Derde_Klant.Klant DKL on DKL.Nummer=ECKL.Klant where DKL.Sektor=? and GenerationID=?")
+	
+ 	Set sc=rs.Execute(Regio,..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="ExportBusinessType">
+<FormalSpec>BusinessType:DOM.VKP.enu.BusinessType</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OpenOutput(BusinessType)
+
+	Set itKlant=..KlantenVanBusinessTypeIterator(BusinessType)
+	Do ..ExportKlanten(itKlant)
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="KlantenVanBusinessTypeIterator">
+<FormalSpec>BusinessType:DOM.VKP.enu.BusinessType</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select "_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" Klant from AX_Uitgaand_EC_Klanten_impl.Klanten ECKL  where BusinessType=? and GenerationID=?")
+	
+ 	Set sc=rs.Execute(BusinessType,..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKlant">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Proxy=##class(pxKlantGroep).%New()
+	Do Proxy.InvullenMetKlantData(KLNr)
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<FormalSpec>Regio:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="KlantGroep"
+	Set BestandsNaam=Omschrijving_" "_Regio_".xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	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("KlantGroepID")
+	Do ..Writer.Write(Regio)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderItem.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderItem.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxOpenstaandeOrderItem.cls.xml	(revision 36472)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxOpenstaandeOrderItem">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Order</Default>
+</Parameter>
+
+<Property name="OrderID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="LeveringsDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="FactuurDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="VervalDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="OpenstaandBedrag">
+<Type>%Float</Type>
+</Property>
+
+<Property name="AantalRappels">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="DocType">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeveringID">
+<Type>%String</Type>
+</Property>
+
+<Property name="TransportTraceURL">
+<Type>%String</Type>
+</Property>
+
+<Property name="FactuurID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="EDIReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="CommissieReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="InternMedewerker">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExterneMedewerker">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerzendWijze">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresToenaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresAanspreking">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresStraat">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresWoonplaats">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresPostcode">
+<Type>%String</Type>
+</Property>
+
+<Property name="LevAdresLand">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lijnen">
+<Type>pxOpenstaandeOrderLijn</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Lijn"/>
+<Parameter name="XMLNAME" value="Lijnen"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Data/impl/pxPakketRefProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxPakketRefProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxPakketRefProduct.cls.xml	(revision 36472)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxPakketRefProduct">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Multiplier">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/ExportKenmerken.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,205 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Node">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.LeveringID=$LG(lbHoofding,3)
+	Set pxHoofding.DocType="L"
+
+	Set OrderRec=$LG(lbHoofding,5) ; KF5 lijn in KUl of KFA
+	Set LeveringRec=$LG(lbHoofding,6)
+	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P($P(OrderRec,"\",5)," - ",2),"DK")
+	Set pxHoofding.OrderReferentie=$P($P(OrderRec,"\",5)," - ",3)
+	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
+	Set pxHoofding.VerzendWijze=$P($P(LeveringRec,"\",7)," #")
+	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P(LeveringRec,"\",2))
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	{
+		try{
+		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringID)
+		}Catch E{	
+		 	 	/// geen TrackAndTrace URL beschikbaar
+		}
+	}
+	
+	;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	;Set pxHoofding.InternMedewerker=""
+	;Set pxHoofding.ExterneMedewerker=""
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[	Set pxLijn.Status="Op transport"
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Implementation><![CDATA[
+	Set BONNr=""
+	Set ..Node="F"
+	For  Set BONNr=$O(^KUL(..KlantID,..Node,BONNr)) Quit:BONNr=""  Do
+	. Quit:'..CheckLevering(BONNr)
+	. Do ..OphalenLevering(BONNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenLevering">
+<FormalSpec>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(^KUL(..KlantID,..Node,BONNr,BLNr))
+	While (BLNr '= "")
+	{
+		#dim LijnType As %String = ""
+		Do ..CheckLeveringLijn(BONNr,BLNr,.LijnType)
+		If (LijnType '=""){
+			#dim BLRec As %String = ^KUL(..KlantID,..Node,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(^KUL(..KlantID,..Node,BONNr,BLNr))
+	}
+	
+	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
+		
+		Set HoofdingVolgNr=$I(^||ECCache("D"))
+		Set ^||ECCache("D",HoofdingVolgNr)=$LB("L",ORDNr,BONNr,,$LG($G(Sort(ORDCnt))),^KUL(..KlantID,..Node,BONNr,1),,^KUL(..KlantID,..Node,BONNr,3))
+		Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
+
+		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("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+				Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
+				}
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="CheckLevering">
+<FormalSpec>BONNr</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckLeveringLijn">
+<FormalSpec><![CDATA[BONNr:%String,LNr:%String,&LijnType:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=$G(^KUL(..KlantID,..Node,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>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/OpenstaandeOrdersOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/OpenstaandeOrdersOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/OpenstaandeOrdersOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,256 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrdersOphaler">
+<Type>HelperOrdersOphalen</Type>
+</Property>
+
+<Property name="LeveringenOphaler">
+<Type>HelperLeveringenOphalen</Type>
+</Property>
+
+<Property name="FacturenOphaler">
+<Type>HelperFacturenOphalen</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen).test(1736)
+SFS 12486
+DuPont 1736</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New($G(KlantID,4875),"N",GenerationID,"sessie")
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	;D bl.GeefData().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC OpenstaandeOrders "_KlantID_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	
+	Set ..Data=##class(pxOpenstaandeOrderLijst).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	
+	Set ..ProductValidator=##class(ProductValidator).%New(KlantID,GenerationID)
+	Set ..OrdersOphaler=##class(HelperOrdersOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..LeveringenOphaler=##class(HelperLeveringenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..FacturenOphaler=##class(HelperFacturenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+
+
+	Do ..GenereerLijst()	
+
+	Set ..Data.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>pxOpenstaandeOrderLijst</ReturnType>
+<Implementation><![CDATA[	Quit ..Data
+]]></Implementation>
+</Method>
+
+<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</Description>
+<Implementation><![CDATA[
+	Do ..OphalenNaarCache()
+	Do ..ConverteerCacheNaarXML()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Implementation><![CDATA[
+	
+	Kill ^||ECCache
+
+	Do ..OrdersOphaler.OphalenNaarCache("S")
+	Do ..LeveringenOphaler.OphalenNaarCache()
+	Do ..FacturenOphaler.OphalenNaarCache("F",14)
+	Do ..FacturenOphaler.OphalenNaarCache("P",14)
+	;zw ^||ECCache
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCacheNaarXML">
+<Implementation><![CDATA[
+	Set ORDNr=$O(^||ECCache("IO",""))
+	While ORDNr'=""
+	{
+		Set VolgNr=$O(^||ECCache("IO",ORDNr,""))
+		While VolgNr'=""
+		{
+			Do ..Converteer(^||ECCache("IO",ORDNr,VolgNr))
+			Set VolgNr=$O(^||ECCache("IO",ORDNr,VolgNr))
+		}
+		Set ORDNr=$O(^||ECCache("IO",ORDNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>HoofdingVolgNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set lbHoofding=^||ECCache("D",HoofdingVolgNr)
+	
+	Set ObjectType=$LG(lbHoofding)
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,""))
+	While LijnVolgNr'=""
+	{	
+		Set lbLijn=^||ECCache("D",HoofdingVolgNr,LijnVolgNr)
+		Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+		If $isObject(pxLijn) {
+			Do pxHoofding.Lijnen.Insert(pxLijn)
+		}
+		Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,LijnVolgNr))
+	}
+	Do ..Data.Lijst.Insert(pxHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set ObjectType=$LG(lbHoofding)
+	If ObjectType="O" { 
+		Set pxHoofding=..ConverteerOrderHoofding(lbHoofding) 
+	} ElseIf ObjectType="L" {
+		Set pxHoofding=..ConverteerLeveringHoofding(lbHoofding) 
+	} ElseIf (ObjectType="F")||(ObjectType="P") {
+		Set pxHoofding=..ConverteerFactuurHoofding(lbHoofding) 
+	}
+	;d DumpObject^%apiOBJ(pxHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set ObjectType=$LG(lbHoofding)
+	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>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(pxOpenstaandeOrderItem).%New()
+	Do ..OrdersOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLeveringHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(pxOpenstaandeOrderItem).%New()
+	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerFactuurHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(pxOpenstaandeOrderItem).%New()
+	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..FacturenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOrderLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn=##class(pxOpenstaandeOrderLijn).%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>
+<Implementation><![CDATA[
+	Set pxLijn=##class(pxOpenstaandeOrderLijn).%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>
+<Implementation><![CDATA[
+	Set pxLijn=##class(pxOpenstaandeOrderLijn).%New()
+	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..FacturenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(revision 36472)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxKlant">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="FirmaNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Toenaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Aanspreking">
+<Type>%String</Type>
+</Property>
+
+<Property name="Straat">
+<Type>%String</Type>
+</Property>
+
+<Property name="Woonplaats">
+<Type>%String</Type>
+</Property>
+
+<Property name="Postcode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Land">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="ExterneVerantwID">
+<Type>%String</Type>
+</Property>
+
+<Property name="InterneVerantwID">
+<Type>%String</Type>
+</Property>
+
+<Property name="BTWNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsInclusiefBTW">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="AssortimentSleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrijsSleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeveringsAdressen">
+<Type>BL.EC.pxKlantInfoAdres</Type>
+<Collection>array</Collection>
+<Parameter name="XMLITEMNAME" value="Adres"/>
+<Parameter name="XMLKEYNAME" value="VolgNr"/>
+<Parameter name="XMLNAME" value="LeveringsAdressen"/>
+</Property>
+
+<Method name="InvullenMetKlantData">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set D="\",U=";",Q="K"
+	Do ..KlantSetObjectId(KLNr)
+	Set ..KlantID=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 ..Munt=..Klant.Muntkode
+	Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
+	Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
+	Set ..Taal=..Klant.Taal
+	Set ..BTWNr=..Klant.BTWnummer
+	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
+	Do ..ToevoegenLeveringsAdressen()
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenLeveringsAdressen">
+<Implementation><![CDATA[
+	Do ##class(BL.EC.pxKlantInfoAdres).FillArray(..Klant, ..LeveringsAdressen, 0)
+	Set HoofdAdres=..LeveringsAdressen.GetAt("H")
+	If $isObject(HoofdAdres) {
+		Do ..LeveringsAdressen.SetAt(HoofdAdres,0)
+		Do ..LeveringsAdressen.RemoveAt("H")
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Prijzen/impl/UitzonderingenExport.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml	(revision 36472)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Assortiment.impl.pxKlantProduct">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="VerpakkingGroot">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakkingNorm">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="MinBestelhoeveelheid">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Leveringstermijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="StockNietStock">
+<Type>%String</Type>
+</Property>
+
+<Property name="Excluded">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="InvullenMetProductData">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ProductSetObjectId(PRNr)
+	Set ..ProductID=PRNr
+	Set ..KortTekst=..Product.KortTekst
+	Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
+	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
+	Set ..StockNietStock=..Product.StockNietStock
+	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
+	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.FacturenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>OpenstaandeOrdersOphalen</Super>
+
+<Property name="Periode">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).test(1736)
+SFS 12486
+DuPont 1736</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New($G(KlantID,4875),"N",GenerationID,"sessie",$G(Periode, 365/2))
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	;D bl.GeefData().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC Facturen "_KlantID_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..Periode=$G(Periode)
+	
+	Set ..Data=##class(pxOpenstaandeOrderLijst).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	
+	Set ..ProductValidator=##class(ProductValidator).%New(KlantID,GenerationID)
+	Set ..OrdersOphaler=##class(HelperOrdersOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..LeveringenOphaler=##class(HelperLeveringenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..FacturenOphaler=##class(HelperFacturenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+
+	Do ..GenereerLijst()	
+
+	Set ..Data.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<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</Description>
+<Implementation><![CDATA[
+	Kill ^||ECCache
+
+	Do ..FacturenOphaler.OphalenNaarCache("F",..Periode)
+	Do ..FacturenOphaler.OphalenNaarCache("P",..Periode)
+	;zw ^||ECCache
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/pxPakketRefLijst.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxPakketRefLijst.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxPakketRefLijst.cls.xml	(revision 36472)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxPakketRefLijst">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>KlantProductRef</Default>
+</Parameter>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SessionID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Lijst">
+<Type>pxPakketRefItem</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Item"/>
+<Parameter name="XMLNAME" value="Lijst"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/pxKlantPrijsUitz.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/pxKlantPrijsUitz.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/pxKlantPrijsUitz.cls.xml	(revision 36472)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Prijzen.impl.pxKlantPrijsUitz">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="NettoPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="GrootteOrde">
+<Type>%String</Type>
+</Property>
+
+<Property name="GeldigVanafDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="GeldigTotDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="GeldigVanafAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GeldigTotAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="InvullenMetData">
+<FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ProductID=PRNr
+	Set ..KlantID=KLNr
+]]></Implementation>
+</Method>
+
+<Method name="InvullenMetPrijsData">
+<FormalSpec>PrijsUitzID:%String</FormalSpec>
+<Implementation><![CDATA[
+	;w "Prijs ",..ProductID_"||"_..AssortimentGroep_"||"_..Codex,!
+	Set Prijs=##class(KlantPrijzen).%OpenId(PrijsUitzID)
+	Quit:'$isObject(Prijs)
+
+	Set ..Munt=Prijs.Munt
+	Set ..NettoPrijs=Prijs.NettoPrijs
+	Set ..GrootteOrde=Prijs.GrootteOrde
+	;Set ..GeldigVanafDatum=Prijs.GeldigVanafDatum
+	Set ..GeldigTotDatum=Prijs.GeldigTotDatum
+	Set ..GeldigVanafAantal=Prijs.GeldigVanafAantal
+	Set ..GeldigTotAantal=Prijs.GeldigTotAantal
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.HelperOffertesOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.DocType="O"
+
+	Set OrderRec=$LG(lbHoofding,5)
+	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.InternMedewerker=""
+	Set pxHoofding.ExterneMedewerker=""
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerAdres">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set AdresRec=..ZoekAdresGegevens($LG(lbHoofding,8))
+	Set pxHoofding.LevAdresNaam=$P(AdresRec,"\",2)
+	Set pxHoofding.LevAdresToenaam=$P(AdresRec,"\",3)
+	Set pxHoofding.LevAdresAanspreking=$P(AdresRec,"\",4)
+	Set pxHoofding.LevAdresStraat=$P(AdresRec,"\",5)
+	Set pxHoofding.LevAdresWoonplaats=$P(AdresRec,"\",7)
+	Set pxHoofding.LevAdresPostcode=$P(AdresRec,"\",6)
+	Set pxHoofding.LevAdresLand=$$LAND^vhRtn1($P(AdresRec,"\",8),2,1)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,1)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,2)
+	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.Commentaar=$LG(lbLijn,3)
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[	Set OLRec=$LG(lbLijn,2)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAdresGegevens">
+<FormalSpec>AdresRec</FormalSpec>
+<Implementation><![CDATA[
+	If ($TR($P(AdresRec,"\",2,5),"\")="")&&($P(AdresRec,"\")) ; alleen verwijzing naar leveringsadres 
+	{
+		Set AdresRec=^KKL(^KK1(..KlantID),0)
+	}
+	ElseIf $TR($P(AdresRec,"\",2,5),"\")=""  ; Geen adres -> hoofdadres
+	{
+		Set AdresRec=$G(^KKL(^KK1(..KlantID),"L"_$J($P(AdresRec,"\"),3)))
+		Set:AdresRec="" AdresRec=^KKL(^KK1(..KlantID),0)
+	}
+	Quit AdresRec
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<FormalSpec>Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set OFFNr=""
+	For  Set OFFNr=$O(^KOFKL(..KlantID,"F",OFFNr)) Quit:OFFNr=""  Do
+	. Quit:'..CheckOfferte(OFFNr,Periode)
+	. Do ..OphalenOfferte(OFFNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenOfferte">
+<FormalSpec>OFFNr:%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 = ""
+	
+	Set HasProd=""
+	Kill Sort,GrpTekst
+	Set OrderTotaal=0
+	Set LastGrpTijd="",LastGrpOLUNr=""
+	For  Set OLNr=$O(^KOFKL(..KlantID,"F",OFFNr,OLNr)) Quit:OLNr=""  Do
+	. Do ..CheckOfferteLijn(OFFNr,OLNr,.LijnType)
+	. Quit:LijnType=""
+	. Set OLRec=^KOFKL(..KlantID,"F",OFFNr,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 HoofdingVolgNr=$I(^||ECCache("D"))
+	Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",OFFNr,,,^KOFKL(..KlantID,"F",OFFNr,1),,,^KOFKL(..KlantID,"F",OFFNr,3))
+	Set ^||ECCache("IO",OFFNr,$O(^||ECCache("IO",OFFNr,""),-1)+1)=HoofdingVolgNr
+	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("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+	. . Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",OLRec,$G(GrpTekst(OLUNr)))
+]]></Implementation>
+</Method>
+
+<Method name="CheckOfferte">
+<FormalSpec>OFFNr:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=^KOFKL(..KlantID,"F",OFFNr,1)
+		Set Rec=^KOFKL(KLNr,"F",OFFNr,1)
+	
+	Quit:'$P(Rec,"\",19) 0 ; Controleren of de offerte bedoeld is voor extern gebruik (afgedrukt, FOP)
+	
+	Set Datum=$$INTDATE^vhLib.DataTypes($P(Rec,"\",2),"DK")
+	Quit:Datum<($H-Periode) 0
+	Set OLNr=$O(^KOFKL(..KlantID,"F",OFFNr,""))
+	Quit:OLNr?3.4N 0 ; Alleen detail offertes, geen prijslijstofferte
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckOfferteLijn">
+<FormalSpec><![CDATA[OFFNr:%String,OLNr:%String,&LijnType:%String]]></FormalSpec>
+<Implementation><![CDATA[
+
+	Set Rec=$G(^KOFKL(..KlantID,"F",OFFNr,OLNr))
+	If Rec="" Set LijnType=""  Quit
+	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
+	
+	Set LijnType="P"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(revision 36472)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.ExportKlanten">
+<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="KLNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExportDefaults">
+<Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
+</Property>
+
+<Property name="ExportSamenvatting">
+<Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlanten).%New(,10).ExportAll()</Description>
+<FormalSpec>ExportDefaults:AX.Uitgaand.EC.impl.ExportDefaults,ExportSamenvatting:AX.Uitgaand.EC.impl.ExportSamenvatting</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExportDefaults=ExportDefaults
+	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..BeperktAantal=$S($isObject($G(ExportDefaults)):ExportDefaults.BeperktAantal,1:0)
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set ..KLNr=rs.Data("Klant")
+		Continue:'..IsGeldigeKlant()
+		Do ..ExportKlant()
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	
+	Set Proxy=..BuildProxy()
+	;Write KLNr,! Do Proxy.XMLExport()
+	Do ..Writer.Object(Proxy,"Klant")
+	Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select "_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" Klant from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=?")
+	
+ 	Set sc=rs.Execute(..ExportDefaults.NewGenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKlant">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<Implementation><![CDATA[
+	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()
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="Klanten"
+	Set BestandsNaam=Omschrijving_" ALL.xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Service.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/pxPakketRefItem.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxPakketRefItem.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxPakketRefItem.cls.xml	(revision 36472)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxPakketRefItem">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Item</Default>
+</Parameter>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="PakketID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="MultiProduct">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Producten">
+<Type>pxPakketRefProduct</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Product"/>
+<Parameter name="XMLNAME" value="Producten"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Gebruiker/impl/ExportGebruiker.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Gebruiker/impl/ExportGebruiker.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Gebruiker/impl/ExportGebruiker.cls.xml	(revision 36472)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Gebruiker.impl.ExportGebruiker">
+<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="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 ..BeperktAantal=ExportDefaults.BeperktAantal
+	Set ..DomeinID="VH"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenOutput()
+	Set itGebruiker=..GebruikerIterator()
+	While itGebruiker.HasNext() {
+		Set rs=itGebruiker.Next()
+		Continue:'..IsGeldigeGebruiker(rs)
+		Do ..ExportGebruiker(rs)
+	}
+	Do ..CloseOutput()
+]]></Implementation>
+</Method>
+
+<Method name="ExportGebruiker">
+<FormalSpec>rs:%ResultSet</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set Proxy=..BuildProxy(rs)
+	;Write KLNr,! Do Proxy.XMLExport()
+	Do ..Writer.Object(Proxy,"Gebruiker")
+	Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
+<Method name="GebruikerIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select "_$S(..BeperktAantal:" TOP "_..BeperktAantal,1:"")_" ID, Domein, EmailAdres,Klanten, Regio, Taal, LastLoginTijdStip, EmailAdres,UserNaam, ToegangGroep, WachtWoord, WachtWoordIntern,DefaultKlant  from Derde_EC.Toegang where hasaccess=1  ")
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeGebruiker">
+<FormalSpec>rs:%ResultSet</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:rs.Data("Domein")'=..DomeinID
+	Quit:rs.Data("LastLoginTijdStip")="" 0
+	Quit:$$DIFFDATE^vhLib.DataTypes(rs.Data("LastLoginTijdStip"),$H)>356 0
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="BuildProxy">
+<FormalSpec>rs:%ResultSet</FormalSpec>
+<ReturnType>pxGebruiker</ReturnType>
+<Implementation><![CDATA[
+	Set Proxy=##class(pxGebruiker).%New()
+	Do Proxy.InvullenMetData(rs, ..ExportDefaults.NewGenerationID)
+	Quit Proxy
+]]></Implementation>
+</Method>
+
+<Method name="OpenOutput">
+<Implementation><![CDATA[
+	Set ..Writer=##class(%XML.Writer).%New()
+	Set ..Writer.NoXMLDeclaration=1
+	Set ..Writer.Indent=1
+	Set Omschrijving="Gebruiker"
+	Set BestandsNaam=Omschrijving_".xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement("Gebruikers")
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+
+<Method name="CloseOutput">
+<Implementation><![CDATA[
+	Do ..Writer.EndRootElement()
+	Do ..ExportSamenvatting.SluitBestand()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,173 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.OffertesOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Periode">
+<Type>%String</Type>
+</Property>
+
+<Property name="OffertesOphaler">
+<Type>HelperOffertesOphalen</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).test(1736)
+SFS 12486
+DuPont 1736</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New($G(KlantID,4875),"N",GenerationID,"sessie",100)
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	;D bl.GeefData().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC Offertes "_KlantID_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..Periode=Periode
+	
+	Set ..Data=##class(pxOpenstaandeOrderLijst).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	Set ..ProductValidator=##class(ProductValidator).%New(KlantID,GenerationID)
+	Set ..OffertesOphaler=##class(HelperOffertesOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+
+	Do ..GenereerLijst()	
+
+	Set ..Data.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>pxOpenstaandeOrderLijst</ReturnType>
+<Implementation><![CDATA[	Quit ..Data
+]]></Implementation>
+</Method>
+
+<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</Description>
+<Implementation><![CDATA[
+	Do ..OphalenNaarCache()
+	Do ..ConverteerCacheNaarXML()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Implementation><![CDATA[
+	
+	Kill ^||ECCache
+
+	Do ..OffertesOphaler.OphalenNaarCache(..Periode)
+	;zw ^||ECCache
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCacheNaarXML">
+<Implementation><![CDATA[
+	Set ORDNr=$O(^||ECCache("IO",""))
+	While ORDNr'=""
+	{
+		Set VolgNr=$O(^||ECCache("IO",ORDNr,""))
+		While VolgNr'=""
+		{
+			Do ..Converteer(^||ECCache("IO",ORDNr,VolgNr))
+			Set VolgNr=$O(^||ECCache("IO",ORDNr,VolgNr))
+		}
+		Set ORDNr=$O(^||ECCache("IO",ORDNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>HoofdingVolgNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set lbHoofding=^||ECCache("D",HoofdingVolgNr)
+	
+	Set ObjectType=$LG(lbHoofding)
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,""))
+	While LijnVolgNr'=""
+	{	
+		Set lbLijn=^||ECCache("D",HoofdingVolgNr,LijnVolgNr)
+		Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+		If $isObject(pxLijn) {
+			Do pxHoofding.Lijnen.Insert(pxLijn)
+		}
+		Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,LijnVolgNr))
+	}
+	Do ..Data.Lijst.Insert(pxHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(pxOpenstaandeOrderItem).%New()
+	Do ..OffertesOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..OffertesOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn=##class(pxOpenstaandeOrderLijn).%New()
+	Do ..OffertesOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..OffertesOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxLeveringsAdres.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/pxLeveringsAdres.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/pxLeveringsAdres.cls.xml	(revision 36472)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Klanten.impl.pxLeveringsAdres">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantGroepID">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetKlantData">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..KlantSetObjectId(KLNr)
+
+	Set ..KlantID=KLNr
+	Set ..KlantGroepID=..Klant.Sektor
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Voorraad/impl/VoorraadVorigNivo.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Voorraad/impl/VoorraadVorigNivo.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Voorraad/impl/VoorraadVorigNivo.cls.xml	(revision 36472)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Voorraad.impl.VoorraadVorigNivo">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="PraktischeVoorraad">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Product</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..ProductSetObjectId(PRNr)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.UitgaanE8D0.VoorraadVorD0CCD</DataLocation>
+<DefaultData>VoorraadVorigNivoDefaultData</DefaultData>
+<IdLocation>^AX.UitgaanE8D0.VoorraadVorD0CCD</IdLocation>
+<IndexLocation>^AX.UitgaanE8D0.VoorraadVorD0CCI</IndexLocation>
+<StreamLocation>^AX.UitgaanE8D0.VoorraadVorD0CCS</StreamLocation>
+<Data name="VoorraadVorigNivoDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>PraktischeVoorraad</Value>
+</Value>
+<Value name="3">
+<Value>AanmaakTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/GenerateKlantAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(revision 36472)
@@ -0,0 +1,284 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Data">
+<Type>pxOpenstaandeOrderLijst</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.DocType="O"
+
+	Set OrderRec=$LG(lbHoofding,5)
+	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 pxHoofding.InternMedewerker=""
+	Set pxHoofding.ExterneMedewerker=""
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerAdres">
+<FormalSpec>pxHoofding:pxOpenstaandeOrderItem,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set AdresRec=..ZoekAdresGegevens($LG(lbHoofding,8))
+	Set pxHoofding.LevAdresNaam=$P(AdresRec,"\",2)
+	Set pxHoofding.LevAdresToenaam=$P(AdresRec,"\",3)
+	Set pxHoofding.LevAdresAanspreking=$P(AdresRec,"\",4)
+	Set pxHoofding.LevAdresStraat=$P(AdresRec,"\",5)
+	Set pxHoofding.LevAdresWoonplaats=$P(AdresRec,"\",7)
+	Set pxHoofding.LevAdresPostcode=$P(AdresRec,"\",6)
+	Set pxHoofding.LevAdresLand=$$LAND^vhRtn1($P(AdresRec,"\",8),2,1)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,1)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,2)
+	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.Commentaar=$LG(lbLijn,3)
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:pxOpenstaandeOrderLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,2)
+	Set pxLijn.Status=$LG(lbLijn,4)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAdresGegevens">
+<FormalSpec>AdresRec</FormalSpec>
+<Implementation><![CDATA[
+	If ($TR($P(AdresRec,"\",2,5),"\")="")&&($P(AdresRec,"\")) ; alleen verwijzing naar leveringsadres 
+	{
+		Set AdresRec=^KKL(^KK1(..KlantID),0)
+	}
+	ElseIf $TR($P(AdresRec,"\",2,5),"\")=""  ; Geen adres -> hoofdadres
+	{
+		Set AdresRec=$G(^KKL(^KK1(..KlantID),"L"_$J($P(AdresRec,"\"),3)))
+		Set:AdresRec="" AdresRec=^KKL(^KK1(..KlantID),0)
+	}
+	Quit AdresRec
+]]></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 = ""
+	
+	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 HoofdingVolgNr=$I(^||ECCache("D"))
+	Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",ORDNr,,,^KOD(..KlantID,"F",ORDNr,1),,,^KOD(..KlantID,"F",ORDNr,3))
+	Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
+	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("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+	. . Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3))
+]]></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>
+
+<Parameter name="vsInVoorraad">
+<Default>Voldoende voorraad</Default>
+</Parameter>
+
+<Parameter name="vsBeperkteVoorraad">
+<Default>Beperkte voorraad</Default>
+</Parameter>
+
+<Parameter name="vsNietInVoorraad">
+<Default>Geen voorraad</Default>
+</Parameter>
+
+<Parameter name="vsOpBestelling">
+<Default>In bestelling lev</Default>
+</Parameter>
+
+<Parameter name="vsInProductie">
+<Default>In productie</Default>
+</Parameter>
+
+<Parameter name="vsInLevering">
+<Default>Verwerking magazijn</Default>
+</Parameter>
+
+<Method name="CheckOrderLijn">
+<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:%String]]></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
+	If $P(Rec,"\",27)'="" Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):..#vsInProductie,1:..#vsOpBestelling)
+	Else  Do 
+	. Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":..#vsNietInVoorraad,"P":..#vsBeperkteVoorraad,:..#vsInVoorraad)
+	Set OLUNr=$P(Rec,"\",15)
+	If $D(^ORDW("IO",ORDNr,OLUNr)) Set VoorraadStatus=..#vsInLevering
+	;Set:VoorraadStatus=..#vsInVoorraad VoorraadStatus=""
+	
+	Set LijnType="P"
+]]></Implementation>
+</Method>
+
+<Method name="VoorraadStatus">
+<FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder</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>
+
+
+</Export>
Index: AX/Uitgaand/EC/Gebruiker/impl/pxFavoriet.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Gebruiker/impl/pxFavoriet.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Gebruiker/impl/pxFavoriet.cls.xml	(revision 36472)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Gebruiker.impl.pxFavoriet">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Method name="InvullenMetData">
+<FormalSpec>rs:%ResultSet,GenerationID:%String</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/GenerateKlanten.cls.xml	(revision 36472)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.GenerateKlanten">
+<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 ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..ExportDefaults=ExportDefaults
+	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">
+<Implementation><![CDATA[
+	Set GenerationID=..ExportDefaults.OldGenerationID
+	&SQL(delete AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID<:GenerationID)
+	Set GenerationID=..ExportDefaults.NewGenerationID
+	&SQL(delete AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=:GenerationID)
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Klanten.impl.GenerateKlanten).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ..Opkuis()
+	
+	#dim KlantIterator As TECH.Iterator = ..PartijAPI.GeefPartijIterator()
+	while KlantIterator.HasNext() {
+		do ..Generate(KlantIterator.Next())	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<Implementation><![CDATA[
+	
+	Quit:Partij.GeefActiefStatus()'=##class(DOM.CRM.enu.ActiefStatus).Actief()
+	#dim KLNr as %String=Partij.GeefCode()
+		
+	Set PrijzenKlant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%New()
+	Do PrijzenKlant.KlantSetObjectId(KLNr)
+	Set PrijzenKlant.KATPrijsGroep=..GeefKATPrijsGroep(PrijzenKlant.Klant)
+	
+	Quit:PrijzenKlant.KATPrijsGroep?1(1"0",1"Niet actief")
+	;Set PrijzenKlant.CodexPerGroep=##class(%ArrayOfDataTypes).%New()
+	Do ..AddCodexGroep(KLNr,PrijzenKlant.CodexPerGroep, ##class(BL.Legacy.enu.CodexType).Standaard())
+	Do ..AddCodexGroep(KLNr,PrijzenKlant.CodexPerGroep, ##class(BL.Legacy.enu.CodexType).Orgalux())
+	Do ..AddCodexGroep(KLNr,PrijzenKlant.CodexPerGroep, ##class(BL.Legacy.enu.CodexType).TAOR())
+
+	Set PrijzenKlant.AssortimentGroep=..GeefAssortimentGroep(PrijzenKlant.Klant)
+	Set PrijzenKlant.BusinessType=PrijzenKlant.Klant.BusinessType
+	Set PrijzenKlant.Munt="EUR" ;PrijzenKlant.Klant.MuntCode
+	
+	Set PrijzenKlant.PrijsSleutel=PrijzenKlant.GeefCodexSleutel()
+
+	Set PrijzenKlant.AanmaakTijdstip=..ExportDefaults.Tijdstip
+	Set PrijzenKlant.GenerationID=..ExportDefaults.NewGenerationID
+	Do PrijzenKlant.Save()
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="AddCodexGroep">
+<FormalSpec>KLNr:%String,CodexPerGroep:%ArrayOfDataTypes,CodexType:BL.Legacy.enu.CodexType</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Codex as DOM.VKP.enu.PrijsCodex=$$PRIJSKL^KLANT(KLNr,,..NoSa,CodexType)
+	Do CodexPerGroep.SetAt(Codex,CodexType)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKATPrijsGroep">
+<FormalSpec>Klant:Derde.Klant.Klant</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set D="\"
+	/* code herschrijven moet dezelfde zijn als in KPRIJS : KLTyp */
+	#dim PrijsGroep as %String=Klant.Divisie
+	Set:$$IsHandel^KLANT5(Klant.%Id()) PrijsGroep="Handel"
+	Set:PrijsGroep="Architect" PrijsGroep="KS"
+	Set:PrijsGroep="Consument" PrijsGroep="KS"
+	Quit PrijsGroep
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<FormalSpec>Klant:Derde.Klant.Klant</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set D="\"
+	#dim AssortimentGroep as %String=Klant.Divisie
+	Set:$$IsHandel^KLANT5(Klant.%Id()) AssortimentGroep="Handel"
+	Set:AssortimentGroep="Architect" AssortimentGroep="KS"
+	Quit AssortimentGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/pxKenmerk.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/pxHistoriek.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/pxHistoriek.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/pxHistoriek.cls.xml	(revision 36472)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Data.impl.pxHistoriek">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Historiek</Default>
+</Parameter>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SessionID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lijst">
+<Type>pxHistoriekItem</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="Item"/>
+<Parameter name="XMLNAME" value="Lijst"/>
+</Property>
+</Class>
+</Export>
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlantenPerKlant.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Klanten/impl/ExportKlantenPerKlant.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlantenPerKlant.cls.xml	(revision 36472)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Klanten.impl.ExportKlantenPerKlant">
+<Description>
+Prijsuitzonderingen per klant, als de codexprijs afwijkt van de klantprijs wordt de klantprijs opgeslagen</Description>
+<Super>ExportKlanten</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>
+
+<Method name="ExportAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Klanten.impl.ExportKlantenPerKlant).%New(,10).ExportAll()</Description>
+<Implementation><![CDATA[
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set KLNr=rs.Data("Klant")
+		Continue:'..IsGeldigeKlant(KLNr)
+		Do ..OpenOutput(KLNr)
+		Do ..ExportKlant(KLNr)
+		Do ..CloseOutput()
+
+	}
+]]></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="Klanten"
+	Set BestandsNaam=Omschrijving_" "_KLNr_".xml"
+	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Quit:$$$ISERR(sc) sc
+	Set ..Writer.Charset="UTF-8"
+	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("Domein")
+	Do ..Writer.Write(..DomeinID)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("GenerationID")
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Do ..Writer.EndElement()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36471 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Perfion/impl/pxAsset.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Prijzen/impl/pxCodexProduct.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/pxCodexProduct.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/pxCodexProduct.cls.xml	(revision 36472)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+<Class name="AX.Uitgaand.EC.Prijzen.impl.pxCodexProduct">
+<IncludeCode>BL.EC.Common</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="PrijsSleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="CodexGroep">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Codex">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="PrijsGroep">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="BusinessType">
+<Type>DOM.VKP.enu.BusinessType</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Munt">
+<Type>DOM.enu.Munt</Type>
+</Property>
+
+<Property name="NettoPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="GrootteOrde">
+<Type>%String</Type>
+</Property>
+
+<Property name="GeldigVanafDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="GeldigTotDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="GeldigVanafAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GeldigTotAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="InvullenMetProductData">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ProductID=PRNr
+]]></Implementation>
+</Method>
+
+<Method name="InvullenMetPrijsData">
+<FormalSpec>GenerationID:%String,Munt:DOM.enu.Munt</FormalSpec>
+<Implementation><![CDATA[
+	;w "Prijs ",..ProductID_"||"_..PrijsGroep_"||"_..BusinessType_"||"_..Codex_"||"_Munt,!
+	Set Prijs=##class(CodexPrijzen).%OpenId(GenerationID_"||"_..ProductID_"||"_..PrijsGroep_"||"_..BusinessType_"||"_..Codex_"||"_Munt)
+	Quit:'$isObject(Prijs)
+	if Prijs.CodexGroep'=..CodexGroep Break
+	Set ..Munt=Prijs.Munt
+	Set ..NettoPrijs=Prijs.NettoPrijs
+	Set ..GrootteOrde=Prijs.GrootteOrde
+	;Set ..GeldigVanafDatum=Prijs.GeldigVanafDatum
+	Set ..GeldigTotDatum=Prijs.GeldigTotDatum
+	;Set ..GeldigVanafAantal=Prijs.GeldigVanafAantal
+]]></Implementation>
+</Method>
+</Class>
+</Export>