Index: AAPClient/Win32/Debug/DrieKnoppenScherm.dcu
===================================================================
diff -u -r24 -r25
Binary files differ
Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r24 -r25
Binary files differ
Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r16 -r25
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 16)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 25)
@@ -24,6 +24,7 @@
     procedure actVolgendeExecute(Sender: TObject);
   private
     procedure SetStatusButtonRechtsOnderaan;
+    function ComputerName: String;
   public
     function GeefInitialen: string;
     function GeefLoginCode: string;
@@ -76,6 +77,8 @@
   try
     Request.Initialen := edtInitialen.Text;
     Request.LoginCode := edtPincode.Text;
+    Request.Header.Initialen := edtInitialen.Text;
+    Request.Header.ComputerNaam := ComputerName();
 
     Response := Service.GebruikerAanmelden(Request);
     try
@@ -143,4 +146,16 @@
   btnRechtsOnder.Enabled := ((edtPincode.Text <> '') and (edtInitialen.Text <> ''));
 end;
 
+function TfmLoginScherm.ComputerName: String;
+var
+  buffer: array[0..255] of char;
+  size: dword;
+begin
+  size := 256;
+  if GetComputerName(buffer, size) then
+    Result := buffer
+  else
+    Result := ''
+end;
+
 end.
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r24 -r25
Binary files differ
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r23 -r25
Binary files differ