Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r40462 -r40724
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 40462)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 40724)
@@ -401,8 +401,24 @@
  . 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()
+ . . New GADataProduct, GADataProductId,scSave
+ . . Set GADataProduct = Prod
+ . . Do GADataProduct.KPRCreate()
+ . . Set GemaaktProductId = GADataProduct.ProductGetObjectId()
+ . . 
+ . . If (GemaaktProductId '> 0) Do  Quit
+ . . . // SetStatus : Error
+ . . . Set GemaaktProductId = ""
+ . . . Do ##class(vhLib.Logger).%New().ErrorMail("KPRCreate failed","KPRCreate vanuit BL.PR.GA.TB.tmpDev2.mac is niet gelukt. "_"KPR Product not created")
+ . . ; Else 
+ . . Set scSave=GADataProduct.SaveClean() 
+ . . If $$$ISOK(scSave) Do
+ . . . Set GADataProductId = GADataProduct.%Id()
+ . . . Do ##class(Prod.Product).SetPropViaNr(GemaaktProductId,"GAProdID",GADataProductId)   ; ^KPR(PRNr,"G") --> 13e piece
+ . . Else  Do
+ . . . Set GemaaktProductId = ""
+ . . . Do ##class(vhLib.Logger).%New().ErrorMail("KPRCreate failed","GADataProduct.SaveClean() vanuit BL.PR.GA.TB.tmpDev2.mac is niet gelukt. "_$$ParseStatus^vhLib(scSave))
+ . 
  Else  Do
  . Set VKPrs="ERROR"
  . Set WSLn.Exclude=1