Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r56130 -r75031
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 56130)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 75031)
@@ -113,8 +113,43 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VhConfigHelper">
+<Type>APPS.PM.Maatwerk.impl.VhConfigHelper</Type>
+<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>
+</Property>
+
+<Property name="ProductService">
+<Type>WSimpl.AX.CalculatedProduct.ProductService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringLockControleerder">
+<Type>AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.ToeleveringLockControleerder</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</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>
@@ -134,8 +169,15 @@
 	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 ..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 = $$$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()
 
@@ -192,60 +234,54 @@
 	If ..VerkoopApi.BestaatKlant(..KlantID) {
 		Set ..KLNr = $Piece(..KlantID,"||",2)
 		
-		Do ..LockOrder()
-
-		#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(..KlantID, OrderHeader)
+		Do ..LockOrderEnControleerToeleveringen()
 		
-		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)
 			While OrderLineIterator.HasNext() {
 				#dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next()
 
 				if (..IsReedsKlaargezet(OrderLine)) {
-					Do ..Logger.Debug("SalesOrderIn - Orderlijn is reeds klaargezet", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is reeds klaargezet. Er wordt geen update uitgevoerd.")
+					Do ..Logger.Warning("SalesOrderIn - Orderlijn is reeds klaargezet", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is reeds klaargezet. Er wordt geen update uitgevoerd.")
 					Continue
 				}
 
 				if (..IsReedsGeproduceerd(OrderLine)) {
-					Do ..Logger.Debug("SalesOrderIn - Orderlijn is reeds geproduceerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is reeds geproduceerd. Er wordt geen update uitgevoerd.")
+					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.Debug("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.")
+					Do ..Logger.Warning("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.")
 					Continue
 				}
 				
 				If ..IsGeannuleerd(OrderLine) {
 					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.
-				If (Order.GeefAantalLijnenMetAxInventTransId(OrderLine.InventTransId) > 1) {
+				If (Order.GeefAantalLijnenViaAxInventTransId(OrderLine.InventTransId) > 1) {
 					Do Order.VerwijderOrderLijnenViaAxInventTransId(OrderLine.InventTransId)
 					Do ..BewaarOrder(Order)
 				}
 				
 				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)
@@ -262,6 +298,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LockOrderEnControleerToeleveringen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..LockOrder()
+	
+	Try {
+		#dim ZijnToeleveringenGelockt = ..ToeleveringLockControleerder.ZijnToeleveringenGelockt(..OrderID)
+		If (ZijnToeleveringenGelockt) {
+			Do ..UnLockOrder()
+			#dim LockBericht = "OrderID '" _..OrderID _"' kan niet geupdate worden want toelevering(en) gelockt. Het inkomende AX bestand met bevestigd verkooporder kan niet verwerkt worden."
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+		}
+	} Catch {
+		Do ..Logger.Error("", "")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="LockOrder">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -460,10 +514,12 @@
 		
 		Do Order.HerlaadLijnen()
 
-		Do ..Logger.Debug("SalesOrderIn - Toeleveringen verwijderen", "Toeleveringen voor order met OrderID '" _..OrderID _"' worden verwijderd." )
-		Do ..ToeleveringService.VerwijderToeleveringenViaOrder(Order)
+		If ..OrderHeeftGeldigeOrderLijnen(OrderHeader) {
+			Do ..Logger.Debug("SalesOrderIn - Toeleveringen verwijderen", "Toeleveringen voor order met OrderID '" _..OrderID _"' worden verwijderd." )
+			Do ..ToeleveringService.VerwijderToeleveringenViaOrder(Order)
 
-		Do Order.HerlaadLijnen()
+			Do Order.HerlaadLijnen()
+		}
 		Quit Order
 	} ElseIf ..OrderHeeftGeldigeOrderLijnen(OrderHeader) {
 
@@ -475,6 +531,8 @@
 		Do ..BewaarOrder(Order)
 
 		Quit Order
+	} Else {
+		Do ..Logger.Warning("Order bevat lijnen met negatief aantal", "Order='"_OrderHeader.SalesId_"'. Hierdoor kon order niet in Admin aangemaakt worden. Dit wijst op foutief gebruik van SalesOrder in AX.")
 	}
 	
 	Quit ""
@@ -505,22 +563,141 @@
 <ReturnType>DOM.VKP.PrijsOrderlijn</ReturnType>
 <Implementation><![CDATA[
 	#dim PrijsOrderLijn As DOM.VKP.PrijsOrderlijn
+	#dim ProductId As %String = ""
+	#dim ReedsGekendeProductId As %String = ""
+	#dim VhConfig As APPS.PM.Maatwerk.dto.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, .ReedsGekendeProductId, CID)
+	}
+	
 	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(CID = "") && (ReedsGekendeProductId > 0)) {
+			Do PrijsOrderLijn.ZetProductID(ProductId, $$$True)
+		} ElseIf (IsEenMaatwerkLijn && IsAdminProductNummerMeegegeven) {
+			Do PrijsOrderLijn.ZetProductID(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"), $$$True)
+		}
+		
 		Quit PrijsOrderLijn
 	}
 	
 	If ..IsProductLijn(OrderLine) {
 		Set PrijsOrderLijn = ..VoegToeProductLijn(Order, OrderLine)
 	} Else {
-		Set PrijsOrderLijn = ..VoegToeMaatwerkLijn(Order, OrderLine)
+		Set PrijsOrderLijn = ..VoegToeMaatwerkLijn(Order, OrderLine, ProductId)
 	}
 	Quit PrijsOrderLijn
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIdVanVhConfigMaatwerkProduct">
+<FormalSpec><![CDATA[Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,&ReedsGekendeProductId:%String,CID:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<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 ..VhConfigHelper.ZetVhConfig(VhConfig)
+	Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
+	Set ProductData.CID = CID
+	Set ProductData.DossierNummer = OrderLine.DossierCode
+	Set ProductData.ProductHash = OrderLine.ProductHash
+	
+	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)
+			Set IsProductIdHergebruikt = $$$True
+		}
+	}
+	
+	#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)
+	}
+	
+	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>
@@ -534,9 +711,10 @@
 	Do Order.ZetOorsprong(##class(AXimpl.AxToAdminUtils).ConvertOorsprong(OrderHeader.SalesOriginId))
 	Do Order.ZetStatus(##class(AXimpl.AxToAdminUtils).ConvertOrderStatus(""))
 	Do Order.ZetAfleveradres(..LeverAdresMaker.MaakLeverAdres(OrderHeader))
-	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader))
+	#dim SkipVerzendwijzeUpdatesFromTo As TECH.KeyValue.List = ##class(TECH.KeyValue.List).CreateKeyValueListFromListbuild( $LB("DD1","DI1"), $LB("DD1","GL4") )
+	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader), SkipVerzendwijzeUpdatesFromTo)
 	Do Order.ZetAxSalesId(OrderHeader.SalesId)
