Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml
===================================================================
diff -u -r64543 -r69982
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 64543)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 69982)
@@ -66,6 +66,8 @@
 		Set Product = ..GeefProductFixedAttrVsAdminProdNr(Request, ProductId)
 	} ElseIf (Request.AttrVsAdminProdNr = "SalesPriceBOM") {
 		Set Product = ..GeefProductSalesPriceBOMAttrVsAdminProdNr(Request)
+	} ElseIf (Request.AttrVsAdminProdNr = "Fixed_ForceBom") {
+		Set Product = ..GeefProductFixedForceBomAttrVsAdminProdNr(Request, ProductId)
 	}
 	
 	Quit Product
@@ -138,6 +140,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductFixedForceBomAttrVsAdminProdNr">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ""
+	
+	If ($$$HasLength(ProductId)) {
+		If (..ProductService.HeeftBezwaarVoorProductDelete(ProductId)) {
+			#dim OmschrijvingException As %String = "Cache doet de update op dit moment liever niet. Het product '"_ProductId_"' is op dit moment in gebruik! "
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(OmschrijvingException))
+		} Else {
+			// LOCK PAKKEN !!!
+			Do ..LockProduct(ProductId)
+			
+			// PRIJS OPHALEN !!!
+			#dim KostPrijs As %Numeric = ..GeefPPL(Request, ProductId)
+			
+			// BOMBOL UPDATEN !!!
+			Set Product = ..ProductUpdater.GeefGeupdatetProduct(Request, ProductId)
+			
+			// PRIJS TERUGZETTEN !!!
+			Do Product.ZetPPL(KostPrijs)
+			
+			// LOCK VRIJGEVEN !!!
+			Do ..UnlockProduct(ProductId)
+		}
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkOrdersVolgensProductId">
 <FormalSpec>AxInventTransId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
 <Private>1</Private>
@@ -172,6 +207,35 @@
 	Quit AttributeValueTxt
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPPL">
+<FormalSpec>Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest,ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim OrigineleProduct As DOM.PM.Product = ..ProductService.GeefProduct(ProductId, Request.ItemId)
+	Quit OrigineleProduct.GeefPPL()
+]]></Implementation>
+</Method>
+
+<Method name="LockProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LockBericht as %String
+	Lock +^KPR(+ProductId):1 Else  Do 
+	. Set LockBericht = "ProductId '" _ ProductId _"' is gelocked. Het product kan niet geüpdatet worden. " _$$$CRLF
+	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^KPR(+ProductId))))
+	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Lock -^KPR(+ProductId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml
===================================================================
diff -u -r64542 -r69982
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64542)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69982)
@@ -323,6 +323,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: AttrVsAdminProdNr = Fixed_ForceBom en AdminProductNummer = meegegeven =&gt; GeefGeupdatetProduct van ProductUpdater met behoud van PPL">
+<Implementation><![CDATA[
+	#dim PPL As %Numeric = 12345.89
+	
+	#dim ProductStub As DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefPRNr").DanReturn(..#RandomProductId)
+	Do ProductStub.IndienMethodCall("GeefPPL").DanReturn(PPL)
+	Do ProductStub.IndienMethodCall("ZetPPL", PPL).DanDoeNiks() // Eigenlijk zou ik hier de PPL moeten kunnen veranderen, zodat de assert kan bewijzen dat de originele teruggezet wordt !!!
+	
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
+	Set Request.AttrVsAdminProdNr = "Fixed_ForceBom"
+	
+	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
+	Do ProductServiceMock.VerwachtMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$False)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProduct", ..#RandomProductId, Request.ItemId).DanReturn(ProductStub)
+	Set ..ProductService = ProductServiceMock
+	
+	#dim ProductUpdaterMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductUpdater = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductUpdater).%New()
+	Do ProductUpdaterMock.VerwachtMethodCall("GeefGeupdatetProduct", Request, ..#RandomProductId).DanReturn(ProductStub)
+	Set ..ProductUpdater = ProductUpdaterMock
+	
+	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
+	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
+	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomProductId)
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPPL(), PPL)
+	Do ..ProductService.Verifieer()
+	Do ..ProductUpdater.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: AttrVsAdminProdNr = Fixed_ForceBom en AdminProductNummer = meegegeven =&gt; HeeftBezwaarVoorProductDelete =&gt; Exceptie throwen">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Cache doet de update op dit moment liever niet. Het product '", ..#RandomProductId, "' is op dit moment in gebruik! ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
+	Set Request.AttrVsAdminProdNr = "Fixed_ForceBom"
+	
+	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
+	Do ProductServiceMock.IndienMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$True)
+	Set ..ProductService = ProductServiceMock
+	
+	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
+	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
+	
+	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomNieuwProductId)
+	Do ..ProductService.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductVolgensAxAttribuutBepaler">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler</ReturnType>