Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r138 -r150
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 138)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 150)
@@ -57,7 +57,7 @@
   Header := RequestHeader.Create;
   try
     Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := ComputerName();
+    Header.ComputerNaam := FullName();
     fValideerPalletCodeRequest.Header := Header;
     fValideerPalletCodeRequest.PalletCode := edtPallet.Text;
 
@@ -84,7 +84,7 @@
     Header := RequestHeader.Create;
     try
       Header.Initialen := UiContext.Initialen;
-      Header.ComputerNaam := ComputerName();
+      Header.ComputerNaam := FullName();
       fZoekViaPalletCodeRequest.Header := Header;
       fZoekViaPalletCodeRequest.PalletCode := UiContext.Pallet;
 
@@ -93,9 +93,10 @@
         if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
           UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
           Self.ModalResult := mrBestaandePallet;
-        end else
+        end else begin
           UiContext.Toelevering := '';
           Self.ModalResult := mrDnaCode;
+        end;
       finally
         fZoekViaPalletCodeResponse.Free;
       end;