Index: PlanScan/WS/GebruikerService.pas
===================================================================
diff -u -r283 -r370
--- PlanScan/WS/GebruikerService.pas	(.../GebruikerService.pas)	(revision 283)
+++ PlanScan/WS/GebruikerService.pas	(.../GebruikerService.pas)	(revision 370)
@@ -5,7 +5,7 @@
 //  >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (2/03/2020 9:30:33 - - $Rev: 45757 $)
+// (7/05/2020 8:38:23 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit GebruikerService;
@@ -35,12 +35,12 @@
 
   GebruikerAanmeldenRequest = class;            { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   RequestHeader        = class;                 { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
-  ZoekGebruikersRequest = class;                { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
+  ZoekAangemeldeGebruikersRequest = class;      { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   GebruikerAfmeldenRequest = class;             { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   DataTransferObject   = class;                 { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   GebruikerAfmeldenResponse = class;            { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   GebruikerAanmeldenResponse = class;           { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
-  ZoekGebruikersResponse = class;               { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
+  ZoekAangemeldeGebruikersResponse = class;     { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   Gebruiker            = class;                 { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
   ResponseHeader       = class;                 { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] }
 
@@ -83,10 +83,10 @@
 
 
   // ************************************************************************ //
-  // XML       : ZoekGebruikersRequest, global, <complexType>
+  // XML       : ZoekAangemeldeGebruikersRequest, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker
   // ************************************************************************ //
-  ZoekGebruikersRequest = class(TRemotable)
+  ZoekAangemeldeGebruikersRequest = class(TRemotable)
   private
     FHeader: RequestHeader;
     FLoginCode: string;
@@ -172,10 +172,10 @@
 
 
   // ************************************************************************ //
-  // XML       : ZoekGebruikersResponse, global, <complexType>
+  // XML       : ZoekAangemeldeGebruikersResponse, global, <complexType>
   // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker
   // ************************************************************************ //
-  ZoekGebruikersResponse = class(DataTransferObject)
+  ZoekAangemeldeGebruikersResponse = class(DataTransferObject)
   private
     FHeader: ResponseHeader;
     FGebruikers: ArrayOfGebruikerGebruiker;
@@ -258,7 +258,7 @@
   ['{B88E6F54-A0CE-0BA2-3E36-0D17B4BAA312}']
     function  GebruikerAanmelden(const GebruikerAanmeldenRequest: GebruikerAanmeldenRequest): GebruikerAanmeldenResponse; stdcall;
     function  GebruikerAfmelden(const GebruikerAfmeldenRequest: GebruikerAfmeldenRequest): GebruikerAfmeldenResponse; stdcall;
-    function  ZoekGebruikers(const ZoakGebruikersRequest: ZoekGebruikersRequest): ZoekGebruikersResponse; stdcall;
+    function  ZoekAangemeldeGebruikers(const ZoekAangemeldeGebruikersRequest: ZoekAangemeldeGebruikersRequest): ZoekAangemeldeGebruikersResponse; stdcall;
   end;
 
 function GetGebruikerServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GebruikerServiceSoap;
@@ -310,19 +310,19 @@
   inherited Destroy;
 end;
 
-destructor ZoekGebruikersRequest.Destroy;
+destructor ZoekAangemeldeGebruikersRequest.Destroy;
 begin
   SysUtils.FreeAndNil(FHeader);
   inherited Destroy;
 end;
 
-procedure ZoekGebruikersRequest.SetInitialen(Index: Integer; const Astring: string);
+procedure ZoekAangemeldeGebruikersRequest.SetInitialen(Index: Integer; const Astring: string);
 begin
   FInitialen := Astring;
   FInitialen_Specified := True;
 end;
 
-function ZoekGebruikersRequest.Initialen_Specified(Index: Integer): boolean;
+function ZoekAangemeldeGebruikersRequest.Initialen_Specified(Index: Integer): boolean;
 begin
   Result := FInitialen_Specified;
 end;
@@ -356,7 +356,7 @@
   inherited Destroy;
 end;
 
-destructor ZoekGebruikersResponse.Destroy;
+destructor ZoekAangemeldeGebruikersResponse.Destroy;
 var
   I: Integer;
 begin
@@ -367,13 +367,13 @@
   inherited Destroy;
 end;
 
-procedure ZoekGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker);
+procedure ZoekAangemeldeGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker);
 begin
   FGebruikers := AArrayOfGebruikerGebruiker;
   FGebruikers_Specified := True;
 end;
 
-function ZoekGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean;
+function ZoekAangemeldeGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean;
 begin
   Result := FGebruikers_Specified;
 end;
@@ -451,20 +451,20 @@
   { GebruikerServiceSoap.GebruikerAfmelden }
   InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAfmelden', '',
                                  '[ReturnName="GebruikerAfmeldenResult"]');
-  { GebruikerServiceSoap.ZoekGebruikers }
-  InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekGebruikers', '',
-                                 '[ReturnName="ZoekGebruikersResult"]');
+  { GebruikerServiceSoap.ZoekAangemeldeGebruikers }
+  InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekAangemeldeGebruikers', '',
+                                 '[ReturnName="ZoekAangemeldeGebruikersResult"]');
   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfGebruikerGebruiker), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ArrayOfGebruikerGebruiker');
   RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'String_', 'String');
   RemClassRegistry.RegisterXSClass(GebruikerAanmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenRequest');
   RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'RequestHeader');
-  RemClassRegistry.RegisterXSClass(ZoekGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersRequest');
+  RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersRequest');
   RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest');
   RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'DataTransferObject');
   RemClassRegistry.RegisterXSClass(GebruikerAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenResponse');
   RemClassRegistry.RegisterXSClass(GebruikerAanmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenResponse');
-  RemClassRegistry.RegisterXSClass(ZoekGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersResponse');
-  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]');
+  RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersResponse');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAangemeldeGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]');
   RemClassRegistry.RegisterXSClass(Gebruiker, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'Gebruiker');
   RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ResponseHeader');
 
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r367 -r370
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 367)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 370)
@@ -44,11 +44,15 @@
     <Transaction>2020/04/28 16:29:32.000.030,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
     <Transaction>2020/05/06 15:48:04.623,=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
-    <Transaction>2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm</Transaction>
+    <Transaction>2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas</Transaction>
     <Transaction>2020/05/07 08:09:33.580,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
     <Transaction>2020/05/07 08:09:44.951,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2020/05/07 08:10:20.303,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/05/07 08:37:58.610,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/05/07 08:38:23.569,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/05/07 08:38:31.739,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=</Transaction>
+    <Transaction>2020/05/07 08:38:57.386,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
@@ -65,8 +69,8 @@
     <File Path="WS"/>
     <File Path="WS\Agent.pas"/>
     <File Path="WS\__history"/>
-    <File Path="WS\GebruikerService.pas"/>
     <File Path="WS\DnaCodeService.pas"/>
+    <File Path="WS\GebruikerService.pas"/>
     <File Path="Main.pas"/>
     <File Path="Main.dfm"/>
   </ProjectSortOrder>
Index: PlanScan/UI/frameGebruikers.dfm
===================================================================
diff -u -r361 -r370
--- PlanScan/UI/frameGebruikers.dfm	(.../frameGebruikers.dfm)	(revision 361)
+++ PlanScan/UI/frameGebruikers.dfm	(.../frameGebruikers.dfm)	(revision 370)
@@ -56,8 +56,6 @@
     BevelEdges = []
     BevelOuter = bvNone
     TabOrder = 1
-    ExplicitLeft = 300
-    ExplicitHeight = 352
     object btnGebruikerAfmelden: TButton
       Left = 6
       Top = 6
Index: PlanScan/Main.pas
===================================================================
diff -u -r369 -r370
--- PlanScan/Main.pas	(.../Main.pas)	(revision 369)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 370)
@@ -65,9 +65,6 @@
 end;
 
 procedure TfmMain.FormShow(Sender: TObject);
-var
-  fLoginScherm: TfmLogin;
-  fGebruikerAanmeldenResponse: GebruikerAanmeldenResponse;
 begin
   pcFrames.ActivePage := tsDnaCodes;
   if not GebruikerInloggen then
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r367 -r370
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 367)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 370)
@@ -10,13 +10,13 @@
   Agent in 'WS\Agent.pas',
   UiContext in 'UI\UiContext.pas',
   Images in 'UI\Images.pas',
