Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r39152 -r44344
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 39152)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 44344)
@@ -617,7 +617,7 @@
 <Description>
 Oproepen via  D ##class(Prod.GAData.Product).KPRModify(PRNr,"H",0)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%Integer,Opties:%String="H",blnSchaduw:%Boolean=0</FormalSpec>
+<FormalSpec><![CDATA[PRNr:%Integer,Opties:%String="H",blnSchaduw:%Boolean=0,&ReturnGADataProd:Prod.GAData.Product]]></FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -636,6 +636,7 @@
  . Set sc=$$$OK
  . Set GenPRNr=GADataProd.GenerischPRNr()
  . Do GADataProd.KPRCreate(GenPRNr,, .Opties,.NoSa)   ; Oppassen met NoSa --> doorgeven als ... 
+ . Set ReturnGADataProd = GADataProd
  Else  Do
  . Set Message=GADataProd.ValidPRArrayToText(.arValidPR, 0)	
  . Set sc=$$$ERROR($$$GeneralError,Message)