Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r1875 -r1894
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 1875)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 1894)
@@ -582,7 +582,7 @@
 	Quit:(GADataID="") ""
 	Set GENTYP=$P(##class(Prod.Product).GetPropViaNr(PRNr,"GENTYP"),"\",1)   ; Geeft TBX, KAD, BAN, ... terug naargelang het product
 	
-	If (GENTYP?1(1"KAD")) Do  Quit
+	If (GENTYP?1(1"KAD",1"PRF",1"GLA")) Do  Quit
 	. Set sc=##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(PRNr,.QtyStaffel)
 	// Else  
 
@@ -658,7 +658,7 @@
 		
 		Do ##class(APPS.PM.Maatwerk.KenmerkConversie).ConverteerProductToIK(Convertor,Product,Familie,Variant,PRNr)
 	}
-	ElseIf GenType="KAD" 
+	ElseIf GenType="KAD"   ; bij "PRF" of "GLA" wordt de KenmerkenConversie niet uitgevoerd (?) 
 	{
 		// wordt opgeroepen vanuit de Prod.GADef.KaderDeur klasse zelf 
 	}
@@ -690,7 +690,7 @@
  . Set:(..Val("VERPAK"))="X" GenPRNr=209369   ; GEN.HALTBPO - Probox met onderdelen      - PROBOX zelfde genprnr als ProCom  (Added by WimV on 30/05/2011,  advised by PaulV) 
  . Set:(..Val("VERPAK"))="Y" GenPRNr=209370   ; GEN.HALTBPC - Probox zonder onderdelen   - PROBOX zelfde genprnr als ProCom  (Added by WimV on 30/05/2011,  advised by PaulV) 
  . Set:(..Val("KLAS")="B") GenPRNr=131884     ; GEN.HALBB BuroBOX
- Else  If GenType="KAD"  Do
+ Else  If GenType?1(1"KAD",1"PRF",1"GLA")  Do
  . ; klasse Prod.GADef.KaderDeur              ; GEN.HALUXP4  of varianten
  . Set GenPRNr=##class(Prod.GADef.KaderDeur).GenerischPRNrViaParam(..Val("TP"),..Val("PT"),..Val("PRW"))
  Else  If GenType="GRP"  Set GenPRNr=$S($E(..Val("DS"))="K":95902,1:93260)    ; GEN.HALGRP  greep op maat  OF  GEN.HALPM voor kleerkastdragers
Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r1842 -r1894
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 1842)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 1894)
@@ -1299,7 +1299,7 @@
 	Set KadID=$P(^KPR(PRNr,"G"),"\",13)
 	Quit:('KadID) $$$OK
 	Set GENTYP=$P(##class(Prod.Product).GetPropViaNr(PRNr,"GENTYP"),"\",1)   ; Geeft TBX, KAD, BAN, ... terug naargelang het product
-	Quit:(GENTYP'?1(1"KAD")) $$$OK
+	Quit:(GENTYP'?1(1"KAD",1"PRF",1"GLA")) $$$OK
 	
 	  d WL^vhDBG("KadID="_KadID_"  GenType"_GENTYP)
 	
Index: PRBS.mac.rou
===================================================================
diff -u -r1880 -r1894
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1880)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1894)
@@ -429,13 +429,14 @@
 	
 RebuildBouwSteenFromWizard(NoSa)
 	Quit:'$P(^KPR(MPRNr,"G"),"\",13)
-	Set GENTYP=$P($$GENTYP^HAD(MPRNr),"\")=""
-	Quit:(GENTYP?1(1"KAD",1"TBX",1"GRP",1"TLM",1"ASM"))
+	Set GENTYP=$P($$GENTYP^HAD(MPRNr),"\")
+	Quit:(GENTYP'?1(1"KAD",1"PRF",1"GLA",1"TBX",1"GRP",1"TLM",1"ASM"))
 	Quit:$D(^PRBS("BS",MPRNr))=""
-	Quit:$G(NoSa)'="S"&&(GENTYP?1(1"KAD")) ; Kaderdeur is niet mogelijk bij normale prijs
+	Quit:$G(NoSa)'="S"&&(GENTYP?1(1"KAD",1"PRF",1"GLA")) ; Kaderdeur is niet mogelijk bij normale prijs
 	Set VersionIsFilled=($P(^PRBS("BS",MPRNr),"\",3)'="")
 	Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="v9.9.9" ; tijdelijk opzetten om de KPRCreate te kunnen uitvoeren
 	If $G(NoSa)="S" Do
+	. 	  d WLIP^vhDBG(97,"KPRCreateSchaduwViaPRNr")
 	. Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(MPRNr) ; Staffel wordt opgehaald uit de kenmerken	
 	. Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="" ; terug wissen
 	Else  Do ; Normaal