Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r72739 -r72876
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 72739)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 72876)
@@ -128,6 +128,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VhConfigRepository">
+<Type>APPS.PM.Maatwerk.impl.VhConfigRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DataMProductRepository">
 <Type>DOM.PM.impl.DataM.DataMProductRepository</Type>
 <Private>1</Private>
@@ -172,6 +177,7 @@
 	
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New()
+	Set ..VhConfigRepository = ##class(APPS.PM.Maatwerk.impl.VhConfigRepository).%New()
 	
 	Set ..Logger = ##class(vhLib.Logger).%New()
 
@@ -552,7 +558,7 @@
 	
 	If ($$$Not(OrderLine.CID = "{00000000-0000-0000-0000-000000000000}") && $$$Not(OrderLine.CID = "")) {
 		Set CID = ##class(TECH.StringUtils).Replace(##class(TECH.StringUtils).Replace(OrderLine.CID, "}", ""), "{", "")
-		Set ProductId = ..GeefProductIdVanVhConfigMaatwerkProduct(Order, OrderLine, CID, .ReedsGekendeProductId)
+		Set ProductId = ..GeefProductIdVanVhConfigMaatwerkProduct(Order, OrderLine, .ReedsGekendeProductId)
 	}
 	
 	If Order.BestaatOrderLijnViaAxInventTransId(OrderLine.InventTransId) {
@@ -582,18 +588,17 @@
 </Method>
 
 <Method name="GeefProductIdVanVhConfigMaatwerkProduct">
-<FormalSpec><![CDATA[Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,CID:%String,&ReedsGekendeProductId:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,&ReedsGekendeProductId:%String]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ..GeefJSONParsedVhConfig(OrderLine.VhConfig)
+	Do ..VhConfigRepository.SaveVhConfig(OrderLine.CID, VhConfig)
 	Set ReedsGekendeProductId = ..GeefProductIdVanDossierCodeVoorMaatwerkModel(OrderLine.DossierCode, VhConfig.Model)
 	
-	Set VhConfig.BerekendeKenmerken.Korttekst = ##class(TECH.StringUtils).Replace(VhConfig.BerekendeKenmerken.Korttekst, "%1", OrderLine.DossierCode)
-
 	Do ..VhConfigHelper.ZetVhConfig(VhConfig)
 	Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
-	Set ProductData.CID = CID
+	Set ProductData.CID = OrderLine.CID
 	Set ProductData.DossierNummer = OrderLine.DossierCode
 	
 	If (ReedsGekendeProductId > 0) {