Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml
===================================================================
diff -u -r994 -r1012
--- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(.../ActiviteitInfoTBX.cls.xml)	(revision 994)
+++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(.../ActiviteitInfoTBX.cls.xml)	(revision 1012)
@@ -1,9 +1,9 @@
 <?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-30 14:58:04">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 09:15:16">
 <Class name="APPS.Halux.Planning.impl.ActiviteitInfoTBX">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor</Super>
-<TimeChanged>62180,53884.910591</TimeChanged>
+<TimeChanged>62199,33332.493296</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ActiviteitenMap">
@@ -16,18 +16,38 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Toelevering">
+<Type>DOM.LEV.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GebruikteActiviteiten">
 <Type>%ArrayOfObjects</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductieLijnen">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Product:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<FormalSpec>Toelevering:DOM.LEV.Toelevering,Batch:APPS.Halux.common.Batch,Product:DOM.PM.TBXProduct.TBXLade</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..Toelevering = Toelevering
+	Set ..Batch = Batch
 	Set ..Product = Product
+	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
+	Set ProductieGroep = ProductieService.GeefProductieGroep(Toelevering, Product)
+	Set ..ProductieLijnen = ProductieService.GeefProductieLijnen(ProductieGroep)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -97,11 +117,43 @@
 <FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ActiviteitInfo = ..ActiviteitenMap.GetAt(Item.GeefActiviteitNummer())
-	Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitInfo.Naam)
-	Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
-	Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(Item.GeefActiviteitNummer())
-	Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd()
+	Set IsToeTeVoegen = 1
+	Set ActiviteitNummer = Item.GeefActiviteitNummer()
+	
+	Set ProductieLijn = ""
+	If (..ProductieLijnen.Count() = 1)
+	{
+		Set ProductieLijn = ..ProductieLijnen.GetAt(1)
+	}
+	ElseIf ($IsObject(..Batch) && (..Batch.GeefLijn() '= ""))
+	{
+		Set ProductieLijn = ..Batch.GeefLijn()
+	}
+	
+	// We weten op welke lijn er zal geproduceerd worden
+	If (ProductieLijn '= "")
+	{
+		// Ga specifiek na of de productielijn overeenkomt met de activiteit
+		// Lijnwerk voor lijn 1 wordt enkel toegekend als de productielijn 1 is
+		If ((ActiviteitNummer = 8) && (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Een()))
+		{
+			Set IsToeTeVoegen = 0
+		}
+		// Lijnwerk voor lijn 2 wordt enkel toegekend als de productielijn 2 is
+		ElseIf ((ActiviteitNummer = 9) && (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Twee()))
+		{
+			Set IsToeTeVoegen = 0
+		}
+	}
+	
+	If (IsToeTeVoegen)
+	{
+		Set ActiviteitInfo = ..ActiviteitenMap.GetAt(ActiviteitNummer)
+		Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitNummer)
+		Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
+		Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(ActiviteitNummer)
+		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd()
+	}
 ]]></Implementation>
 </Method>
 
@@ -139,8 +191,8 @@
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX TIP-ON bewerkingen",-3), 5)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",-1), 6)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",-1), 7)
-	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 8)
-	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 8) // lijn 1
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9) // lijn 2
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX verpakking V1",0), 11)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 12)
 	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13)
@@ -153,5 +205,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="852340887"/>
+<Checksum value="864522072"/>
 </Export>