Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r66832 -r66849
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 66832)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 66849)
@@ -418,6 +418,7 @@
  . If $G(Opties)["DDEFS=1" Do  Quit   ; Early quit, beter anders oplossen! 
  . . Do TbxHelper.StelInProductDataOpGADataProduct(GADataProduct, Opties)
  . . Do GADataProduct.GenereerDataDefinities()
+ . . Set GemaaktProductId = GADataProduct.ProductGetObjectId()
  . ;Else : 
  . If $G(Opties)["KPR=1" Do
  . . New GADataProduct, GADataProductId,scSave,TbxHelper