Index: Default_ChristopherS.prj.xml
===================================================================
diff -u -r1248 -r1290
--- Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1248)
+++ Default_ChristopherS.prj.xml	(.../Default_ChristopherS.prj.xml)	(revision 1290)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="Default_ChristopherS" LastModified="2011-05-23 17:32:13">
+<Project name="Default_ChristopherS" LastModified="2011-05-25 08:41:39">
   <Items>
     <ProjectItem name="TECH.Events.KenmerkCreatedEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkCreatedEventData" type="CLS"/>
@@ -13,6 +13,7 @@
     <ProjectItem name="TECH.Events.KenmerkenDeletedEventData" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkenModifiedEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KenmerkenModifiedEventData" type="CLS"/>
+    <ProjectItem name="svn.Deploy" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImport" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImportTBXMock" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.FrameworkData" type="CLS"/>
Index: vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml
===================================================================
diff -u -r1133 -r1290
--- vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml	(.../TestOpMaatFactory.cls.xml)	(revision 1133)
+++ vhUnitTest/APPS/PM/Maatwerk/OLM/TestOpMaatFactory.cls.xml	(.../TestOpMaatFactory.cls.xml)	(revision 1290)
@@ -25,6 +25,8 @@
 	Set DwarslatClassificatieID = ProductAPI.GeefProductClassificatie(DwarslatOpMaatPRNr).GeefClassificatie().GeefID()
 	
 	Do $$$AssertEquals(DwarslatClassificatieID,1327,"De dwarslat op maat werd gemaakt")
+	Do $$$AssertFalse($D(^PRBS("IP",191578,200030,"KIND.001")),"De index werd verwijderd")
+	Do $$$AssertFalse($D(^PRBS("IP",286261,200030,"KIND.003")),"De index werd verwijderd")
 	
 	Do DELETE^PRODUKT2(OrgaluxOpMaatProduct.GeefPRNr(),1)
 	
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)