Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(revision 37196)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefLocatie">
+<FormalSpec>Id:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit "Een locatie"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20161017xConfigItemxTAXxFPV1BijladenPickToLightService.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20161017xConfigItemxTAXxFPV1BijladenPickToLightService.cls.xml	(revision 0)
+++ vhDeploy/Deploy20161017xConfigItemxTAXxFPV1BijladenPickToLightService.cls.xml	(revision 37196)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20161017xConfigItemxTAXxFPV1BijladenPickToLightService">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Instellen BijladenPickToLight voor automatisering verpakkingslijn FPV1</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..ZetSleutel("TAX_FPV1_Verpakking_BijladenPickToLightService_GeefLocatie", ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleServiceDummy).%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="ZetSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel:TECH.String,Waarde:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel, Waarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml
===================================================================
diff -u -r36834 -r37196
--- WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(.../BijladenPickToLightService.cls.xml)	(revision 36834)
+++ WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(.../BijladenPickToLightService.cls.xml)	(revision 37196)
@@ -11,11 +11,35 @@
 <Default>http://www.vanhoecke.be/Halux/PPS/Verpakking</Default>
 </Parameter>
 
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLocatie">
 <FormalSpec>Id:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	quit $random(3)+1_"."_$random(5)+1
+<Implementation><![CDATA[
+	$$$chkRequiredParameter(Id)
+	
+	#dim ServiceKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("TAX_FPV1_Verpakking_BijladenPickToLightService_GeefLocatie")
+	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService = ..ObjectApi.New(ServiceKlasseNaam)
+	
+	Quit Service.GeefLocatie(Id)
+	;Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService).%New().GeefLocatie(Id)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightServiceDummy.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightServiceDummy.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightServiceDummy.cls.xml	(revision 37196)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightServiceDummy">
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService</Super>
+
+<Method name="GeefLocatie">
+<FormalSpec>Id:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $Random(3) + 1 _ "." _ $Random(5) + 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>