Index: AX/Uitgaand/EC/Prijzen/impl/GenerateKlanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/GenerateKlanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateKlanten.cls.xml	(revision 34387)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.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="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<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 ..Tijdstip=$zdt($H,3)
+	Set ..NoSa="N"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateKlanten).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Prijzen.impl.Klanten).%DeleteExtent()
+	
+	#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.Prijzen.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.AanmaakTijdstip=..Tijdstip
+	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>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	/* code herschrijven moet dezelfde zijn als in KPRIJS : KLTyp */
+	#dim PrijsGroep as %String=Klant.Divisie
+	Set:PrijsGroep="Architect" PrijsGroep="KS"
+	Quit PrijsGroep
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<FormalSpec>Klant:Derde.Klant.Klant</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AssortimentGroep as %String=Klant.Divisie
+	Set:AssortimentGroep="Architect" AssortimentGroep="KS"
+	Quit AssortimentGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/KlantAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/KlantAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/KlantAssortiment.cls.xml	(revision 34387)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Product,Klant</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.UitgaanC2AE.KlantAssortD8EDD</DataLocation>
+<DefaultData>KlantAssortimentDefaultData</DefaultData>
+<IdLocation>^AX.UitgaanC2AE.KlantAssortD8EDD</IdLocation>
+<IndexLocation>^AX.UitgaanC2AE.KlantAssortD8EDI</IndexLocation>
+<StreamLocation>^AX.UitgaanC2AE.KlantAssortD8EDS</StreamLocation>
+<Data name="KlantAssortimentDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Klant</Value>
+</Value>
+<Value name="3">
+<Value>AanmaakTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/GenerateBasisAssortiment.cls.xml	(revision 34387)
@@ -0,0 +1,202 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..Tijdstip=$zdt($H,3)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%DeleteExtent()
+	
+	#dim ProductIterator As TECH.Iterator = ..ProductAPI.GeefProductIDIterator()
+	while ProductIterator.HasNext() {
+		do ..GeneratePerKlantPrijsGroep(ProductIterator.Next())	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerKlantPrijsGroep">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+ 
+	Quit:..IsVerkoopbaarProduct(PRNr)'=""			
+
+	Do:..IsBeschikbaarVoorKS(PRNr) ..Generate(PRNr,"KS")
+	Do:..IsBeschikbaarVoorIndustie(PRNr) ..Generate(PRNr,"Industrie")
+	Do:..IsBeschikbaarVoorHandel(PRNr) ..Generate(PRNr,"Handel")
+	Do:..IsBeschikbaarVoorConsument(PRNr) ..Generate(PRNr,"Consument")
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PRNr:%String,AssortimentGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+ 
+	Set BasisAssortiment = ##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%New()
+	Do BasisAssortiment.ProductSetObjectId(PRNr)
+	Set BasisAssortiment.AssortimentGroep=AssortimentGroep
+	Set BasisAssortiment.CodexGroep=..BepaalCodexGroep(PRNr)
+	Set BasisAssortiment.AanmaakTijdstip=..Tijdstip
+
+	Do BasisAssortiment.Save()
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="IsVerkoopbaarProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ ; Controle of een product mag getoond worden
+ New R,KLNr,IDNr,Ok,HoofdGr,Groep,SubGroep,CompKort,GenProd,IsKind,KortT,IsNonAkt,CheckKlas
+ Set Ok=""
+ Set R=^KPR(PRNr,0) Quit:R="" "No Rec0"
+ Set KortT=$P(^KPR(PRNr,0),"\",1),GenProd=$P(R,"\",3)
+ Quit:GenProd'="" "Gen/Afg"
+ 
+ Set IsKind=($P(R,"\",23)="K")||($E($P(R,"\",23))="H")||($P(R,"\",23)="V") ; Kind, Halfabr,Verpakking
+ Quit:IsKind "Kind/Half"
+ 
+ Set R=^KPR(PRNr,2) Quit:R="" "No Rec2"
+ Set IDNr=$P(R,"\",25) ; $$$PRGet($$$IdentNummer)
+ Quit:$E(IDNr)=6 "No Kind" ; Geen kind product
+ Quit:$E(IDNr)=7 "No DO" ; Geen *DO* product
+
+ Set IsNonAkt=$P(^KPR(PRNr,1),"\",25) ; $$$PRGet($$$NONAktief)
+ Quit:IsNonAkt=1 "Nonakt"
+ Quit:(IsNonAkt=2) "BepAkt"
+ #dim CheckKlas As %Boolean
+ Try{
+	 Set CheckKlas = ..CheckKlas(PRNr)
+ }Catch{
+	 #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	 Do ##class(vhLib.Logger).%New("BL.EC.Product").WarningMail("CheckAllowed","Voor product '"_PRNr_"' kan de classificatie niet gecontroleerd worden : "_$C(13,10)_Exception.ToString())
+	 Set CheckKlas = 0
+ }
+ Quit:'CheckKlas "No Klas"
+
+ Quit:(($E(IDNr)'=0)&&($E(IDNr)'=9)) "No SOPR"
+
+ Quit Ok
+]]></Implementation>
+</Method>
+
+<Method name="IsBeschikbaarVoorKS">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+  	Quit:$$ISPROD^KS(PRNr) 1
+ 	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="IsBeschikbaarVoorHandel">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+ 	Quit:$$ISPROD^KS(PRNr) 1
+ 	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="IsBeschikbaarVoorIndustie">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="IsBeschikbaarVoorConsument">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:$$ISORGAL^PRODUKT2(PRNr) 1
+	Quit:$$ISTAORCUB^PRODUKT2(PRNr) 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCodexGroep">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.Legacy.enu.CodexType</ReturnType>
+<Implementation><![CDATA[
+	Set CodexGroep=##class(BL.Legacy.enu.CodexType).Standaard()
+	Set:$$ISORGAL^PRODUKT2(PRNr) CodexGroep=##class(BL.Legacy.enu.CodexType).Orgalux()
+	Set:$$ISTAORCUB^PRODUKT2(PRNr) CodexGroep=##class(BL.Legacy.enu.CodexType).TAOR()
+	Quit CodexGroep
+]]></Implementation>
+</Method>
+
+<Method name="CheckKlas">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ New RecI,KlasKey,RecKlas
+ Set RecI=$O(^KPR(PRNr,"I"))
+ Quit:$E(RecI)'="I" 0
+ Set KlasKey=$P(^KPR(PRNr,RecI),"\",4) ; klaskey van de subgroep
+ Set RecKlas=$G(^KLAS("K",KlasKey))
+ Quit:'$P(RecKlas,"\",12) 0 ; Subgroep niet tonen
+ Set KlasKey=$P(RecKlas,"\",9) ; klaskey van groep
+ Set RecKlas=$G(^KLAS("K",KlasKey))
+ Quit:'$P(RecKlas,"\",12) 0 ; Groep niet tonen
+ Set KlasKey=$P(RecKlas,"\",8) ; klaskey van hoofdgroep
+ Set RecKlas=$G(^KLAS("K",KlasKey))
+ Quit:'$P(RecKlas,"\",12) 0 ; HoofdGroep niet tonen
+ Quit 1
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.UitgaanC2AE.GenerateBas743BD</DataLocation>
+<DefaultData>GenerateBasisAssortimentDefaultData</DefaultData>
+<IdLocation>^AX.UitgaanC2AE.GenerateBas743BD</IdLocation>
+<IndexLocation>^AX.UitgaanC2AE.GenerateBas743BI</IndexLocation>
+<StreamLocation>^AX.UitgaanC2AE.GenerateBas743BS</StreamLocation>
+<Data name="GenerateBasisAssortimentDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/Klanten.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/Klanten.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/Klanten.cls.xml	(revision 34387)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.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="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="PrimKey">
+<Description>
+(VALUELIST = ";IP;KS;HAN;CONS");</Description>
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Klant</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="GeefCodex">
+<FormalSpec>CodexGroep:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.PrijsCodex</ReturnType>
+<Implementation><![CDATA[	Quit ..CodexPerGroep.GetAt(CodexGroep)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand.EC.PriD1A0.KlantenD</DataLocation>
+<DefaultData>KlantenDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand.EC.PriD1A0.KlantenD</IdLocation>
+<IndexLocation>^AX.Uitgaand.EC.PriD1A0.KlantenI</IndexLocation>
+<StreamLocation>^AX.Uitgaand.EC.PriD1A0.KlantenS</StreamLocation>
+<Data name="CodexPerGroep">
+<Attribute>CodexPerGroep</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"CodexPerGroep"</Subscript>
+</Data>
+<Data name="KlantenDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>CodexBeslag</Value>
+</Value>
+<Value name="3">
+<Value>CodexOrgalux</Value>
+</Value>
+<Value name="4">
+<Value>CodexTAORCubics</Value>
+</Value>
+<Value name="5">
+<Value>Divisie</Value>
+</Value>
+<Value name="6">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="7">
+<Value>KlantPrijsGroep</Value>
+</Value>
+<Value name="8">
+<Value>Codex</Value>
+</Value>
+<Value name="9">
+<Value>CodexPer3</Value>
+</Value>
+<Value name="10">
+<Value>PrijsGroep</Value>
+</Value>
+<Value name="11">
+<Value>AssortimentGroep</Value>
+</Value>
+<Value name="12">
+<Value>KATPrijsGroep</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(revision 34387)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.GenerateCodexPrijzen">
+<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="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Method name="%OnNew">
+<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 ..Tijdstip=$zdt($H,3)
+	Set ..NoSa="N"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="AllProducts">
+<Type>%SQLQuery</Type>
+<SqlQuery>	Select DISTINCT Product,CodexGroep from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment</SqlQuery>
+</Query>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateCodexPrijzen).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen).%DeleteExtent()
+
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product,CodexGroep from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment")
+
+ 	Set sc=rs.Execute()
+ 	
+	While rs.%Next() {
+		Set PRNr=rs.Data("Product") 
+		Do ..GeneratePerCodex(PRNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerCodex">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	For Codex="C","P","L","R","S","B","G"
+		{
+			Do ..GeneratePerKATPrijsGroep(PRNr,Codex)	
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerKATPrijsGroep">
+<FormalSpec>PRNr:%String,Codex:%String</FormalSpec>
+<Implementation><![CDATA[
+	/* TODO : HIER MOET HANDEL NOG TOEGEVOEGD WORDEN */
+	#dim KATPrijsGroep as %String
+	For KATPrijsGroep="Industrie","KS","Consument"
+		{
+			Do ..Generate(PRNr,Codex,KATPrijsGroep)	
+		}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PRNr:%String,Codex:%String,KATPrijsGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set KlTyp=$S(KATPrijsGroep="Industrie":0,KATPrijsGroep="Handel":1,1:"P")
+	Set PrijsRec=$$PROD^KPRIJS(PRNr,Codex,,,,KlTyp)
+	
+	Set Prijs=##class(AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen).%New()
+	
+	Do Prijs.ProductSetObjectId(PRNr)
+	Set Prijs.Codex=Codex
+	Set Prijs.KATPrijsGroep=KATPrijsGroep
+	
+	Set Prijs.NettoPrijs=$P(PrijsRec,"\",1)
+	Set Prijs.Munt=$P(PrijsRec,"\",2)
+	Set Prijs.GrootteOrde=$P(PrijsRec,"\",3)
+
+	Set Prijs.AanmaakTijdstip=..Tijdstip
+	Do Prijs.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/KlantPrijzen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/KlantPrijzen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/KlantPrijzen.cls.xml	(revision 34387)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.KlantPrijzen">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Description>
+Property Klant As Derde.Klant.Klant;</Description>
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</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="GeneratedFrom">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="ProductKey">
+<Properties>Product,Klant</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand.ED1A0.KlantPrijzenD</DataLocation>
+<DefaultData>KlantPrijzenDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand.ED1A0.KlantPrijzenD</IdLocation>
+<IndexLocation>^AX.Uitgaand.ED1A0.KlantPrijzenI</IndexLocation>
+<StreamLocation>^AX.Uitgaand.ED1A0.KlantPrijzenS</StreamLocation>
+<Data name="KlantPrijzenDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Product</Value>
+</Value>
+<Value name="3">
+<Value>CodexPer3</Value>
+</Value>
+<Value name="4">
+<Value>PrijsGroep</Value>
+</Value>
+<Value name="5">
+<Value>Munt</Value>
+</Value>
+<Value name="6">
+<Value>NettoPrijs</Value>
+</Value>
+<Value name="7">
+<Value>GrootteOrde</Value>
+</Value>
+<Value name="8">
+<Value>GeldigVanafDatum</Value>
+</Value>
+<Value name="9">
+<Value>GeldigTotDatum</Value>
+</Value>
+<Value name="10">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="11">
+<Value>Klant</Value>
+</Value>
+<Value name="12">
+<Value>GeldigVanafAantal</Value>
+</Value>
+<Value name="13">
+<Value>GeneratedFrom</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/BasisAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/BasisAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/BasisAssortiment.cls.xml	(revision 34387)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Description>
+KS, IP, Cons, ...</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="CodexGroep">
+<Description>
+Standaard, Orgalux, TAOR en enventueel klassificatie (hoofdgroepen)</Description>
+<Type>BL.Legacy.enu.CodexType</Type>
+</Property>
+
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="AssortimentKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>AssortimentGroep,Product</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Index name="CodexKey">
+<Properties>CodexGroep,Product</Properties>
+</Index>
+
+<Method name="GeefCodexGroep">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select CodexGroep from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where Product=?")
+ 	Set sc=rs.Execute(PRNr)
+	Set CodexGroep=""
+	While rs.%Next() {
+		Set CodexGroep=rs.Data("CodexGroep")
+	}
+	Quit CodexGroep
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.UitgaanC2AE.BasisAssort150AD</DataLocation>
+<DefaultData>BasisAssortimentDefaultData</DefaultData>
+<IdLocation>^AX.UitgaanC2AE.BasisAssort150AD</IdLocation>
+<IndexLocation>^AX.UitgaanC2AE.BasisAssort150AI</IndexLocation>
+<StreamLocation>^AX.UitgaanC2AE.BasisAssort150AS</StreamLocation>
+<Data name="BasisAssortimentDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Product</Value>
+</Value>
+<Value name="3">
+<Value>AssortimentGroep</Value>
+</Value>
+<Value name="4">
+<Value>CodexGroep</Value>
+</Value>
+<Value name="5">
+<Value>AanmaakTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(revision 34387)
@@ -0,0 +1,133 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.GenerateKlantPrijzen">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<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 ..Tijdstip=$zdt($H,3)
+	Set ..NoSa="N"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateKlantPrijzen).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%DeleteExtent()
+
+	Set rs=##class(TECH.ResultSet).%New()
+ 	Do rs.Prepare("	Select Klant from AX_Uitgaand_EC_Prijzen_impl.Klanten")
+
+ 	Set sc=rs.Execute()
+ 	
+	While rs.%Next() { 
+		Do ..GenerateKlant(rs.Data("Klant"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenerateKlant">
+<Description>
+d ##class(AX.Uitgaand.EC.Prijzen.impl.GenerateKlantPrijzen).%New().GenerateKlant(3042)</Description>
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Klant=##class(AX.Uitgaand.EC.Prijzen.impl.Klanten).%OpenId(KLNr)
+	Do ..GeneratePerBasisAssortiment(Klant)
+	Do ..GeneratePerKlantAssortiment(Klant)
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerBasisAssortiment">
+<FormalSpec>Klant:AX.Uitgaand.EC.Prijzen.impl.Klanten</FormalSpec>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep=?")
+ 	Set sc=rs.Execute(Klant.AssortimentGroep)
+ 	
+	While rs.%Next() {
+		Set PRNr=rs.Data("Product") 
+		Do ..Generate(PRNr, Klant,"A")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerKlantAssortiment">
+<FormalSpec>Klant:AX.Uitgaand.EC.Prijzen.impl.Klanten</FormalSpec>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select DISTINCT Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=?")
+ 	Set sc=rs.Execute(Klant.%Id())
+
+	While rs.%Next() {
+		Set PRNr=rs.Data("Product") 
+		Do ..Generate(PRNr,Klant,"K")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PRNr:%String,Klant:AX.Uitgaand.EC.Prijzen.impl.Klanten,GeneratedFrom:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New D
+	Set D="\"
+	Set PrijsRec=$$KLANTPR^KPRIJS(Klant.%Id(),PRNr)
+	Quit:'..IsUitzonderingsPrijs(PRNr,Klant,PrijsRec)
+
+	;W PRNr," ",Klant.%Id()," ",PrijsRec,!
+	;Do DumpObject^%apiOBJ(##class(AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen).%OpenId(PRNr_"||"_Klant.PrijsGroep_"||"_Klant.CodexPer3))
+	;w !
+	Set Prijs=##class(AX.Uitgaand.EC.Prijzen.impl.KlantPrijzen).%New()
+	
+	Do Prijs.ProductSetObjectId(PRNr)
+	Do Prijs.KlantSetObjectId(Klant.%Id())
+	
+	Set Prijs.NettoPrijs=$P(PrijsRec,"\",1)
+	Set Prijs.Munt=$P(PrijsRec,"\",2)
+	Set Prijs.GrootteOrde=$P(PrijsRec,"\",3)
+	
+	Set Prijs.GeneratedFrom=GeneratedFrom
+	Set Prijs.AanmaakTijdstip=..Tijdstip
+	Do Prijs.Save()
+]]></Implementation>
+</Method>
+
+<Method name="IsUitzonderingsPrijs">
+<FormalSpec>PRNr:%String,Klant:AX.Uitgaand.EC.Prijzen.impl.Klanten,PrijsRec:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set CodexGroep=##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).GeefCodexGroep(PRNr)
+	#dim Codex as DOM.VKP.enu.PrijsCodex=Klant.GeefCodex(CodexGroep)
+	Set CodexPrijs=##class(AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen).%OpenId(PRNr_"||"_Klant.KATPrijsGroep_"||"_Codex)
+	Quit +CodexPrijs.NettoPrijs'=+$P(PrijsRec,"\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Assortiment/impl/GenerateKlantAssortiment.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Assortiment/impl/GenerateKlantAssortiment.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Assortiment/impl/GenerateKlantAssortiment.cls.xml	(revision 34387)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Assortiment.impl.GenerateKlantAssortiment">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..Tijdstip=$zdt($H,3)
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Description>
+d ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateKlantAssortiment).%New().GenerateAll()</Description>
+<Implementation><![CDATA[
+	Do ##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%DeleteExtent()
+
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Klant,AssortimentGroep from AX_Uitgaand_EC_Prijzen_impl.Klanten")
+
+ 	Set sc=rs.Execute()
+ 	
+	While rs.%Next() {
+		Do ..GeneratePerKlant(rs.Data("Klant"),rs.Data("AssortimentGroep"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeneratePerKlant">
+<FormalSpec>KLNr:%String,AssortimentGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'..KlantMagAfwijkenVanBasisAssortiment(KLNr)
+	
+	Set (UHG,UGR,USG,KortT)=0
+	For  Set UHG=$O(^KKAAP(KLNr,UHG)) Quit:UHG=""  Do
+	. For  Set UGR=$O(^KKAAP(KLNr,UHG,UGR)) Quit:UGR=""  Do
+	. . For  Set USG=$O(^KKAAP(KLNr,UHG,UGR,USG)) Quit:USG=""  Do
+	. . . For  Set KortT=$O(^KKAAP(KLNr,UHG,UGR,USG,KortT)) Quit:KortT=""  Do
+	. . . . Set PRNr=$P(^KKAAP(KLNr,UHG,UGR,USG,KortT),"\",15)
+	. . . . Do ..Generate(KLNr, PRNr, AssortimentGroep)
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>KLNr:%String,PRNr:%String,AssortimentGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:..ProductNietToegelaten(PRNr)
+	Quit:..ProductReedsInAssortiment(PRNr,AssortimentGroep)
+	
+	;w PRNr," ",$P(^KPR(PRNr,0),"\",1)," ",KLNr," ",AssortimentGroep," ",..ProductNietToegelaten(PRNr)," ",..ProductReedsInAssortiment(PRNr)
+	;w "*",!
+	Set KlantAssortiment = ##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%New()
+	Do KlantAssortiment.ProductSetObjectId(PRNr)
+	Do KlantAssortiment.KlantSetObjectId(KLNr)
+	Set KlantAssortiment.AanmaakTijdstip=..Tijdstip
+	Do KlantAssortiment.Save()
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="KlantMagAfwijkenVanBasisAssortiment">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="ProductReedsInAssortiment">
+<FormalSpec>PRNr:%String,AssortimentGroep:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set CountEntries=0
+  	&sql(DECLARE InAssortiment CURSOR FOR
+		SELECT count(*)
+		INTO :CountEntries
+		FROM AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment
+		WHERE Product=:PRNr and AssortimentGroep=:AssortimentGroep) 
+   	&sql(OPEN InAssortiment)
+  	For  &sql(FETCH InAssortiment) Quit:SQLCODE  Do
+ 	&sql(CLOSE InAssortiment)
+ 	Quit CountEntries>0
+]]></Implementation>
+</Method>
+
+<Method name="ProductNietToegelaten">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set CountEntries=0
+  	&sql(DECLARE ProdToegelaten CURSOR FOR
+		SELECT count(*)
+		INTO :CountEntries
+		FROM AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment
+		WHERE Product=:PRNr)
+   	&sql(OPEN ProdToegelaten)
+  	For  &sql(FETCH ProdToegelaten) Quit:SQLCODE  Do
+ 	&sql(CLOSE ProdToegelaten)
+ 	Quit 'CountEntries
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/Prijzen/impl/CodexPrijzen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Prijzen/impl/CodexPrijzen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Prijzen/impl/CodexPrijzen.cls.xml	(revision 34387)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Prijzen.impl.CodexPrijzen">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Product">
+<Description>
+Property Klant As Derde.Klant.Klant;</Description>
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Codex">
+<Type>DOM.VKP.enu.PrijsCodex</Type>
+</Property>
+
+<Property name="KATPrijsGroep">
+<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="AanmaakTijdstip">
+<Description>
+Property GeldigVanafAantal as %Integer;</Description>
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="ProductKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Product,KATPrijsGroep,Codex</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaand.ED1A0.CodexPrijzenD</DataLocation>
+<DefaultData>CodexPrijzenDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaand.ED1A0.CodexPrijzenD</IdLocation>
+<IndexLocation>^AX.Uitgaand.ED1A0.CodexPrijzenI</IndexLocation>
+<StreamLocation>^AX.Uitgaand.ED1A0.CodexPrijzenS</StreamLocation>
+<Data name="CodexPrijzenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Product</Value>
+</Value>
+<Value name="3">
+<Value>Codex</Value>
+</Value>
+<Value name="4">
+<Value>NettoPrijs</Value>
+</Value>
+<Value name="5">
+<Value>GrootteOrde</Value>
+</Value>
+<Value name="6">
+<Value>GeldigVanafDatum</Value>
+</Value>
+<Value name="7">
+<Value>GeldigTotDatum</Value>
+</Value>
+<Value name="8">
+<Value>AanmaakTijdstip</Value>
+</Value>
+<Value name="9">
+<Value>Munt</Value>
+</Value>
+<Value name="10">
+<Value>KlantGroep</Value>
+</Value>
+<Value name="11">
+<Value>CodexPer3</Value>
+</Value>
+<Value name="12">
+<Value>KlantPrijsGroep</Value>
+</Value>
+<Value name="13">
+<Value>PrijsGroep</Value>
+</Value>
+<Value name="14">
+<Value>Klant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>