-  GebruikerService in 'WS\GebruikerService.pas',
   LoginScherm in 'UI\LoginScherm.pas' {fmLogin},
   MidasLib,
   frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame},
   frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame},
   frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame},
-  DnaCodeService in 'WS\DnaCodeService.pas';
+  DnaCodeService in 'WS\DnaCodeService.pas',
+  GebruikerService in 'WS\GebruikerService.pas';
 
 {$R *.res}
 
Index: PlanScan/UI/frameGebruikers.pas
===================================================================
diff -u -r361 -r370
--- PlanScan/UI/frameGebruikers.pas	(.../frameGebruikers.pas)	(revision 361)
+++ PlanScan/UI/frameGebruikers.pas	(.../frameGebruikers.pas)	(revision 370)
@@ -30,9 +30,9 @@
 
 procedure TfrmGebruikers.ZoekAlleGebruikers();
 var
-  fZoekGebruikersResponse: ZoekGebruikersResponse;
+  fZoekGebruikersResponse: ZoekAangemeldeGebruikersResponse;
 begin
-  fZoekGebruikersResponse := TAgent.Create(fmMain.UiContext).ZoekAlleGebruikers();
+  fZoekGebruikersResponse := TAgent.Create(fmMain.UiContext).ZoekAangemeldeGebruikers();
   try
     if fZoekGebruikersResponse.Header.Status = '200' then begin
       VulGebruikersGridMetData(fZoekGebruikersResponse.Gebruikers);
Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r367 -r370
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 367)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 370)
@@ -19,7 +19,7 @@
     function FullName: String;
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(Initialen, LoginCode: string): boolean;
-    function ZoekAlleGebruikers(): ZoekGebruikersResponse;
+    function ZoekAangemeldeGebruikers(): ZoekAangemeldeGebruikersResponse;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
@@ -129,12 +129,12 @@
   end;
 end;
 
