Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml
===================================================================
diff -u -r45066 -r45512
--- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml	(.../64938.xml)	(revision 45066)
+++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestOl/64938.xml	(.../64938.xml)	(revision 45512)
@@ -51,19 +51,23 @@
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Verdeling flessen met inox schaal, korpus 30, inox, L = 50 cm</Description>
       <LanguageId>nl-be</LanguageId>
+      <Name>OO.VLFV30INVLAKVERD</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Pièce de séparation pour tiroir à bouteilles,K=30,inox,L=50 cm</Description>
       <LanguageId>fr</LanguageId>
+      <Name>OO.VLFV30INVLAKVERD</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <LanguageId>en-us</LanguageId>
+      <Name>OO.VLFV30INVLAKVERD</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <LanguageId>de</LanguageId>
+      <Name>OO.VLFV30INVLAKVERD</Name>
     </VariantDescription>
   </ConfigVariant>
 </AxdADUMsgBOMBOLInQuery>
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTbx/777573.xml
===================================================================
diff -u -r45066 -r45512
--- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTbx/777573.xml	(.../777573.xml)	(revision 45066)
+++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTbx/777573.xml	(.../777573.xml)	(revision 45512)
@@ -105,21 +105,25 @@
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Tandembox lade M D:500xB:564;bodem:Terrazwart zijkant:Terrazwart;Antaro bevat: gemont. lade;glijder 30kg blumotion int.;frontbevest. INSERTA afdekkappen verpakt: karton</Description>
       <LanguageId>nl-be</LanguageId>
+      <Name>TB8MAI.A45F500x564   TSBZ</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Tiroir M Tandembox P:500xL:564;Fond:Noir;côté:Terranoir;Antaro contient: tiroir monté;extension totale 30kg blumotion i.;attache façade INSERTA;caches emballé: carton</Description>
       <LanguageId>fr</LanguageId>
+      <Name>TB8MAI.A45F500x564   TSBZ</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Drawer M Tandembox D:500xW:564;Chipboard:Black;side:Terrablack Antaro contains: premounted drawer Full extension 30kg;blumotion i. fixation Inserta;coverplate packed: box</Description>
       <LanguageId>en-us</LanguageId>
+      <Name>TB8MAI.A45F500x564   TSBZ</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>Schubkasten M Tandembox D:500xB:564;Fachenboden:Schwarz side:Terraschwarz;Antaro beinhaltet: fertigschubkasten Vollauszug 30kg;blumotion int. frontbefest. INSERTA;abdeckkappe verpackt: karton</Description>
       <LanguageId>de</LanguageId>
+      <Name>TB8MAI.A45F500x564   TSBZ</Name>
     </VariantDescription>
   </ConfigVariant>
 </AxdADUMsgBOMBOLInQuery>
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml
===================================================================
diff -u -r45066 -r45512
--- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml	(.../1014463.xml)	(revision 45066)
+++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml	(.../1014463.xml)	(revision 45512)
@@ -133,21 +133,25 @@
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>LEGRABOX lade M D:500xB:564; bodem:Wit; ladezijkant:Zijdewit; bevat: gemont. lade; corpusprofiel 40kg; BLUMOTION; frontbevest. EXPANDO verpakt: Probox</Description>
       <LanguageId>nl-be</LanguageId>
+      <Name>LB4M/E ABAC500x564 X SWWI</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>LEGRABOX tiroir M P:500xL:564; fond:Blanc; côté de tiroir:Blanc soie; contient: tiroir monté; coulisses corps de meuble 40kg; BLUMOTION; attache façade EXPANDO emballé: Probox</Description>
       <LanguageId>fr</LanguageId>
+      <Name>LB4M/E ABAC500x564 X SWWI</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>LEGRABOX drawer M D:500xW:564; base:White; drawer side:Silk white; contains: premounted drawer; cabinet profiles 40kg; BLUMOTION; fixation expando packed: Probox</Description>
       <LanguageId>en-us</LanguageId>
+      <Name>LB4M/E ABAC500x564 X SWWI</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>LEGRABOX Schubkasten M T:500xB:564; Boden:Weiss; Zarge:Seidenweiss; beinhaltet: fertigschubkasten; Korpusschienen 40kg; BLUMOTION; frontbefest EXPANDO verpackt: Probox</Description>
       <LanguageId>de</LanguageId>
+      <Name>LB4M/E ABAC500x564 X SWWI</Name>
     </VariantDescription>
   </ConfigVariant>
 </AxdADUMsgBOMBOLInQuery>
\ No newline at end of file
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml
===================================================================
diff -u -r44839 -r45512
--- vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 44839)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 45512)
@@ -3,16 +3,18 @@
 <Class name="vhUnitTest.WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Langtekst wordt opgehaald voor 4 talen">
+<Method name="Test: Korttekst en Langtekst voor 4 talen worden opgehaald ">
 <Implementation><![CDATA[
+	#dim RandomKorttekst As %String = "RandomKorttekst"
 	#dim RandomVertalingNederlands As %String = "RandomVertalingNederlands"
 	#dim RandomVertalingFrans As %String = "RandomVertalingFrans"
 	#dim RandomVertalingEngels As %String = "RandomVertalingEngels"
 	#dim RandomVertalingDuits As %String = "RandomVertalingDuits"
-	
+
 	#dim VariantDescriptionBepaler As WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler = ##class(WSimpl.AX.CalculatedProduct.VariantDescriptionBepaler).%New()
 	#dim ProductMock As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
 	
+	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(RandomKorttekst)
 	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Nederlands(), 1).DanReturn(RandomVertalingNederlands)
 	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Frans(), 1).DanReturn(RandomVertalingFrans)
 	Do ProductMock.VerwachtMethodCall("GeefLangtekst", ##class(DOM.enu.Taal).Engels(), 1).DanReturn(RandomVertalingEngels)
@@ -22,22 +24,23 @@
 	
 	Do $$$AssertEquals(VariantDescriptionList.Count(), 4)
 	
-	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(1), "nl-be", RandomVertalingNederlands)
-	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(2), "fr", RandomVertalingFrans)
-	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(3), "en-us", RandomVertalingEngels)
-	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(4), "de", RandomVertalingDuits)
+	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(1), RandomKorttekst, "nl-be", RandomVertalingNederlands)
+	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(2), RandomKorttekst, "fr", RandomVertalingFrans)
+	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(3), RandomKorttekst, "en-us", RandomVertalingEngels)
+	Do ..AssertVariantDescription(VariantDescriptionList.GetAt(4), RandomKorttekst, "de", RandomVertalingDuits)
 	
 	Do ProductMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="AssertVariantDescription">
