Index: APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml
===================================================================
diff -u -r1133 -r1290
--- APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1133)
+++ APPS/PM/Maatwerk/OLM/impl/AbstractOpMaatFactory.cls.xml	(.../AbstractOpMaatFactory.cls.xml)	(revision 1290)
@@ -41,6 +41,7 @@
 	Set BreedteInTeKortenProduct = ..GeefBreedteTeVervangenProduct(TeVervangenProduct,BreedteOLProduct)
 	
 	Kill ^PRBS("BS",PRNr,TeVervangenKinderen.GetAt(1).GeefID())
+	Kill ^PRBS("IP",TeVervangenProduct.GeefPRNr(),PRNr,TeVervangenKinderen.GetAt(1).GeefID())
 	
 	// Berekenen van de ingekorte producten	
 	Set InTeKortenProduct = InTeKortenKinderen.GetAt(1).GeefProduct()
@@ -55,7 +56,9 @@
 	Set VrijLabel = $Order(^PRBS("BS",PRNr,"KIND.999"),-1)
 	Set VolgendNr = $E(1000+$Piece(VrijLabel,".",2)+1,2,4)
 	Set ^PRBS("BS",PRNr,"KIND."_VolgendNr) = IngekortProduct.GeefPRNr()_"\"_AantalInTeKorten_"\K\\\\\\\\PROD\"
-	Kill ^PRBS("BS",PRNr,InTeKortenKinderen.GetAt(1).GeefID()) 
+	
+	Kill ^PRBS("BS",PRNr,InTeKortenKinderen.GetAt(1).GeefID())
+	Kill ^PRBS("IP",InTeKortenProduct.GeefPRNr(),PRNr,InTeKortenKinderen.GetAt(1).GeefID())
 
 	// Extra toe te voegen
 	Set Iterator = ##class(TECH.ListIterator).%New(ToeTeVoegenKinderen)