Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml
===================================================================
diff -u -r1355 -r5401
--- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1355)
+++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 5401)
@@ -54,7 +54,7 @@
 	Set AantalInTeKorten = InTeKortenKinderen.GetAt(1).GeefAantal()
 	Set InTeKortenNaar = InbouwBreedte - (BreedteOLProduct - BreedteInTeKortenProduct)
 	
-	Set IngekortProduct = ..BerekenIngekortProduct(InTeKortenProduct, TeVervangenProduct, InTeKortenNaar, AantalInTeKorten)
+	#dim IngekortProduct As DOM.PM.Product = ..BerekenIngekortProduct(InTeKortenProduct, TeVervangenProduct, InTeKortenNaar, AantalInTeKorten)
 	Set Bouwsteen = SamengesteldProduct.VoegToeKindBouwsteen(IngekortProduct,AantalInTeKorten)
 	
 	Set Bouwsteen = SamengesteldProduct.GeefBouwsteen(InTeKortenKinderen.GetAt(1).GeefID())
@@ -127,6 +127,9 @@
 	
 	Do BLDIND^PRBS(PRNr)
 	
+	Do Gewijzigd^PRODUKT2(PRNr)
+	Do Gewijzigd^PRODUKT2(IngekortProduct.GeefID())
+	
 	Quit ProductAPI.GeefProduct(PRNr)
 ]]></Implementation>
 </Method>