Index: PRBS.mac.rou
===================================================================
diff -u -r1932 -r1961
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1932)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1961)
@@ -432,16 +432,19 @@
 	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",1"PRF",1"GLA")) ; Kaderdeur is niet mogelijk bij normale prijs
 	Set VersionIsFilled=($P($G(^PRBS("BS",MPRNr)),"\",3)'="")
-	Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="v9.9.9" ; tijdelijk opzetten om de KPRCreate te kunnen uitvoeren
+	Quit:('VersionIsFilled)&&($G(NoSa)'="S")&&(GENTYP?1(1"KAD",1"PRF",1"GLA")) ; Kaderdeur zonder PRBS-versie rebuilden is niet mogelijk bij normale prijs  (modified by WimV on 01/09/2011) 
+ 
+	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
 	. Do ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0) ; Staffel wordt opgehaald uit de kenmerken		
+ 
 	Quit
+ 
 	 
 ASKSAVE(Input)
  New OldInput