Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r45932 -r46102
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 45932)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 46102)
@@ -286,16 +286,19 @@
 	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
 	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
-	Set OfferteLijn.ProductVariantOmschrijving = ..GeefProductVariantOmschrijving(MaatwerkLijn)
 	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
 	If ..IsVersie002Compliant() {
 		Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode()
 		Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
+		Set OfferteLijn.ProductVariantOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode)
 		Set OfferteLijn.ProductOmschrijvingNL = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands())
 		Set OfferteLijn.ProductOmschrijvingFR = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans())
 		Set OfferteLijn.ProductOmschrijvingEN = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels())
 		Set OfferteLijn.ProductOmschrijvingDE = ..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits())
 	}
+	Else {
+		Set OfferteLijn.ProductVariantOmschrijving = ..GeefProductVariantOmschrijving(MaatwerkLijn)		
+	}
 	Set OfferteLijn.ActieCodesList = ..GeefActieCodes(MaatwerkLijn)
  	
  	Quit OfferteLijn
@@ -306,12 +309,18 @@
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Variant As DOM.PM.enu.Variant = MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant()   // Tijdelijke implementatie, maar om LBX_Free te ondersteunen moet dit nog aangepast worden!!! 
-	Quit Variant
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeBepaler).%New().GeefDesignCode(MaatwerkLijn.GeefIngegevenKenmerken())
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDesignCodeOmschrijving">
+<FormalSpec>DesignCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Case(DesignCode, "LBX_Pure":"LEGRABOX pure", "LBX_Free":"LEGRABOX free", "TAOR":"TA'OR BOX", "TBX_Antaro":"TANDEMBOX antaro", :DesignCode)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductVariantOmschrijving">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>