Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml
===================================================================
diff -u -r57326 -r58044
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57326)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58044)
@@ -114,6 +114,7 @@
 	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
 	Do ProductServiceMock.IndienMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$True)
 	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.IndienMethodCall("GeefOrderIdsVoorProduct", ..#RandomProductId).DanReturn("")
 	Set ..ProductService = ProductServiceMock
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
@@ -123,6 +124,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: AttrVsAdminProdNr = Customizable en AdminProductNummer = meegegeven =&gt; HeeftBezwaarVoorProductDelete =&gt; Orders aanwezig =&gt; VerwerkOrder op OrderService aanroepen">
+<Implementation><![CDATA[
+	#dim OrderIdLijst As %String = "12345,23456"
+	#dim ProductDummy As vhTest.Dummy.DOM.PM.Product = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	
+	#dim Request As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ..MaakRequest(..#RandomProductId)
+	Set Request.AttrVsAdminProdNr = "Customizable"
+	
+	#dim ProductServiceMock As vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductService).%New()
+	Do ProductServiceMock.IndienMethodCall("HeeftBezwaarVoorProductDelete", ..#RandomProductId).DanReturn($$$True)
+	Do ProductServiceMock.VerwachtMethodCall("GeefProductGemaaktVolgensAxKenmerken", Request).DanReturn(ProductDummy)
+	Do ProductServiceMock.IndienMethodCall("GeefOrderIdsVoorProduct", ..#RandomProductId).DanReturn(OrderIdLijst)
+	Set ..ProductService = ProductServiceMock
+	
+	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
+	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
+	
+	Do ..ProductService.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductVolgensAxAttribuutBepaler">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler</ReturnType>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml
===================================================================
diff -u -r57326 -r58044
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 57326)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 58044)
@@ -57,6 +57,11 @@
 		Set Product = ..ProductUpdater.GeefGeupdatetProduct(Request, ProductId)
 	} Else {
 		Set Product = ..ProductService.GeefProductGemaaktVolgensAxKenmerken(Request)
+		
+		If (($$$HasLength(ProductId)) && ($$$Not(..ProductService.GeefOrderIdsVoorProduct(ProductId) = ""))) {
+			#dim NieuwProductId As %String = Product.GeefPRNr()
+			Do ..VerwerkOrdersVolgensProductId(ProductId, NieuwProductId)
+		}
 	}
 	
 	Quit Product
@@ -79,6 +84,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkOrdersVolgensProductId">
+<FormalSpec>OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderId As %String
+	#dim OrderIdsVoorProduct As %String = ..ProductService.GeefOrderIdsVoorProduct(OudProductId)
+	#dim OrderIdsIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).PiecesToList(OrderIdsVoorProduct, ","))
+	
+	While OrderIdsIterator.HasNext() {
+		Set OrderId = OrderIdsIterator.Next()
+		// Do ..OrderService.VerwerkOrder(OrderId, OudProductId, NieuwProductId)
+	}
+	
+	// Order is geblokkeerd => Halux/BIDI verwittigen
+	// Indien reeds KLAARGEZET maar NOG NIET in batch => Order/Toeleveringen aanpassen
+	// Indien reeds KLAARGEZET maar AL WEL in batch => Order/Toeleveringen NIET aanpassen
+]]></Implementation>
+</Method>
+
 <Method name="GeefAttributeValueTxtVolgensAttributeName">
 <FormalSpec>AttributeLijst:%ListOfObjects,AttributeName:%String</FormalSpec>
 <Private>1</Private>