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