Index: WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml
===================================================================
diff -u -r57566 -r57593
--- WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 57566)
+++ WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 57593)
@@ -9,9 +9,40 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#Dim QueryString As %String = ""
-	
-	If (QueryNaam = "SQL1") {
-		Set QueryString = "select BatchVisual,EindTijdstip,ProductGroep,Naar,"
+	Quit:QueryNaam="SQL1" ..GeefSQLVoormontage()
+	Quit:QueryNaam="SQL2" ..GeefSQLMatten()
+	Quit:QueryNaam="LIJN1" ..GeefSQLLBXTBXLijn("Lijn 1")
+	Quit:QueryNaam="LIJN2" ..GeefSQLLBXTBXLijn("Lijn 2")
+	Quit:QueryNaam="LIJN3" ..GeefSQLLBXTBXLijn("Lijn 3")
+	Quit:QueryNaam="LIJN4" ..GeefSQLLBXTBXLijn("Lijn 4")
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLLBXTBXLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductieLijn</FormalSpec>
+<Implementation><![CDATA[
+	Quit "Select right(AB.Batch,4) as BatchVisual, "
+	_"   EindTijdstip,Productgroep, "
+	_"	 Status as Status_1,"
+	_"   Aantal as Aantal_1,"
+	_"   StartTijdstip as StartTijdstip_1,"
+	_"   AB.Batch || ';' || AB.Resource  || ';' || AB.Activiteit as ActiviteitID_1,"
+	_"	 'Lijn' as Label_1,"
+	_"	 '' as Gebruiker_1,"
+	_"	 1 as ReadOnly_1"
+	_" from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB"
+	_" join  APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1"
+	_" where AB.Resource = '" _ ProductieLijn _ "' and AB.Activiteit='Lade' and AB.isLeading = 2"
+	_" and AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip"
+	_" order by AB.StartTijdstip asc"
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLVoormontage">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit "select BatchVisual,EindTijdstip,ProductGroep,Naar,"
 							_"               Status_1,Status_2,Status_3,Status_4,Status_5,"
 							_"               Aantal_1,Aantal_2,Aantal_3,Aantal_4,Aantal_5,"
 							_"               StartTijdstip_1,StartTijdstip_2,StartTijdstip_3,StartTijdstip_4,StartTijdstip_5,"
@@ -61,8 +92,13 @@
 							_") "
 							_"where ActiviteitID_1  is not null or ActiviteitID_2 is not null or ActiviteitID_3 is not null or ActiviteitID_4 is not null or ActiviteitID_5 is not null "
 							_"order by Eindtijdstip "
-	} ElseIf (QueryNaam = "SQL2") {
-		Set QueryString = "select BatchVisual,EindTijdstip,ProductGroep,Naar,"
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLMatten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit "select BatchVisual,EindTijdstip,ProductGroep,Naar,"
 							_"               Status_1,Status_2,"
 							_"               Aantal_1,Aantal_2,"
 							_"               StartTijdstip_1,StartTijdstip_2,"
@@ -94,9 +130,6 @@
 							_") "
 							_"where ActiviteitID_1  is not null or ActiviteitID_2 is not null "
 							_"order by Eindtijdstip "
-	}
-
-	Quit QueryString
 ]]></Implementation>
 </Method>
 </Class>