Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r51746 -r58662
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 51746)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 58662)
@@ -402,9 +402,11 @@
  . 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
- . . New GADataProduct, GADataProductId,scSave
+ . If $G(Opties)["KPR=1" Do
+ . . New GADataProduct, GADataProductId,scSave,TbxHelper
  . . Set GADataProduct = Prod
+ . . Set TbxHelper = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct.TbxHelper).%New()
+ . . Do TbxHelper.StelInProductDataOpGADataProduct(GADataProduct, Opties)
  . . Do GADataProduct.KPRCreate()
  . . Set GemaaktProductId = GADataProduct.ProductGetObjectId()
  . .