Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r994 -r1012
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 994)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 1012)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 15:07:31">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:08:16">
 <Class name="APPS.Halux.common.impl.BatchImpl">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent,APPS.Halux.common.Batch</Super>
-<TimeChanged>62189,54458.271185</TimeChanged>
+<TimeChanged>62199,50912.144639</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Lijn">
@@ -22,12 +22,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Toeleveringen">
+<Property name="ToeleveringenIndex">
 <Type>%Integer</Type>
 <Collection>array</Collection>
 <Private>1</Private>
 </Property>
 
+<Property name="Toeleveringen">
+<Type>%Integer</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Property name="IsActief">
 <Type>%Boolean</Type>
 <Calculated>1</Calculated>
@@ -36,10 +42,6 @@
 <SqlComputed>1</SqlComputed>
 </Property>
 
-<Parameter name="KastKlanten">
-<Default>;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814;</Default>
-</Parameter>
-
 <Method name="%OnNew">
 <FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn=""</FormalSpec>
 <Private>1</Private>
@@ -78,8 +80,8 @@
 	Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
 	While (Iterator.HasNext())
 	{
-		Do Iterator.Next()
-		Set Toelevering = ToeleveringAPI.GeefToelevering(Iterator.Key())
+		Set ToeleveringNummer = Iterator.Next()
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 		If ($IsObject(Toelevering))
 		{
 			Do Toeleveringen.Insert(Toelevering)
@@ -117,16 +119,17 @@
 		{
 			Set Aantal = Aantal + Lijn.GeefAantal()
 			// De productiegroep van het laatste product wint, dit bij gebrek aan betere opties...
-			Set ProductieGroep = ..BepaalProductieGroep(Toelevering, Product)
+			Set ProductieGroep = ##class(APPS.Halux.common.ProductieService).%New().GeefProductieGroep(Toelevering, Product)
 		}
 	}
 	
 	Set Errors = ##class(%ListOfDataTypes).%New()
 	
 	If (Aantal = 0) { Do Errors.Insert("De toelevering bevat geen tandemboxen") }
 	If ((Aantal > 0) && '..IsGeldigeProductieGroep(ProductieGroep)) { Do Errors.Insert("De productiegroep van de toelevering is verschillend van de productiegroep van de batch") }
-	If (..IsAanwezigInAndereBatch(Toelevering)) { Do Errors.Insert("De toelevering zit reeds in een andere batch") }
-	If (..Toeleveringen.IsDefined(Toelevering.GeefToeNr())) { Do Errors.Insert("De toelevering zit reeds in deze batch") }
+	Set BijhorendeBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering)
+	If ($IsObject(BijhorendeBatch)) { Do Errors.Insert("Deze toelevering zit reeds in batch "_BijhorendeBatch.GeefBatchID()) }
+	If (..ToeleveringenIndex.IsDefined(Toelevering.GeefToeNr())) { Do Errors.Insert("De toelevering zit reeds in deze batch") }
 	If ((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) && ('..IsGeldigAfleverAdres(Toelevering))) { Do Errors.Insert("Het afleveradres van deze toelevering is anders dan de vorige") }
 	
 	If (Errors.Count() > 0)
@@ -138,7 +141,8 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError))
 	}
 	
-	Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr())
+	Do ..ToeleveringenIndex.SetAt(1,Toelevering.GeefToeNr())
+	Do ..Toeleveringen.Insert(Toelevering.GeefToeNr())
 	Set ..ProductieGroep = ProductieGroep
 ]]></Implementation>
 </Method>
