Index: AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGeneratorRefactored.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGeneratorRefactored.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/ProductAssortimentGeneratorRefactored.cls.xml	(revision 43360)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.ProductAssortimentGeneratorRefactored">
+<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>