Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r954 -r994
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 954)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 994)
@@ -1,78 +1,112 @@
 <?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-03-24 16:43:38">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 15:07:31">
 <Class name="APPS.Halux.common.impl.BatchImpl">
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,APPS.Halux.common.Batch</Super>
-<TimeChanged>62174,60304.400541</TimeChanged>
+<Super>%Persistent,APPS.Halux.common.Batch</Super>
+<TimeChanged>62189,54458.271185</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Batch">
-<Type>DS.PPS.TBX.Batch</Type>
+<Property name="Lijn">
+<Type>APPS.Halux.common.enu.ProductieLijn</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="AanmaakTijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieGroep">
+<Type>APPS.Halux.common.enu.ProductieGroep</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Toeleveringen">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="IsActief">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<Private>1</Private>
+<SqlComputeCode>	Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsActief()</SqlComputeCode>
+<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>BatchID:%Integer=""</FormalSpec>
+<FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	If (BatchID '= "")
-	{
-		If (##class(DS.PPS.TBX.Batch).%ExistsId(BatchID))
-		{
-			Set ..Batch = ##class(DS.PPS.TBX.Batch).%OpenId(BatchID)
-		}
-		Else
-		{
-			Set Status = $$$ERROR($$$GeneralError,"Batch is niet aanwezig in het systeem")
-		}
-	}
-	Else
-	{
-		Set ..Batch = ##class(DS.PPS.TBX.Batch).%New()
-		Set ..Batch.CreationTimeStamp = $$Format^vhLib("jjjj-mm-dd hh:nn:ss",$H)
-	}
-	Quit Status
+	Set ..Lijn = Lijn
+	Set ..AanmaakTijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAanmaakTijdstip">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..AanmaakTijdstip
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchID">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..Batch.%Id()
+<Implementation><![CDATA[	Quit ..%Id()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVroegsteDueOutTime">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Batch.EarliestDueOut
+<Method name="ZetLijn">
+<FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
+<Implementation><![CDATA[	Set ..Lijn = ProductieLijn
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set Toeleveringen = ##class(%ListOfObjects).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
+	While (Iterator.HasNext())
+	{
+		Do Iterator.Next()
+		Set Toelevering = ToeleveringAPI.GeefToelevering(Iterator.Key())
+		If ($IsObject(Toelevering))
+		{
+			Do Toeleveringen.Insert(Toelevering)
+		}
+	}
+	Quit ##class(TECH.ListIterator).%New(Toeleveringen)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductieGroep">
-<ReturnType>APPS.Halux.enu.ProductieGroep</ReturnType>
-<Implementation><![CDATA[	Quit ..Batch.Type
+<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductieGroep
 ]]></Implementation>
 </Method>
 
-<Method name="Save">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ..Batch.%Save()
+<Method name="GeefLijn">
+<ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
+<Implementation><![CDATA[	Quit ..Lijn
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeToelevering">
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	
 	Set Aantal = 0
-	Set TipOn = 0
-	Set SpoelbakSifon = 0
-	Set Baliko = 0
 	
+	Set ProductieGroep = ""
 	Set LijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
 	While (LijnIterator.HasNext())
 	{
@@ -82,44 +116,108 @@
 		If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 		{
 			Set Aantal = Aantal + Lijn.GeefAantal()
-			Set TipOn = TipOn + Product.BevatTipOn()
-			Set SpoelbakSifon = SpoelbakSifon + Product.IsSpoelbakLade() + Product.IsSifonLade()
-			Set Baliko = Baliko + (Product.GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXBaliko())
 			// De productiegroep van het laatste product wint, dit bij gebrek aan betere opties...
 			Set ProductieGroep = ..BepaalProductieGroep(Toelevering, Product)
 		}
 	}
 	
-	If (Aantal = 0) { Set Status = $$$ERROR($$$GeneralError,"De toelevering bevat geen tandemboxen") }
-	ElseIf ($$$ISOK(Status) && '..IsGeldigeProductieGroep(ProductieGroep)) { Set Status = $$$ERROR($$$GeneralError,"De productiegroep van de toelevering is verschillende van de productiegroep van de batch") }
-	ElseIf ($$$ISOK(Status) && ..IsAanwezigInAndereBatch(Toelevering)) { Set Status = $$$ERROR($$$GeneralError,"De toelevering zit reeds in een andere batch") }
+	Set Errors = ##class(%ListOfDataTypes).%New()
 	
-	If ($$$ISOK(Status))
+	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") }
+	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)
 	{
-		Set ..Batch.NbrDrawers = ..Batch.NbrDrawers + Aantal
-		Set ..Batch.NbrTipOn = ..Batch.NbrTipOn + TipOn
-		Set ..Batch.NbrSink = ..Batch.NbrSink + SpoelbakSifon
-		Set ..Batch.NbrWood = ..Batch.NbrWood + Baliko
+		Set MaakBatchError = ##class(APPS.Halux.common.impl.BatchError).%New()
+		Set MaakBatchError.ToeleveringNummer = Toelevering.GeefToeNr()
+		Set MaakBatchError.Boodschappen = Errors
+		Set MaakBatchErrorLijst = ##class(%ListOfObjects).%New()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError))
+	}
+	
+	Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr())
+	Set ..ProductieGroep = ProductieGroep
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Removed = ..Toeleveringen.RemoveAt(Toelevering.GeefToeNr())
+	If (..Toeleveringen.Count() = 0)
+	{
+		Do ..CleanUp()
+	}
+	Quit Removed
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlleToeleveringen">
+<Implementation><![CDATA[
+	Do ..Toeleveringen.Clear()
+	Do ..CleanUp()
+]]></Implementation>
+</Method>
+
+<Method name="CleanUp">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..ProductieGroep = ""
+	Set ..Lijn = ""
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigAfleverAdres">
+<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set ToeleveringNummerIterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
+	Set BatchAdres = ""
+	Set GevraagdeAdres = ""
+	While ((BatchAdres = "") && (ToeleveringNummerIterator.HasNext()))
+	{
 		
-		Do ..Batch.Toeleveringen.Insert(##class(DS.PPS.TBX.sub.emBatchToelevering).Create(Toelevering.GeefToeNr()))
-		Set ..Batch.Type = ProductieGroep
-		
-		Set DueOutSeconds = ##class(TECH.DateTime).HorologToSeconds(Toelevering.GeefDueOutTime())
-		If ((..Batch.EarliestDueOut = "") || (DueOutSeconds < ##class(TECH.DateTime).TimestampToSeconds(..Batch.EarliestDueOut)))
+		Set ToeleveringNummer = ToeleveringNummerIterator.Next()
+		Set BatchToelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+		If ($IsObject(BatchToelevering))
 		{
-			Set ..Batch.EarliestDueOut = $zdt(Toelevering.GeefDueOutTime(),3)
+			Set Order = BatchToelevering.GeefOrder()
+			If ($IsObject(Order))
+			{
+				Set BatchAdres = ..GeefAdresString(Order)
+			}
 		}
 	}
-	
-	Quit Status
+	Set Order = Toelevering.GeefOrder()
+	If ($IsObject(Order))
+	{
+		Set GevraagdeAdres = ..GeefAdresString(Order)
+	}
+	Quit (BatchAdres = "") || (BatchAdres = GevraagdeAdres)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAdresString">
+<FormalSpec>Order:DOM.OV.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Adres = Order.GeefAfleveradres()
+	Quit Adres.GeefNaam()_"\"_Adres.GeefStraat()_"\"_Adres.GeefPostcode()
+]]></Implementation>
+</Method>
+
 <Method name="IsGeldigeProductieGroep">
 <FormalSpec>ProductieGroep:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ((..Batch.Type = "") || (..Batch.Type = ProductieGroep))
+<Implementation><![CDATA[	Quit ((..ProductieGroep = "") || (..ProductieGroep = ProductieGroep))
 ]]></Implementation>
 </Method>
 
@@ -134,32 +232,70 @@
 <Method name="BepaalProductieGroep">
 <FormalSpec>Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.enu.ProductieGroep</ReturnType>
+<ReturnType>APPS.Halux.common.enu.ProductieGroep</ReturnType>
 <Implementation><![CDATA[
 	Set ProductieGroep = ""
 	Set Verpakking = TBXLade.GeefVerpakking()
 	If ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen()))
 	{
 		If (Toelevering.GeefOrder().GeefKlantNr() = 1239)
 		{
-			Set ProductieGroep = ##class(APPS.Halux.enu.ProductieGroep).Plus()
+			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.enu.ProductieGroep).Kast()
+			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
 		}
 	}
 	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.enu.ProductieGroep).Pallet()
+		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()
 	}
 	Else
 	{
-		Set ProductieGroep = ##class(APPS.Halux.enu.ProductieGroep).Stuk()
+		Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()
 	}
 	Quit ProductieGroep
 ]]></Implementation>
 </Method>
+
+<Method name="IsActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefToeleveringIterator().HasNext()
+]]></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>
 </Class>
-<Checksum value="3907581299"/>
+<Checksum value="3842370500"/>
 </Export>