@@ -147,7 +151,21 @@
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set Removed = ..Toeleveringen.RemoveAt(Toelevering.GeefToeNr())
+	Set Removed = ..ToeleveringenIndex.RemoveAt(Toelevering.GeefToeNr())
+	If (Removed)
+	{
+		Set Gevonden = 0
+		Set i = 1
+		While (('Gevonden) && (i '> ..Toeleveringen.Count()))
+		{
+			If (..Toeleveringen.GetAt(i) = Toelevering.GeefToeNr())
+			{
+				Do ..Toeleveringen.RemoveAt(i)
+				Set Gevonden = 1
+			}
+			Set i = i + 1
+		} 
+	}
 	If (..Toeleveringen.Count() = 0)
 	{
 		Do ..CleanUp()
@@ -158,6 +176,7 @@
 
 <Method name="VerwijderAlleToeleveringen">
 <Implementation><![CDATA[
+	Do ..ToeleveringenIndex.Clear()
 	Do ..Toeleveringen.Clear()
 	Do ..CleanUp()
 ]]></Implementation>
@@ -177,21 +196,16 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	Set ToeleveringNummerIterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
+	Set ToeleveringIterator = ..GeefToeleveringIterator()
 	Set BatchAdres = ""
 	Set GevraagdeAdres = ""
-	While ((BatchAdres = "") && (ToeleveringNummerIterator.HasNext()))
+	While ((BatchAdres = "") && (ToeleveringIterator.HasNext()))
 	{
-		
-		Set ToeleveringNummer = ToeleveringNummerIterator.Next()
-		Set BatchToelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
-		If ($IsObject(BatchToelevering))
+		Set BatchToelevering = ToeleveringIterator.Next()
+		Set Order = BatchToelevering.GeefOrder()
+		If ($IsObject(Order))
 		{
-			Set Order = BatchToelevering.GeefOrder()
-			If ($IsObject(Order))
-			{
-				Set BatchAdres = ..GeefAdresString(Order)
-			}
+			Set BatchAdres = ..GeefAdresString(Order)
 		}
 	}
 	Set Order = Toelevering.GeefOrder()
@@ -221,81 +235,43 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsAanwezigInAndereBatch">
-<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
-<Private>1</Private>
+<Method name="IsActief">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) '= ""
+<Implementation><![CDATA[	Quit ..GeefToeleveringIterator().HasNext()
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalProductieGroep">
-<FormalSpec>Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Method name="%OnDelete">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ProductieGroep = ""
-	Set Verpakking = TBXLade.GeefVerpakking()
-	If ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen()))
+	Set Batch = ..%Open(oid)
+	If ($IsObject(Batch))
 	{
-		If (Toelevering.GeefOrder().GeefKlantNr() = 1239)
-		{
-			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Plus()
-		}
-		ElseIf ($Find(..#KastKlanten,";"_Toelevering.GeefOrder().GeefKlantNr()_";"))
-		{
-			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()
-		}
-		Else
-		{
-			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
-		}
+		Do ..RaiseBatchRemovedEvent(Batch.%Id())
 	}
-	ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen()))
-	{
-		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
-	}
-	Else
-	{
-		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()
-	}
-	Quit ProductieGroep
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="IsActief">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefToeleveringIterator().HasNext()
+<Method name="RaiseBatchRemovedEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedData).%New(BatchID)
+	Set Event = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
 </Method>
 
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.Halux.common7FB.BatchImplD</DataLocation>
-<DefaultData>BatchImplDefaultData</DefaultData>
-<IdLocation>^APPS.Halux.common7FB.BatchImplD</IdLocation>
-<IndexLocation>^APPS.Halux.common7FB.BatchImplI</IndexLocation>
-<StreamLocation>^APPS.Halux.common7FB.BatchImplS</StreamLocation>
-<Data name="BatchImplDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>AanmaakTijdstip</Value>
-</Value>
-<Value name="3">
-<Value>Lijn</Value>
-</Value>
-<Value name="4">
-<Value>ProductieGroep</Value>
-</Value>
-</Data>
-<Data name="Toeleveringen">
-<Attribute>Toeleveringen</Attribute>
-<Structure>subnode</Structure>
-<Subscript>"Toeleveringen"</Subscript>
-</Data>
-</Storage>
+<Trigger name="DeleteTrigger">
+<Code>	Do ..RaiseBatchRemovedEvent({ID})</Code>
+<Event>DELETE</Event>
+<Order>1</Order>
+<Time>AFTER</Time>
+</Trigger>
 </Class>
-<Checksum value="3842370500"/>
+<Checksum value="4077248354"/>
 </Export>