Index: WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/Login.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/Login.cls.xml	(revision 0)
+++ WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/Login.cls.xml	(revision 36833)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Login">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Id">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml	(revision 0)
+++ WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml	(revision 36833)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.LoginService">
+<Super>vhLib.WebService</Super>
+
+<Parameter name="SERVICENAME">
+<Default>ControleService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<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="GeefMetaData">
+<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.MetaData</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim ServiceKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Verpakking_ControleService_GeefMetaData")
+	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ..ObjectAPI.New(ServiceKlasseNaam)
+	
+	Quit Service.GeefMetaData()
+	;Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New().GeefMetaData()
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<FormalSpec>Id:%String</FormalSpec>
+<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$chkRequiredParameter(Id)
+	
+	#dim ServiceKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Verpakking_ControleService_GeefData")
+	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ..ObjectAPI.New(ServiceKlasseNaam)
+
+	Quit Service.GeefData(Id)
+	;Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New().GeefData(Id)
+]]></Implementation>
+</Method>
+
+<Method name="Afgehandeld">
+<FormalSpec>Data:WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Status</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$chkRequiredParameter(Data)
+	
+	#dim ServiceKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Verpakking_ControleService_Afgehandeld")
+	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ..ObjectAPI.New(ServiceKlasseNaam)
+	
+	Quit Service.Afgehandeld(Data)
+	;Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New().Afgehandeld(Data)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>