Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r72639 -r72678
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 72639)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 72678)
@@ -128,8 +128,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataMProductRepository">
+<Type>DOM.PM.impl.DataM.DataMProductRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductService">
+<Type>WSimpl.AX.CalculatedProduct.ProductService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,LandRepository:DOM.common.Locatie.impl.LandRepository,ProductRepository:Prod.ProductRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl=""</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,LandRepository:DOM.common.Locatie.impl.LandRepository,ProductRepository:Prod.ProductRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DataMProductRepository:DOM.PM.impl.DataM.DataMProductRepository="",ProductService:WSimpl.AX.CalculatedProduct.ProductService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -151,6 +161,8 @@
 	Set ..LandRepository  = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
 	Set ..ProductRepository = $$$Inject(ProductRepository,##class(Prod.ProductRepository).%New())
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
+	Set ..DataMProductRepository = $$$Inject(DataMProductRepository, ##class(DOM.PM.impl.DataM.DataMProductRepository).%New())
+	Set ..ProductService = $$$Inject(ProductService, ##class(WSimpl.AX.CalculatedProduct.ProductService).%New())
 	
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	Set ..VhConfigHelper = ##class(DOM.PM.Maatwerk.Calc.Common.VhConfigHelper).%New()
@@ -233,7 +245,7 @@
 					Do ..Logger.Warning("SalesOrderIn - Orderlijn is reeds geproduceerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is reeds geproduceerd. Er wordt geen update uitgevoerd.")
 					Continue
 				}
-
+				
 				If $$$Not(..MagOrderLijnUpdaten(OrderLine)) {
 					Do ..Mailer.ZetMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
 					Do ..Logger.Warning("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.")
@@ -528,35 +540,26 @@
 <Implementation><![CDATA[
 	#dim PrijsOrderLijn As DOM.VKP.PrijsOrderlijn
 	#dim ProductId As %String = ""
+	#dim ReedsGekendeProductId As %Integer
+	#dim VhConfig As DOM.PM.Maatwerk.Calc.Common.VhConfig
+	#dim CID As %String = ""
 	
+	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)
+	}
+	
 	If Order.BestaatOrderLijnViaAxInventTransId(OrderLine.InventTransId) {
 		Set PrijsOrderLijn = Order.GeefOrderLijnViaAxInventTransId(OrderLine.InventTransId)
 		Do PrijsOrderLijn.ZetAantal(OrderLine.RemainSalesPhysical)
 		
 		#dim IsEenMaatwerkLijn As %Boolean = ($$$Not(..IsProductLijn(OrderLine)))
 		#dim IsAdminProductNummerMeegegeven As %Boolean = $$$HasLength(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"))
+		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct
 		
-		If ((IsEenMaatwerkLijn) && $$$Not(OrderLine.CID = "")) {
-			Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
-			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct
-			Set ConfiguratieData = ##class(DOM.PM.Maatwerk.Calc.Common.ConfiguratieData).%New()
-			Set ConfiguratieData.CID = OrderLine.CID
-			Set ConfiguratieData.DossierCode = OrderLine.DossierCode
-			Set ConfiguratieData.VhConfig = ..GeefJSONParsedVhConfig(OrderLine.VhConfig)
-			Do ..VhConfigHelper.ZetVhConfig(ConfiguratieData.VhConfig)
-			#dim ReedsGekendeProductId As %Integer = ..GeefProductIdVanDossierCodeVoorMaatwerkModel(ConfiguratieData.DossierCode)
-				
+		If ((IsEenMaatwerkLijn) && $$$Not(CID = "")) {
 			If (ReedsGekendeProductId > 0) {
-				Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
-				Set ProductData.PRNr = ReedsGekendeProductId
-				Set ProductData.DossierNummer = ConfiguratieData.DossierCode
-				Set MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(..VhConfigHelper.GeefIngegevenKenmerken(), ..KlantID, ProductData, ConfiguratieData.VhConfig)
-				Set ProductId = MaatwerkProduct.GeefID()
 				Do PrijsOrderLijn.ZetProductID(ProductId, $$$True)
-			} Else {
-				Set MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(..VhConfigHelper.GeefIngegevenKenmerken(), ..KlantID, , ConfiguratieData.VhConfig)
-				Set ProductId = MaatwerkProduct.GeefID()
-				Do PrijsOrderLijn.ZetProductID(ProductId, $$$False)
 			}
 		} ElseIf (IsEenMaatwerkLijn && IsAdminProductNummerMeegegeven) {
 			Do PrijsOrderLijn.ZetProductID(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"), $$$True)
@@ -574,6 +577,97 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIdVanVhConfigMaatwerkProduct">
+<FormalSpec><![CDATA[Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,CID:%String,&ReedsGekendeProductId:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VhConfig As DOM.PM.Maatwerk.Calc.Common.VhConfig = ..GeefJSONParsedVhConfig(OrderLine.VhConfig)
+	Set ReedsGekendeProductId = ..GeefProductIdVanDossierCodeVoorMaatwerkModel(OrderLine.DossierCode, VhConfig.Model)
+	
+	Set BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	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.DossierNummer = OrderLine.DossierCode
+	
+	If (ReedsGekendeProductId > 0) {
+		Do ..VerwijderOrderLijn(Order, OrderLine)
+		Do ..BewaarOrder(Order)
+		Do ..LogLijn(Order.GeefID(), OrderLine, "Verwijder OrderLijn")
+					
+		If $$$Not(..ProductService.HeeftBezwaarVoorProductDelete(ReedsGekendeProductId)) {			
+			Set ProductData.PRNr = ReedsGekendeProductId
+			Do ..NeemLockOpProduct(ReedsGekendeProductId)
+			Do ..VerwijderProduct(ReedsGekendeProductId)
+		}
+	}
+	
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = BerekeningServiceProduct.MaakProductVanKenmerken(..VhConfigHelper.GeefIngegevenKenmerken(), ..KlantID, 1, ProductData, VhConfig)
+	
+	If (ReedsGekendeProductId > 0) {
+		Do ..Logger.Warning("SalesOrderIn - ProductCreatie", "Product '"_ReedsGekendeProductId_"' opnieuw gemaakt in Cache! DossierNummer = '"_OrderLine.DossierCode_"'")			
+		Do ..UnlockProduct(ReedsGekendeProductId)
+	}
+	
+	Quit MaatwerkProduct.GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..DataMProductRepository.VerwijderViaID(ProductId, $$$False)
+	Do ..Logger.Warning("SalesOrderIn - ProductCreatie", "Product '"_ProductId_"' verwijderd in Cache!")
+]]></Implementation>
+</Method>
+
+<Method name="NeemLockOpProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LockBericht as %String
+	Lock +(^KPR(ProductId)#"S"):5 Else  Do 
+	. Set LockBericht = "Er zit een exclusive lock op "_$Name(^KPR(ProductId))_". Product wordt NIET geüpdate. " _$$$CRLF
+	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^KPR(ProductId))))
+	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+	
+	Do ..LockProductBouwsteen(ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..UnlockProductBouwsteen(ProductId)
+	
+	Lock -(^KPR(ProductId)#"S")
+]]></Implementation>
+</Method>
+
+<Method name="LockProductBouwsteen">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LockBericht as %String
+	Lock +^PRBS("BS",+ProductId):5 Else  Do 
+	. Set LockBericht = "De bouwsteen voor ProductId '" _ ProductId _"' is gelocked. Het product kan niet geüpdatet worden. " _$$$CRLF
+	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^PRBS("BS",+ProductId))))
+	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProductBouwsteen">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Lock -^PRBS("BS",+ProductId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOrderHoofding">
 <FormalSpec>Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
 <Private>1</Private>
@@ -668,7 +762,7 @@
 <FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$Not($$$HasLength(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer") && $$$Not(OrderLine.VhConfig = "")))
+<Implementation><![CDATA[	Quit ($$$Not($$$HasLength(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"))) && ((OrderLine.CID = "") || (OrderLine.CID = "{00000000-0000-0000-0000-000000000000}")))
 ]]></Implementation>
 </Method>