Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r3 -r4
Binary files differ
Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r3 -r4
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 3)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 4)
@@ -18,6 +18,7 @@
     procedure FormCreate(Sender: TObject);
     procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
     procedure btnLinksOnderClick(Sender: TObject);
+    procedure btnRechtsOnderClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -29,6 +30,9 @@
 
 implementation
 
+uses
+  GebruikerService;
+
 {$R *.dfm}
 
 procedure TfmLoginScherm.btnLinksOnderClick(Sender: TObject);
@@ -37,6 +41,34 @@
   Application.Terminate;
 end;
 
+procedure TfmLoginScherm.btnRechtsOnderClick(Sender: TObject);
+var
+  Service: GebruikerServiceSoap;
+  Request: GebruikerAanmeldenRequest;
+  Response: GebruikerAanmeldenResponse;
+begin
+  Service := GebruikerService.GetGebruikerServiceSoap();
+  // request opbouwen
+  Request := GebruikerAanmeldenRequest.Create;
+  try
+    Request.Initialen := edtInitialen.Text;
+    Request.LoginCode := edtPincode.Text;
+
+    Response := Service.GebruikerAanmelden(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        ShowMessage(Response.Header.Omschrijving);
+      end else begin
+        lblGebruiker.Caption := edtInitialen.Text;
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
+end;
+
 procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
 begin
   inherited;
Index: AAPClient/ProScan.identcache
===================================================================
diff -u -r1 -r4
Binary files differ
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r3 -r4
Binary files differ
Index: AAPClient/UI/LoginScherm.dfm
===================================================================
diff -u -r3 -r4
--- AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 3)
+++ AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 4)
@@ -1,7 +1,5 @@
 inherited fmLoginScherm: TfmLoginScherm
   Caption = 'fmLoginScherm'
-  ExplicitWidth = 232
-  ExplicitHeight = 241
   PixelsPerInch = 96
   TextHeight = 19
   object lblWelkom: TLabel [1]
@@ -34,6 +32,7 @@
   end
   inherited btnRechtsOnder: TButton
     TabOrder = 4
+    OnClick = btnRechtsOnderClick
   end
   object edtPincode: TEdit [7]
     Left = 103
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r3 -r4
Binary files differ