Index: AX/Uitgaand/PM/Assortimenten/impl/AssortimentCategorieBepaler.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/AssortimentCategorieBepaler.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/AssortimentCategorieBepaler.cls.xml	(revision 42974)
@@ -0,0 +1,187 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="GenerationID">
+<Description>
+Property BestandGenerator As APPS.common.Rapport.impl.BestandGenerator [ Private ];</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="test">
+<Description>
+D ##class(AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler).test(5632)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	s bl=..%New()
+	w PRNr," ",$$$PRGet($$$KortTekst)," ",bl.GeefAssortiment(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortiment">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set AssortimentCategorie=""
+	
+	Set VervangPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Set:(VervangPRNr'="") PRNr=VervangPRNr
+
+	Set LinkType=$$$PRGet($$$LinkType)
+		
+	If ..ExistProductInBasisAssortiment(PRNr,"KS")
+	{
+		Set AssortimentCategorie="KS"
+		If $E($$$PRGet($$$IdentNummer))="8"
+		{
+			Set AssortimentCategorie="Klantgebonden"
+		}
+	}
+	ElseIf ..ExistProductInBasisAssortiment(PRNr,"Industrie")
+	{
+		Set AssortimentCategorie="IP"
+		If $E($$$PRGet($$$IdentNummer))="8"
+		{
+			Set AssortimentCategorie="Klantgebonden"
+		}
+	}
+	ElseIf $E($$$PRGet($$$IdentNummer))="K"
+	{
+		Set AssortimentCategorie="DKG"
+	}
+	ElseIf $E($$$PRGet($$$IdentNummer))="8"
+	{
+			Set AssortimentCategorie="Klantgebonden"
+	}
+	ElseIf (LinkType="K")||($E(LinkType)="H")||($P(LinkType,"\",23)="V") ; Kind, Halfabr,Verpakking
+ 	{
+			Set AssortimentCategorie="Componenten"
+	}
+	Else
+	{
+		If $$$PRGet($$$SubGroep)["FAC/KL"
+		{
+			Set AssortimentCategorie="Werkkledij"
+		}
+		Else 
+		{
+			Set AssortimentCategorie="Niet verkoopbaar"
+		}
+	}
+	Quit AssortimentCategorie
+]]></Implementation>
+</Method>
+
+<Method name="ExistProductInBasisAssortiment">
+<FormalSpec>PRNr,Groep</FormalSpec>
+<Implementation><![CDATA[	 Quit ##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_Groep)
+]]></Implementation>
+</Method>
+
+<Method name="VertaalAssortimentGroep">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AssortimentGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:AssortimentGroep="IP" "2. IP producten"
+	Quit:AssortimentGroep="Klantgebonden" "3. Klantref 1 op N (klantgebonden producten"
+	Quit:AssortimentGroep="DKG" "4. Kundenstamm DKG producten"
+	Quit:AssortimentGroep="Componenten" "5. Componenten"
+	Quit:AssortimentGroep="NietVerkoopbaar" "6. Niet verkoopbare producten"
+	Quit:AssortimentGroep="Werkkledij" "6. Niet verkoopbare producten||Werkkledij"
+	Quit "1. KS producten"
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ClassMethod IsVerkoopbaarProduct(PRNr As %String) As %String [ ProcedureBlock = 0 ]
+{
+	
+ ; 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=$G(^KPR(PRNr,0)) Quit:R="" "No Rec0"
+ Set KortT=$P(^KPR(PRNr,0),"\",1),GenProd=$P(R,"\",3)
+ Quit:GenProd'="" "Gen/Afg"
+ Quit:$E(KortT,1,2)="IO" "OL op maat"
+ 
+ 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)=8) "Klant specifiek"
+ Quit:(($E(IDNr)'=0)&&($E(IDNr)'=9)) "No SOPR"
+
+ Quit Ok
+}
+
+Method IsBeschikbaarVoorKS(PRNr As %String) As %Boolean [ Private ]
+{
+  	Quit:$$ISPROD^KS(PRNr) 1
+ 	Quit 0
+}
+
+Method IsBeschikbaarVoorHandel(PRNr As %String) As %Boolean [ Private ]
+{
+ 	Quit:$$ISPROD^KS(PRNr) 1
+ 	Quit 0
+}
+
+/// w ##class(AX.Uitgaand.EC.Assortiment.impl.GenerateBasisAssortiment).CheckKlas(523224)
+ClassMethod CheckKlas(PRNr As %String) [ ProcedureBlock = 0 ]
+{
+ 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
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml
===================================================================
diff -u -r42728 -r42974
--- AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 42728)
+++ AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 42974)
@@ -78,13 +78,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Use 0
-	Set ..DeviceProducten=$$OPEN^vhDEV(,"ArtikelLijstProducten.txt","W","T")
+	Set ..DeviceProducten=$$OPEN^vhDEV(,"ArtikelLijstProducten.csv","W","T")
 	Use ..DeviceProducten
-	Write "InventDimId	ItemId	ItemListTable	SalesQty	SalesUnit",!
+	Write "InventDimId;ItemId;ItemListTable;SalesQty;SalesUnit",!
 	Use 0
-	Set ..DeviceKlanten=$$OPEN^vhDEV(,"ArtikelLijstKlanten.txt","W")
+	Set ..DeviceKlanten=$$OPEN^vhDEV(,"ArtikelLijstKlanten.csv","W")
 	Use ..DeviceKlanten
-	Write "CustAccount	Description	ItemListId",!
+	Write "CustAccount;Description;ItemListId",!
 ]]></Implementation>
 </Method>
 
