Index: BL/FOP/Prod/Product.cls.xml
===================================================================
diff -u -r29059 -r30626
--- BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 29059)
+++ BL/FOP/Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 30626)
@@ -115,15 +115,23 @@
 	#define TestPrijsLijst   (KLNr=4682)&&(Basis="P")
 	#define TestKlant        (KLNr?1(1"4682",1"5005"))
 	
-	New Ref,RecJ,arTxt,KlantRef,blImage,ImageUrl,ImageType,CodeMaatwerk
+	New Ref,RecJ,arTxt,KlantRef,blImage,ImageUrl,ImageType,CodeMaatwerk,CodeMaatwerkVermelden
 	Set Ref=$NA(^KPR(PRNr))
 	Set:'$D(@Ref) Ref=$NA(^KPRO(PRNr))
 	Quit:'$D(@Ref)
 	Set RecJ=$O(@Ref@("J")) Quit:$E(RecJ)'="J"
 	Set RecJ=$G(@Ref@(RecJ))
 	Quit:RecJ=""
-	Set CodeMaatwerk=$$BARCODE^HAD(PRNr,"F")
-	Set ..IDENTNR=$S($L(CodeMaatwerk):CodeMaatwerk, 1:$P(@Ref@(2),"\",25))
+	
+	#define TaorboxLosseComponenten "04BX06TAX"
+	
+	new ClassificatieNode,Groep 
+	set CodeMaatwerk= $$BARCODE^HAD(PRNr,"F")
+	set ClassificatieNode = $O(@Ref@("I"))
+	set Groep = $select($$$StartsWith(ClassificatieNode,"I"):$P($G(@Ref@(ClassificatieNode)),"\",2),1:"")
+	set CodeMaatwerkVermelden = $L(CodeMaatwerk) && $$$Not(Groep[$$$TaorboxLosseComponenten)
+	
+	Set ..IDENTNR=$S(CodeMaatwerkVermelden:CodeMaatwerk, 1:$P(@Ref@(2),"\",25))
 	Set ..KORTTEKST=$P(@Ref@(0),"\",1)
 	Set ..EANCode=$P(@Ref@(2),"\",14)
 	Set ..STOCK=$S($P(@Ref@(1),"\",20):"S",1:"N")