Index: BL/PR/GA/TB/tmpDev2.mac.rou =================================================================== diff -u -r66253 -r66832 --- BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 66253) +++ BL/PR/GA/TB/tmpDev2.mac.rou (.../tmpDev2.mac.rou) (revision 66832) @@ -410,6 +410,15 @@ . 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) + . + . New GADataProduct, TbxHelper + . Set GADataProduct = Prod + . Set TbxHelper = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct.TbxHelper).%New() + . // Enkel de DataDefinities bewaren + . If $G(Opties)["DDEFS=1" Do Quit ; Early quit, beter anders oplossen! + . . Do TbxHelper.StelInProductDataOpGADataProduct(GADataProduct, Opties) + . . Do GADataProduct.GenereerDataDefinities() + . ;Else : . If $G(Opties)["KPR=1" Do . . New GADataProduct, GADataProductId,scSave,TbxHelper . . Set GADataProduct = Prod