-
+	Do Order.ZetEmailAddressTrackTrace(OrderHeader.MailAddressTrackTrace)
 	#dim PackingSlipBody As %String = $Replace(OrderHeader.PackingSlipBody,$char(13),"")
 	#dim ProductieAansturingTekst As %String = $Replace(OrderHeader.ProdCmdBody,$char(13),"")
 	
@@ -614,7 +792,7 @@
 <FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$Not($$$HasLength(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer")))
+<Implementation><![CDATA[	Quit ($$$Not($$$HasLength(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"))) && ((OrderLine.CID = "") || (OrderLine.CID = "{00000000-0000-0000-0000-000000000000}")))
 ]]></Implementation>
 </Method>
 
@@ -650,11 +828,11 @@
 </Method>
 
 <Method name="VoegToeMaatwerkLijn">
-<FormalSpec>Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<FormalSpec>Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,ProductId:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductNummer As %String = ..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer")
+	#dim ProductNummer As %String = $Select(ProductId = "": ..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"), 1: ProductId)
 	
 	Do ..ProductBepaler.ValideerProductId(ProductNummer)
 	
@@ -732,9 +910,9 @@
 	If $$$Not($IsObject(DocumentReferenties)) {
 		Set DocumentReferenties = ..DocumentReferentiesRepository.Maak()
 	}
-	Set DocumentReferenties.KlantOrderNummer = OrderHeader.ConfirmBody
+	Set DocumentReferenties.KlantOrderNummer = ..CleanUpText(OrderHeader.ConfirmBody)
 	Set DocumentReferenties.OrderReferentie = ..CleanUpText(OrderHeader.PurchOrderFormNum)
-	Set DocumentReferenties.CommissieReferentie = OrderHeader.CustomerRef
+	Set DocumentReferenties.CommissieReferentie = ..CleanUpText(OrderHeader.CustomerRef)
 	Do ..DocumentReferentiesRepository.Bewaar(DocumentReferenties)
 
 	Do Order.ZetDocumentReferenties(DocumentReferenties)
@@ -796,6 +974,36 @@
 <Implementation><![CDATA[	Quit ##class(AXimpl.AxToAdminUtils).CleanUpText(Text)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefJSONParsedVhConfig">
+<FormalSpec>VhConfig:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	Do JSONStream.Write(VhConfig)
+	
+	Quit ..ParseJsonStreamNaarObject(JSONStream,##class(APPS.PM.Maatwerk.dto.VhConfig).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarObject">
+<FormalSpec>JsonStream:%Stream,RootObjectClassname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As TECH.RegisteredObject = ""
+	
+	Do JsonStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JsonStream, RootObjectClassname, .Object)
+	
+	If $$$Not($IsObject(Object)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De method ParseJsonStreamNaarObject() heeft geen object opgeleverd voor klasse '"_RootObjectClassname_"' (JsonStream.length = '"_JsonStream.Size_"').")
+	}
+	
+	Quit Object
+]]></Implementation>
+</Method>
 </Class>