Index: PRBS.mac.rou
===================================================================
diff -u -r44342 -r44345
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 44342)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 44345)
@@ -468,7 +468,7 @@
  	Do REFRESH
 	Quit
 	
-RebuildBouwSteenFromWizard(NoSa)
+RebuildBouwSteenFromWizard(NoSa, GADataProd)   ; GADataProd als .local doorgeven
 	Quit:'$P(^KPR(MPRNr,"G"),"\",13)
 	Set GENTYP=$P($$GENTYP^HAD(MPRNr),"\")
 	Quit:(GENTYP'?1(1"KAD",1"PRF",1"GLA",1"TBX",1"GRP",1"TLM",1"ASM"))
@@ -482,7 +482,7 @@
 	. Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(MPRNr) ; Staffel wordt opgehaald uit de kenmerken	
 	. Do:('VersionIsFilled) ZetVersienummer(MPRNr,"")       ; terug wissen
 	Else  Do ; Normaal
-	. New sc  Set sc = ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0) ; Staffel wordt opgehaald uit de kenmerken 
+	. New sc  Set sc = ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0, .GADataProd)   ; Staffel wordt opgehaald uit de kenmerken 
 	. Do:('sc) ##class(vhLib.Logger).LogExceptie(##class(TECH.Exceptions.StatusException).%New("1000:GeneralError","KPRModify failed (PRNr="_MPRNr_")",sc))
  
 	Quit