Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r58 -r59
Binary files differ
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r58 -r59
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 58)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 59)
@@ -85,11 +85,10 @@
 
       fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
       try
-        if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
-          Self.ModalResult := mrNo;
-        end else begin
+        if fZoekViaPalletCodeResponse.Header.Status = '200' then
+          Self.ModalResult := mrNo
+        else
           Self.ModalResult := mrOk;
-        end;
       finally
         fZoekViaPalletCodeResponse.Free;
       end;
Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r57 -r59
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 57)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 59)
@@ -156,7 +156,7 @@
       else if fHuidigScherm.ModalResult = mrNone then begin
         fHuidigScherm := fDnaCodeScherm;
       end
-      else if fHuidigScherm.ModalResult = mrIgnore then begin
+      else if fHuidigScherm.ModalResult = mrClose then begin
         fHuidigScherm := fInfoLogScherm;
       end;
       continue;
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r58 -r59
Binary files differ
Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r53 -r59
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 53)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 59)
@@ -88,7 +88,7 @@
     Width = 30
     Height = 30
     ImageAlignment = iaCenter
-    ModalResult = 5
+    ModalResult = 8
     TabOrder = 4
   end
   inherited alAlgemeen: TActionList