@@ -116,7 +116,6 @@
 	. . . 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)
-	. . . . w PRNr,!
 	. . . . Quit:'..CheckProduct(PRNr)
 	. . . . Set PRNr=..VervangIndienSOPR(PRNr)
 	. . . . Quit:PRNr=""
@@ -132,21 +131,21 @@
 	Set IdentNr=$$$PRGet($$$IdentNummer)
 	Use ..DeviceProducten
 	Write "AllBlank"
-	;Write $$$PRGet($$$KortTekst)
-	Write *9,IdentNr,*9,..GeefTableID(),*9,1,*9,"STK",*9,!
+	;Write ";",$$$PRGet($$$KortTekst)
+	Write ";",IdentNr,";",..GeefTableID(),";",1,";","STK",";",!
 ]]></Implementation>
 </Method>
 
 <Method name="ToevoegenKlant">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Use ..DeviceKlanten
-	Write ..GeefKlantIDInAXFormaat(),*9,"Verkoopanalyse",*9,..GeefTableID(),!
+	Write ..GeefKlantIDInAXFormaat(),";","Verkoopanalyse",";",..GeefTableID(),!
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKlantIDInAXFormaat">
-<Implementation><![CDATA[	Quit $E(..KlantID+100000,2,10)
+<Implementation><![CDATA[	Quit $E(..KlantID+100000,2,6)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGenerator.cls.xml	(revision 42974)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.ProductAssortimentGenerator">
+<ClassType/>
+<IncludeCode>Prod.Product,BL.Derde.KlantSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CategorieBepaler">
+<Type>AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeviceProducten">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+ Do ##class(AX.Uitgaand.PM.Assortimenten.impl.ProductAssortimentGenerator).%New().ExportAll()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+ 	Set ..CategorieBepaler=##class(AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenFiles()
+	
+	Set itProduct=..ProductIterator()
+	While itProduct.HasNext() {
+		Set rs=itProduct.Next()
+		Set PRNr=rs.Data("ID")
+		Do ..ExportProduct(PRNr)
+	}
+	Do ..CloseFiles()
+]]></Implementation>
+</Method>
+
+<Method name="ProductIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%' AND (isnull(NonAktief,0) = 0 or NonAktief=2)")
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="OpenFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Use 0
+	Set ..DeviceProducten=$$OPEN^vhDEV(,"AssortimentProducten.csv","W","T")
+	Use ..DeviceProducten
+	Write "Hierarchy;HierarchyNode;ItemId",!
+	Use 0
+]]></Implementation>
+</Method>
+
+<Method name="CloseFiles">
+<Private>1</Private>
+<Implementation><![CDATA[	Do CLOSE^vhDEV(..DeviceProducten)
+]]></Implementation>
+</Method>
+
+<Method name="ExportProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PRNr=..VervangIndienSOPR(PRNr)
+	If PRNr'=""
+	{
+			Do ..ToevoegenArtikel(PRNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenArtikel">
+<FormalSpec>PRNr:%String,Excluded:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IdentNr=$$$PRGet($$$IdentNummer)
+	Use ..DeviceProducten
+	Set AssortimentGroep=..CategorieBepaler.GeefAssortiment(PRNr)
+	Write "Assortiment",";",..CategorieBepaler.VertaalAssortimentGroep(AssortimentGroep),";",IdentNr,";",$$$PRGet($$$KortTekst),!
+]]></Implementation>
+</Method>
+
+<Method name="VervangIndienSOPR">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set VervangPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Quit:(VervangPRNr="") PRNr
+	Quit:VervangPRNr'=PRNr ""
+	Quit VervangPRNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGenerator.cls.xml	(revision 42974)
@@ -0,0 +1,318 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.KlantenAssortimentGenerator">
+<ClassType/>
+<IncludeCode>Prod.Product,BL.Derde.KlantSpecifiek</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CategorieBepaler">
+<Type>AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KLNr">
+<Description>
+Property AssortimentGroep As %String;</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="DeviceProducten">
+<Type>%String</Type>
+</Property>
+
+<Property name="DeviceKlanten">
+<Type>%String</Type>
+</Property>
+
+<Property name="CurrentTableID">
+<Type>%String</Type>
+</Property>
+
+<Property name="CounterTableID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="arGroep">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="arVervangProd">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+ Do ##class(AX.Uitgaand.PM.Assortimenten.impl.KlantenAssortimentGenerator).%New().ExportAll()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+ 	Set ..CategorieBepaler=##class(AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportAll">
+<Implementation><![CDATA[
+	Do ..OpenFiles()
+	
+	Set itKlant=..KlantIterator()
+	While itKlant.HasNext() {
+		Set rs=itKlant.Next()
+		Set ..KLNr=rs.Data("Klant")
+		Continue:'((..KLNr=4810)||(..KLNr=23112)||(..KLNr=1736))
+		Do ..ExportKlant()
+	}
+
+	Do ..CloseFiles()
+]]></Implementation>
+</Method>
+
+<Method name="ExportKlant">
+<Implementation><![CDATA[
+	
+	Do ..BepaalAssortimentGroep()
+	;w ..KLNr," ",..AssortimentGroep,!
+	If (..HeeftUitzonderingen())||(..AssortimentGroep'="KS")
+	{
+		Do ..ExportAssortimentKlant()
+		Do ..ExportAssortimentGroep()
+		Do ..ExportUitzonderingen()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAssortimentGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ..KLNr=$$$KlantDKGDeKeukenfabriek {
+		Set ..AssortimentGroep="DKG"
+	} ElseIf ..KLNr=$$$KlantHalux { 
+		Set ..AssortimentGroep="IC"
+	} Else {
+		Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..GenerationID_"||"_..KLNr)
+		If Klant.GeefAssortimentSleutel()="Industrie" {
+			Set ..AssortimentGroep="IP"
+		} Else {
+			Set ..AssortimentGroep="KS"
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HeeftUitzonderingen">
+<Implementation><![CDATA[
+	Set it=..GeefUitzonderingIterator()
+	Quit it.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitzonderingIterator">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Product ,Excluded from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=? and isnull(Excluded,0)=0")
+	
+ 	Set sc=rs.Execute(..KLNr,..GenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="KlantIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select Klant from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=?")
+	
+ 	Set sc=rs.Execute(..GenerationID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="OpenFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Use 0
+	Set ..DeviceProducten=$$OPEN^vhDEV(,"AssortimentProducten.csv","W","T")
+	Use ..DeviceProducten
+	Write "ItemListId;ItemType;ItemId",!
+	Use 0
+	Set ..DeviceKlanten=$$OPEN^vhDEV(,"AssortimentKlanten.csv","W")
+	Use ..DeviceKlanten
+	Write "ItemListId;CustAccount;Description",!
+]]></Implementation>
+</Method>
+
+<Method name="CloseFiles">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do CLOSE^vhDEV(..DeviceProducten)
+	Do CLOSE^vhDEV(..DeviceKlanten)
+]]></Implementation>
+</Method>
+
+<Method name="ExportAssortimentKlant">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ClearTableID()
+	Do ..ClearAssortimentGroep()
+	Use ..DeviceKlanten
+	Write ..GeefTableID(),";",..GeefKlantIDInAXFormaat(),!
+]]></Implementation>
+</Method>
+
+<Method name="ExportAssortimentGroep">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..AssortimentGroep="IP"
+	{
+		Do ..ToevoegenAssortimentGroep("KS")
+		Do ..ToevoegenAssortimentGroep("IP")
+	}
+	ElseIf ..AssortimentGroep="DKG"
+	{
+		Do ..ToevoegenAssortimentGroep("KS")
+		Do ..ToevoegenAssortimentGroep("IP")
+		Do ..ToevoegenAssortimentGroep("DKG")
+	}
+	ElseIf ..AssortimentGroep="IC"
+	{
+		Do ..ToevoegenAssortimentGroep("KS")
+		Do ..ToevoegenAssortimentGroep("IP")
+		Do ..ToevoegenAssortimentGroep("DKG")
+		Do ..ToevoegenAssortimentGroep("Componenten")
+		Do ..ToevoegenAssortimentGroep("NietVerkoopbaar")
+	}
+	Else
+	{
+		Do ..ToevoegenAssortimentGroep("KS")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenAssortimentGroep">
+<FormalSpec>AssortimentGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Use ..DeviceProducten
+	Do ..OnthoudenAssortimentGroep(AssortimentGroep)
+	Write ..GeefTableID(),";",..CategorieBepaler.VertaalAssortimentGroep(AssortimentGroep),";;","Opnemen",!
+]]></Implementation>
+</Method>
+
+<Method name="ExportUitzonderingen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ClearSOPR()
+	Set it=..GeefUitzonderingIterator()
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		Set PRNr=rs.Data("Product")
+		Set PRNr=..VervangIndienSOPR(PRNr)
+		If PRNr'=""
+		{
+			If ..IsGeldigUitzonderingsProduct(PRNr)
+			{
+				Do ..ToevoegenArtikel(PRNr,rs.Data("Excluded"))
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigUitzonderingsProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set AssortimentGroep=..CategorieBepaler.GeefAssortiment(PRNr)
+	Quit '..IsOnthoudenAssortimentGroep(AssortimentGroep)
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenArtikel">
+<FormalSpec>PRNr:%String,Excluded:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IdentNr=$$$PRGet($$$IdentNummer)
+	Use ..DeviceProducten
+	Write ..GeefTableID(),";;",IdentNr,";",$S(Excluded:"Niet opnemen",1:"Opnemen"),";",PRNr,!
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantIDInAXFormaat">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $E(..KLNr+100000,2,6)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTableID">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..CurrentTableID="" 
+	{
+		Set ..CurrentTableID="AS"_..GeefKlantIDInAXFormaat()_"a"
+	}
+	Quit ..CurrentTableID
+]]></Implementation>
+</Method>
+
+<Method name="ClearTableID">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..CurrentTableID=""
+]]></Implementation>
+</Method>
+
+<Method name="VervangIndienSOPR">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set VervangPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Quit:(VervangPRNr="") PRNr
+	
+	Quit:$D(..arVervangProd(VervangPRNr)) "" ; reeds verwerkt
+	Set ..arVervangProd(VervangPRNr)=""
+	Quit VervangPRNr
+]]></Implementation>
+</Method>
+
+<Method name="ClearSOPR">
+<Implementation><![CDATA[	Kill ..arVervangProd
+]]></Implementation>
+</Method>
+
+<Method name="OnthoudenAssortimentGroep">
+<FormalSpec>Groep:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..arGroep(Groep)=""
+]]></Implementation>
+</Method>
+
+<Method name="IsOnthoudenAssortimentGroep">
+<FormalSpec>Groep:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ''$D(..arGroep(Groep))
+]]></Implementation>
+</Method>
+
+<Method name="ClearAssortimentGroep">
+<Implementation><![CDATA[	Kill ..arGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>