Index: AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml
===================================================================
diff -u -r46271 -r46424
--- AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 46271)
+++ AX/Uitgaand/PM/Assortimenten/impl/ProductCategorieGenerator.cls.xml	(.../ProductCategorieGenerator.cls.xml)	(revision 46424)
@@ -81,7 +81,7 @@
 <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 KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')")
+	Do rs.Prepare("SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')")
  	Do rs.Execute()
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
@@ -110,12 +110,19 @@
 <FormalSpec>PRNr:%String,Excluded:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim AssortimentGroep,IdentNr As %String
+	#dim AssortimentGroep,IdentNr,KortTekst,LeverancierNummer As %String
 	
 	Set IdentNr=$$$PRGet($$$IdentNummer)
-	Set AssortimentGroep=..CategorieBepaler.GeefAssortiment(PRNr)
-	Do ..Stream.WriteLine("Assortiment"_";"_..CategorieBepaler.VertaalAssortimentGroep(AssortimentGroep)_";"_IdentNr)
+	Set KortTekst=$$$PRGet($$$KortTekst)
+	Set LeverancierNummer=$$$PRGet($$$LeveranciersNr)
 	
+	If (($Extract(KortTekst,1,3)="GEN") && (LeverancierNummer = "6332")) {
+		Do ..Stream.WriteLine("Retail;Maatwerk;"_IdentNr)
+	} Else {
+		Set AssortimentGroep=..CategorieBepaler.GeefAssortiment(PRNr)
+		Do ..Stream.WriteLine("Assortiment"_";"_..CategorieBepaler.VertaalAssortimentGroep(AssortimentGroep)_";"_IdentNr)
+	}
+	
 	#dim ProductNr As %String = PRNr
 	#dim AxEntiteit As %String = "ProductCategorie"
 	#dim Vestiging As %String = "VHBE"