Index: WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml
===================================================================
diff -u -r36833 -r36835
--- WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml	(.../LoginService.cls.xml)	(revision 36833)
+++ WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/LoginService.cls.xml	(.../LoginService.cls.xml)	(revision 36835)
@@ -4,70 +4,18 @@
 <Super>vhLib.WebService</Super>
 
 <Parameter name="SERVICENAME">
-<Default>ControleService</Default>
+<Default>LoginService</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>
+<Method name="Login">
+<FormalSpec>Passcode:%String</FormalSpec>
+<ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Login</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>