Index: WS/Halux/Planning/ActiviteitPerBatchService.cls.xml
===================================================================
diff -u -r57550 -r57566
--- WS/Halux/Planning/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57550)
+++ WS/Halux/Planning/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57566)
@@ -66,6 +66,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDataSetVoorQuery">
+<FormalSpec>AppNaam:%String,ComputerNaam:%String,QueryNaam:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..BepaalImplementatie()
+	Set DataSet = ..Service.GeefDataSetVoorQuery(AppNaam, ComputerNaam, ..GeefSQLViaQueryNaam(QueryNaam))
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerknemers">
+<FormalSpec>AppNaam:%String,ComputerNaam:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..BepaalImplementatie()
+	Quit ..Service.GeefWerknemers(AppNaam, ComputerNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLViaQueryNaam">
+<FormalSpec>QueryNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(WS.Halux.Planning.ActiviteitPerBatchService.Queries).GeefSQLViaQueryNaam(QueryNaam)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalImplementatie">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..Service=##class(APPS.Halux.Planning.Activiteit.impl.ActiviteitPerBatchService).%New()
Index: WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml
===================================================================
diff -u
--- WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(revision 0)
+++ WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(revision 57566)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.Planning.ActiviteitPerBatchService.Queries">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefSQLViaQueryNaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>QueryNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim QueryString As %String = ""
+	
+	If (QueryNaam = "SQL1") {
+		Set QueryString = "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,"
+							_"               ActiviteitID_1 , ActiviteitID_2,ActiviteitID_3,ActiviteitID_4,ActiviteitID_5,"
+							_"               'Front' Label_1,'Syncro' Label_2,'Zijstab' Label_3,'DwarsVerd' Label_4,'Glas' Label_5,"
+							_"               Gebruiker_1,Gebruiker_2,Gebruiker_3,Gebruiker_4,Gebruiker_5,"
+							_"               0 ReadOnly_1,1 ReadOnly_2,0 ReadOnly_3,0 ReadOnly_4,0 ReadOnly_5 "
+							_"From ( "
+							_"Select "
+							_"right(AB.Batch,4) as BatchVisual,"
+							_"AB.Resource as Naar,"
+							_"isnull(AB1.EindTijdstip,isnull(AB2.EindTijdstip,isnull(AB3.EindTijdstip,isnull(AB4.EindTijdstip,AB5.EindTijdstip)))) EindTijdstip,"
+							_"AB.Productgroep,"
+							_"AB1.Batch || ';' || AB1.Resource  || ';' || AB1.Activiteit as ActiviteitID_1,"
+							_"AB2.Batch || ';' || AB2.Resource  || ';' || AB2.Activiteit as ActiviteitID_2,"
+							_"AB3.Batch || ';' || AB3.Resource  || ';' || AB3.Activiteit as ActiviteitID_3,"
+							_"AB4.Batch || ';' || AB4.Resource  || ';' || AB4.Activiteit as ActiviteitID_4,"
+							_"AB5.Batch || ';' || AB5.Resource  || ';' || AB5.Activiteit as ActiviteitID_5,"
+							_"AB1.StartTijdstip as StartTijdstip_1,"
+							_"AB2.StartTijdstip as StartTijdstip_2,"
+							_"AB3.StartTijdstip as StartTijdstip_3,"
+							_"AB4.StartTijdstip as StartTijdstip_4,"
+							_"AB5.StartTijdstip as StartTijdstip_5,"
+							_"AB1.Status Status_1,"
+							_"AB2.Status Status_2,"
+							_"AB3.Status Status_3,"
+							_"AB4.Status Status_4,"
+							_"AB5.Status Status_5,"
+							_"AB1.Aantal Aantal_1,"
+							_"AB2.Aantal Aantal_2,"
+							_"AB3.Aantal Aantal_3,"
+							_"AB4.Aantal Aantal_4,"
+							_"AB5.Aantal Aantal_5,"
+							_"AB1.Gebruiker Gebruiker_1,"
+							_"AB2.Gebruiker Gebruiker_2,"
+							_"AB3.Gebruiker Gebruiker_3,"
+							_"AB4.Gebruiker Gebruiker_4,"
+							_"AB5.Gebruiker Gebruiker_5 "
+							_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
+							_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='Voormontage' and AB1.Activiteit='Front' "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip = AB2.RecalcTijdstip and AB2.Resource='Voormontage' and AB2.Activiteit='Syncro' "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB3 on AB.Batch=AB3.Batch and RCM.ActiviteitPerBatchTijdstip = AB3.RecalcTijdstip and AB3.Resource='Voormontage' and AB3.Activiteit='ZijStab' "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB4 on AB.Batch=AB4.Batch and RCM.ActiviteitPerBatchTijdstip = AB4.RecalcTijdstip and AB4.Resource='Voormontage' and AB4.Activiteit='DwarsVerd' "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB5 on AB.Batch=AB5.Batch and RCM.ActiviteitPerBatchTijdstip = AB5.RecalcTijdstip and AB5.Resource='Voormontage' and AB5.Activiteit='Glas' "
+							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 "
+							_") "
+							_"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,"
+							_"               Status_1,Status_2,"
+							_"               Aantal_1,Aantal_2,"
+							_"               StartTijdstip_1,StartTijdstip_2,"
+							_"               ActiviteitID_1 , ActiviteitID_2,"
+							_"               'ASM' Label_1,'VILT' Label_2,"
+							_"               Gebruiker_1,Gebruiker_2,"
+							_"               0 ReadOnly_1,0 ReadOnly_2 "
+							_"From ( "
+							_"Select "
+							_"right(AB.Batch,4) as BatchVisual,"
+							_"AB.Resource as Naar,"
+							_"isnull(AB1.EindTijdstip,AB2.EindTijdstip) EindTijdstip,"
+							_"AB.Productgroep,"
+							_"AB1.Batch || ';' || AB1.Resource  || ';' || AB1.Activiteit as ActiviteitID_1,"
+							_"AB2.Batch || ';' || AB2.Resource  || ';' || AB2.Activiteit as ActiviteitID_2,"
+							_"AB1.StartTijdstip as StartTijdstip_1,"
+							_"AB2.StartTijdstip as StartTijdstip_2,"
+							_"AB1.Status Status_1,"
+							_"AB2.Status Status_2,"
+							_"AB1.Aantal Aantal_1,"
+							_"AB2.Aantal Aantal_2,"
+							_"AB1.Gebruiker Gebruiker_1,"
+							_"AB2.Gebruiker Gebruiker_2 "
+							_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
+							_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip = AB2.RecalcTijdstip and AB2.Resource='MAT' and AB2.Productgroep='VILT' "
+							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 "
+							_") "
+							_"where ActiviteitID_1  is not null or ActiviteitID_2 is not null "
+							_"order by Eindtijdstip "
+	}
+
+	Quit QueryString
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/HR/WieIsWie/Facade.cls.xml
===================================================================
diff -u
--- APPS/HR/WieIsWie/Facade.cls.xml	(revision 0)
+++ APPS/HR/WieIsWie/Facade.cls.xml	(revision 57566)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.HR.WieIsWie.Facade">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SQLConnection">
+<Type>%SQLGatewayConnection</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..SQLConnection = ##class(%SQLGatewayConnection).%New()
+	Set Status = ..SQLConnection.Connect("SQL02","VH_ReadOnly","SQLr3*d")
+	If $$$ISERR(Status){
+		w !
+		w "----------------------------------------------",!
+		w "Kon geen verbinding maken met SQL02-server !  ",!
+		w $$ParseStatus^vhLib(Status),!
+		w "----------------------------------------------",!
+		Quit Status	
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerknemers">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	set qHandler = ##class(%XML.DataSet).%New("%DynamicQueryGW:SQLGW")
+	#Dim Query As %String = "SELECT [PersNr],[Foto],[Achternaam],[Voornaam],Initialen FROM "
+	Set Query = Query _"[WieIsWie].[dbo].[tmpWieisWie] WHERE Bedrijf='Halux nv'"
+	
+	do qHandler.Prepare(Query,,..SQLConnection)
+	do qHandler.Execute()
+	quit qHandler
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml
===================================================================
diff -u -r57548 -r57566
--- APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57566)
@@ -64,6 +64,26 @@
 	Quit DataSet
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDataSetVoorQuery">
+<FormalSpec>AppNaam:%String,ComputerNaam:%String,SQL:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	// appnaam encomputernaam voor logging.
+	Set DataSet=##class(%XML.DataSet).%New()
+    Do DataSet.Prepare(SQL)
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerknemers">
+<FormalSpec>AppNaam:%String,ComputerNaam:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Set WieIsWieFacade = ##class(APPS.HR.WieIsWie.Facade).%New()
+	Quit WieIsWieFacade.GeefWerknemers()
+]]></Implementation>
+</Method>
 </Class>