-<FormalSpec>VariantDescription:AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription,LanguageId:%String,Description:%String</FormalSpec>
+<FormalSpec>VariantDescription:AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription,VerwachteName:%String,VerwachteLanguageId:%String,VerwachteDescription:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertTrue(VariantDescription.%IsA("AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription"))
-	Do $$$AssertEquals(VariantDescription.LanguageId, LanguageId)
-	Do $$$AssertEquals(VariantDescription.Description, Description)
+	Do $$$AssertEquals(VariantDescription.LanguageId, VerwachteLanguageId)
+	Do $$$AssertEquals(VariantDescription.Description, VerwachteDescription)
+	Do $$$AssertEquals(VariantDescription.Name, VerwachteName)
 	Do $$$AssertEquals(VariantDescription.class, "entity")
 ]]></Implementation>
 </Method>
Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml
===================================================================
diff -u -r45066 -r45512
--- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml	(.../1648504.xml)	(revision 45066)
+++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml	(.../1648504.xml)	(revision 45512)
@@ -161,21 +161,25 @@
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>TA'OR BOX lade M D:500xB:564 ladezijkant:Wit kantenband:Wit bodem:Wit rug:Wit eindkap ladezijkant:Aluminium look bevat: gemont. lade;corpusprofiel Movento 40kg;BLUMOTION;frontbevest. EXPANDO verpakt: karton</Description>
       <LanguageId>nl-be</LanguageId>
+      <Name>TA4M/E CDRR500x564    W W</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>TA'OR BOX tiroir M P:500xL:564 côté de tiroir:Blanc chant à coller:Blanc fond:Blanc dos:Blanc caches côté de tiroir:Finition Alu contient: tiroir monté;coulisses corps de meuble Movento 40kg;BLUMOTION;attache façade EXPANDO emballé: carton</Description>
       <LanguageId>fr</LanguageId>
+      <Name>TA4M/E CDRR500x564    W W</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>TA'OR BOX drawer M D:500xW:564 drawer side:White edge-band:White base:White back:White end cover caps drawer side:Aluminium look contains: premounted drawer;cabinet profiles Movento 40kg;BLUMOTION;fixation expando packed: box</Description>
       <LanguageId>en-us</LanguageId>
+      <Name>TA4M/E CDRR500x564    W W</Name>
     </VariantDescription>
     <VariantDescription class="entity">
       <ConfigVariantId>DummyInventTransId</ConfigVariantId>
       <Description>TA'OR BOX Schubkasten M T:500xB:564 Zarge:Weiss Kantenband:Weiss Boden:Weiss Rückwand:Weiss Endkappe Zarge:Alu look beinhaltet: fertigschubkasten;Korpusschienen Movento 40kg;BLUMOTION;frontbefest EXPANDO verpackt: karton</Description>
       <LanguageId>de</LanguageId>
+      <Name>TA4M/E CDRR500x564    W W</Name>
     </VariantDescription>
   </ConfigVariant>
 </AxdADUMsgBOMBOLInQuery>
\ No newline at end of file
Index: WS/AX/CalculatedProduct/CalculatedProductService.cls.xml
===================================================================
diff -u -r44847 -r45512
--- WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 44847)
+++ WS/AX/CalculatedProduct/CalculatedProductService.cls.xml	(.../CalculatedProductService.cls.xml)	(revision 45512)
@@ -47,7 +47,7 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	#dim GUID As %String = ..MessageManager.GenerateID()
-	#dim BOMBOLOutQuery As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery = ..XmlCorrelater.FromStream(In, "AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery", "ADUMsgBOMBOLOutQuery")
+	#dim BOMBOLOutQuery As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery = ..XmlCorrelater.FromStream(In, ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdADUMsgBOMBOLOutQuery).%ClassName($$$True), "ADUMsgBOMBOLOutQuery")
 	#dim BOMBOLInQuery As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdADUMsgBOMBOLInQuery = ..Converter.Convert(BOMBOLOutQuery, GUID)
 
 	Quit ##class(TECH.XmlObjectUtils).GeefXMLStream(BOMBOLInQuery)
Index: WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml
===================================================================
diff -u -r44839 -r45512
--- WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml	(.../VariantDescriptionBepaler.cls.xml)	(revision 44839)
+++ WSimpl/AX/CalculatedProduct/VariantDescriptionBepaler.cls.xml	(.../VariantDescriptionBepaler.cls.xml)	(revision 45512)
@@ -44,6 +44,7 @@
 	#dim VariantDescription As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityVariantDescription).%New()
 	
 	Set VariantDescription.Description = Product.GeefLangtekst(Taal)
+	Set VariantDescription.Name = Product.GeefKorttekst()
 	Set VariantDescription.LanguageId = ..Formatter.FormatLanguageId(Taal)
 	Set VariantDescription.ConfigVariantId = ConfigVariantId
 	Set VariantDescription.class = "entity"