-function TAgent.ZoekAlleGebruikers: ZoekGebruikersResponse;
+function TAgent.ZoekAangemeldeGebruikers: ZoekAangemeldeGebruikersResponse;
 var
-  Request: ZoekGebruikersRequest;
+  Request: ZoekAangemeldeGebruikersRequest;
   Header: RequestHeader;
 begin
-  Request := ZoekGebruikersRequest.Create;
+  Request := ZoekAangemeldeGebruikersRequest.Create;
   Header := RequestHeader.Create;
   try
     Request.Initialen := fUiContext.Initialen;
@@ -143,7 +143,7 @@
     Header.ComputerNaam := FullName();
     Request.Header := Header;
 
-    Result := fGebruikerServiceSoap.ZoekGebruikers(Request);
+    Result := fGebruikerServiceSoap.ZoekAangemeldeGebruikers(Request);
 
   finally
     Request.Free;
Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r367 -r370
--- PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 367)
+++ PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 370)
@@ -90,7 +90,6 @@
 			<DCCReference Include="WS\Agent.pas"/>
 			<DCCReference Include="UI\UiContext.pas"/>
 			<DCCReference Include="UI\Images.pas"/>
-			<DCCReference Include="WS\GebruikerService.pas"/>
 			<DCCReference Include="UI\LoginScherm.pas">
 				<Form>fmLogin</Form>
 				<FormType>dfm</FormType>
@@ -111,6 +110,7 @@
 				<DesignClass>TFrame</DesignClass>
 			</DCCReference>
 			<DCCReference Include="WS\DnaCodeService.pas"/>
+			<DCCReference Include="WS\GebruikerService.pas"/>
 			<None Include="WS\__history"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>