Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r73898 -r75031
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 73898)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 75031)
@@ -113,11 +113,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductRepository">
-<Type>Prod.ProductRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ProductTypeAPI">
 <Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
 <Private>1</Private>
@@ -154,7 +149,7 @@
 </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="",DataMProductRepository:DOM.PM.impl.DataM.DataMProductRepository="",ProductService:WSimpl.AX.CalculatedProduct.ProductService="",BerekeningServiceProduct:APPS.PM.Maatwerk.impl.BerekeningServiceProduct=""</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="",BerekeningServiceProduct:APPS.PM.Maatwerk.impl.BerekeningServiceProduct="",VhConfigRepository:APPS.PM.Maatwerk.impl.VhConfigRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -174,15 +169,14 @@
 	Set ..Mailer = $$$Inject(Mailer,##class(AXimpl.Dynamics.SalesOrderIn.Converter.Mailer).%New())
 	Set ..LeverAdresMaker = $$$Inject(LeverAdresMaker,##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New())
 	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 ..BerekeningServiceProduct = $$$Inject(BerekeningServiceProduct, ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New())
 	
 	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 ..VhConfigRepository = $$$Inject(VhConfigRepository, ##class(APPS.PM.Maatwerk.impl.VhConfigRepository).%New())
 	Set ..ToeleveringLockControleerder = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.ToeleveringLockControleerder).%New()
 	
 	Set ..Logger = ##class(vhLib.Logger).%New()
@@ -242,12 +236,9 @@
 		
 		Do ..LockOrderEnControleerToeleveringen()
 		
-		#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(..KlantID, OrderHeader)
-		
-		If ($IsObject(Order)) {
-		
-			Do ..ZetOrderHoofding(Order, OrderHeader)
-			
+		#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(..KlantID, OrderHeader)	
+		If ($IsObject(Order)) {	
+			Do ..ZetOrderHoofding(Order, OrderHeader)		
 			Do ..ZetDocumentReferentie(Order, OrderHeader)
 			
 			Set OrderLineIterator = ##class(TECH.ListIterator).%New(OrderHeader.OrderLine)
@@ -274,7 +265,7 @@
 					Do ..VerwijderOrderLijn(Order, OrderLine)
 					Do ..LogLijn(OrderHeader.SalesId, OrderLine, "Verwijder OrderLijn")
 					Continue
-				} 
+				}
 
 				// hier sowieso een orderlijn die geupdated mag worden, zonder toelev en juiste status.
 				// -> verwijder orderlijnen met zelfde inventtransid.
@@ -285,15 +276,12 @@
 				
 				Do ..UpdateOrderLijn(..GeefOfMaakOrderLijn(Order, OrderLine), OrderLine, Order)
 			}
-
+			
 			Do ..BewaarOrder(Order)	
-
 			Do ..VerwijderOrderIndienGeenOrderLijnen(.Order)
-
 			Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
 
 			Do:..IsNieuwOrder(Order) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(..OrderID)
-
 			Do ..SluitOrder(Order)
 			
 			Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijnen(Order,OrderHeader.ModifiedByAlias)
@@ -576,7 +564,7 @@
 <Implementation><![CDATA[
 	#dim PrijsOrderLijn As DOM.VKP.PrijsOrderlijn
 	#dim ProductId As %String = ""
-	#dim ReedsGekendeProductId As %Integer
+	#dim ReedsGekendeProductId As %String = ""
 	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig
 	#dim CID As %String = ""
 	
@@ -618,15 +606,14 @@
 <Implementation><![CDATA[
 	#dim IsProductIdHergebruikt As %Boolean = $$$False
 	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ..GeefJSONParsedVhConfig(OrderLine.VhConfig)
+	Set CID = ##class(TECH.StringUtils).Replace(##class(TECH.StringUtils).Replace(OrderLine.CID, "}", ""), "{", "")
 	
 	If (..VhConfigRepository.BestaatVhConfigVoorCID(CID))
 	{
+		Set ReedsGekendeProductId = ..VhConfigRepository.GeefAdminProductNrVoorCID(CID)
 		Do ..VhConfigRepository.VerwijderCID(CID)
 	}
 	
-	Do ..VhConfigRepository.SaveVhConfig(CID, VhConfig)
-	Set ReedsGekendeProductId = ..GeefProductIdVanDossierCodeVoorMaatwerkModel(OrderLine.DossierCode, VhConfig.Model)
-	
 	Do ..VhConfigHelper.ZetVhConfig(VhConfig)
 	Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
 	Set ProductData.CID = CID
@@ -648,6 +635,8 @@
 	
 	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..BerekeningServiceProduct.MaakProductVanKenmerken(..VhConfigHelper.GeefIngegevenKenmerken(), ..KlantID, 1, ProductData, VhConfig)
 	
+	Do ..VhConfigRepository.SaveVhConfig(CID, VhConfig, OrderLine.ProductHash, $$$False, OrderLine.InventTransId, MaatwerkProduct.GeefID())
+	
 	If ((ReedsGekendeProductId > 0) && IsProductIdHergebruikt) {
 		Do ..Logger.Warning("SalesOrderIn - ProductCreatie", "Product '"_ReedsGekendeProductId_"' opnieuw gemaakt in Cache! DossierNummer = '"_OrderLine.DossierCode_"'")			
 		Do ..UnlockProduct(ReedsGekendeProductId)
@@ -986,29 +975,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductIdVanDossierCodeVoorMaatwerkModel">
-<FormalSpec>DossierCode:%String,MaatwerkModel:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductId As %Integer = 0
-	#dim GenType As %String = $Piece(MaatwerkModel, "_", 2)
-	#dim ProductenIterator As TECH.Iterator = ..ProductRepository.ZoekViaDossierCode(DossierCode, GenType)
-	
-	While ProductenIterator.HasNext() {
-		#dim Product As Prod.Product = ProductenIterator.Next()
-		
-		If (MaatwerkModel = "M_LBX") {
-			Set:(..ProductTypeAPI.IsLegraboxProduct(Product.ProductNr)) ProductId = Product.ProductNr
-		} Else {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("MaatwerkModel " _ MaatwerkModel _ " is nog niet geïmplementeerd."))
-		}
-	}
-	
-	Quit ProductId
-]]></Implementation>
-</Method>
-
 <Method name="GeefJSONParsedVhConfig">
 <FormalSpec>VhConfig:%String</FormalSpec>
 <Private>1</Private>