Index: vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml
===================================================================
diff -u -r50328 -r56315
--- vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50328)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 56315)
@@ -14,6 +14,7 @@
 	Do ProductStub.IndienMethodCall("GeefKorttekst").DanReturn("RandomKorttekst")
 	Do ProductStub.IndienMethodCall("GeefNettoAankoopPrijsInclCif").DanReturn(RandomNettoAankoopPrijs)
 	Do ProductStub.IndienMethodCall("GeefGewichtInGram").DanReturn(RandomGewicht)
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(RandomProductId)
 	
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(RandomProductId)
 	
@@ -88,6 +89,7 @@
 
 <Method name="Test: RequestConverter vult velden in op basis van het gevonden Product">
 <Implementation><![CDATA[
+	#dim RandomProductId As %String = "RandomProductId"
 	#dim RandomEANCode As %String = "RandomEANCode"
 	#dim RandomKorttekst As %String = "RandomKorttekst"
 	#dim RandomNettoAankoopPrijs As %String = "RandomNettoAankoopPrijs"	
@@ -98,6 +100,7 @@
 	Do ProductStub.IndienMethodCall("GeefKorttekst").DanReturn(RandomKorttekst)
 	Do ProductStub.IndienMethodCall("GeefNettoAankoopPrijsInclCif").DanReturn(RandomNettoAankoopPrijs)
 	Do ProductStub.IndienMethodCall("GeefGewichtInGram").DanReturn(RandomGewicht)
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(RandomProductId)
 
 	#dim ProductServiceStub As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
 	Do ProductServiceStub.IndienMethodCall("GeefProduct", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(ProductStub)
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml
===================================================================
diff -u -r43294 -r56315
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 43294)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 56315)
@@ -8,6 +8,13 @@
 <Super>WSimpl.AX.CalculatedProduct.RequestConverter,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>ProductService:WSimpl.AX.CalculatedProduct.ProductService="",VariantDescriptionBepaler:WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler="",BouwstenenConverter:WSimpl.AX.CalculatedProduct.BouwstenenConverter="",SourcingDataAreaIdBepaler:WSimpl.AX.CalculatedProduct.SourcingDataAreaIdBepaler="",Formatter:AXimpl.Formatter="",AfbeeldingService:WSimpl.AX.CalculatedProduct.AfbeeldingService=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,MessageId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityConfigVariant</ReturnType>
Index: WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml
===================================================================
diff -u -r52886 -r56315
--- WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 52886)
+++ WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml	(.../RequestConverter.cls.xml)	(revision 56315)
@@ -99,6 +99,11 @@
 		Set ConfigVariant.SourcingDataAreaId = ..SourcingDataAreaIdBepaler.Bepaal(Product)
 		Set ConfigVariant.Image = ..AfbeeldingService.GeefAfbeeldingPad(Product)
 		Set ConfigVariant.Weight = ..Formatter.FormatNumber(Product.GeefGewichtInGram(), 2)
+		
+		#dim AdminProductNummerAttribute As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityAttribute).%New()
+		Set AdminProductNummerAttribute.Name = "AdminProductNummer"
+		Set AdminProductNummerAttribute.ValueTxt = Product.GeefPRNr()
+		Do ConfigVariant.Attribute.Insert(AdminProductNummerAttribute)
 	}
 	
 	Quit ConfigVariant