Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r39690 -r39784
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 39690)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 39784)
@@ -30,6 +30,8 @@
  
 	New dsID,Result,Templ,arKDtl,lbDomLU,sDomVERW,sDomKLNr
 	New arValidWS
+	New GemaaktProductId
+	
 	Set lbDomLU=WS.DomainLookUp(WS.WebDomain,$LB("VERW","KLNR"))
 	Set sDomVERW=$LG(lbDomLU,1)
 	Set sDomKLNr=$LG(lbDomLU,2)
@@ -44,7 +46,8 @@
 	Do bfwCalcWSLijnen
 	  d TTraceW("Result=OK: "_sDbg)
 	  ;d WL^vhDBG("Tijd einde BldFrWS : "_$$RestartTimer^vhLib)
-	Quit	
+	Quit $listbuild(GemaaktProductId)
+		
 bfwTemplateViaLadeKL(BeperkDesignCode)   ; (Templ)
 	New klID,lbTPs,TPCode,TemplateID,blnCheckDesign   ; "dsID" is declared at a higher level 
 	Set klID=WS.Lijnen.GetNext("").ItemKL
@@ -374,6 +377,7 @@
  New D,Q,U
  Set Q="K",D="\",U=";"
  Do Prod.CalcAll()
+ 
  Kill arValidPR
  
  Set IsBeursUser=($G(Opties)["PRS=B;")
@@ -396,6 +400,9 @@
  . Set KLNrPrs=$S(sDomVERW'="VHEPN":sDomKLNr, (WS.KLNummer?1.N)&&(WS.KLNummer>0):WS.KLNummer, 1:4645)
  . Set AKPrs=$P($$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2)),"\",1)
  . Set VKPrs=$$bfwCalcVKPrijsKlant(KPrijsVH,AKPrs,GeldigeActiesVoorOrder)
+ . If $G(Opties)["KPR=1" D
+ . . Do Prod.KPRCreate()
+ . . Set GemaaktProductId = Prod.ProductGetObjectId()
  Else  Do
  . Set VKPrs="ERROR"
  . Set WSLn.Exclude=1