Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r147 -r150
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 147)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 150)
@@ -139,7 +139,7 @@
   Header := RequestHeader.Create;
   try
     Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := ComputerName();
+    Header.ComputerNaam := FullName();
     Request.Header := Header;
     Request.DnaCode := edtDnaCode.Text;
     Request.Aantal := 1;
@@ -184,7 +184,7 @@
   Header := RequestHeader.Create;
   try
     Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := ComputerName();
+    Header.ComputerNaam := FullName();
     Request.Header := Header;
     Request.Toelevering := UiContext.Toelevering;
 
@@ -225,7 +225,7 @@
   Header := RequestHeader.Create;
   try
     Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := ComputerName();
+    Header.ComputerNaam := FullName();
     Request.Header := Header;
     Request.Toelevering := UiContext.Toelevering;
     Request.Status := Status;