Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r72739 -r72870 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 72739) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 72870) @@ -128,6 +128,11 @@ 1 + +APPS.PM.Maatwerk.impl.VhConfigRepository +1 + + DOM.PM.impl.DataM.DataMProductRepository 1 @@ -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,6 +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, "}", ""), "{", "") + Do ..VhConfigRepository.SaveVhConfig(OrderLine.CID, OrderLine.VhConfig) Set ProductId = ..GeefProductIdVanVhConfigMaatwerkProduct(Order, OrderLine, CID, .ReedsGekendeProductId) } @@ -589,8 +596,6 @@ #dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ..GeefJSONParsedVhConfig(OrderLine.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