Index: vhUnitTest/WSimpl/AX/CalculatedProduct/Converter/Test.cls.xml
===================================================================
diff -u -r43012 -r43021
--- vhUnitTest/WSimpl/AX/CalculatedProduct/Converter/Test.cls.xml	(.../Test.cls.xml)	(revision 43012)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/Converter/Test.cls.xml	(.../Test.cls.xml)	(revision 43021)
@@ -40,6 +40,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: MessageId is gelijk voor alle ConfigVarianten">
+<Implementation><![CDATA[
+	#dim DummyCalculatedProductIn As AXif.Dynamics.CalculatedProductIn.Envelope = ##class(AXif.Dynamics.CalculatedProductIn.Envelope).%New()
+	#dim DummyRequest As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New()
+	
+	Do DummyCalculatedProductIn.Body.MessagePart.MessagePart.Request.Insert(DummyRequest)
+	Do DummyCalculatedProductIn.Body.MessagePart.MessagePart.Request.Insert(DummyRequest)
+	
+	#dim RandomMessageId As %String = "RandomMessageId"
+	#dim CalculatedProductOut As AXif.Dynamics.CalculatedProductOut.Envelope = ..Converter.Convert(DummyCalculatedProductIn, RandomMessageId)
+	
+	Do $$$AssertEquals(CalculatedProductOut.Body.MessagePart.MessagePart.ConfigVariant.GetAt(1).MessageId, RandomMessageId)
+	Do $$$AssertEquals(CalculatedProductOut.Body.MessagePart.MessagePart.ConfigVariant.GetAt(2).MessageId, RandomMessageId)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Converter geeft onbewerkte velden terug">
 <Implementation><![CDATA[
 	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New()
Index: WSimpl/AX/CalculatedProduct/Converter.cls.xml
===================================================================
diff -u -r43013 -r43021
--- WSimpl/AX/CalculatedProduct/Converter.cls.xml	(.../Converter.cls.xml)	(revision 43013)
+++ WSimpl/AX/CalculatedProduct/Converter.cls.xml	(.../Converter.cls.xml)	(revision 43021)
@@ -18,6 +18,8 @@
 		#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = RequestIterator.Next()
 		#dim ConfigVariant As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityConfigVariant = ..ConvertRequest(Request)
 		
+		Set ConfigVariant.MessageId = MessageId
+		
 		Do CalculatedProductOut.Body.MessagePart.MessagePart.ConfigVariant.Insert(ConfigVariant)
 	}