Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r84 -r86
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 84)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 86)
@@ -96,7 +96,7 @@
         mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
         mrPallet          : fHuidigScherm := fPalletScherm;
         mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
-        mrAbort           : ShowMessage('DnaCodeGevuld scherm');
+        mrAbort           : fHuidigScherm := fDnaCodeScherm;
       end;
       continue;
     end;
@@ -128,10 +128,7 @@
     if fHuidigScherm.ClassType = TfmInfoLogScherm then begin
       case fHuidigScherm.ModalResult of
         mrHome           : fHuidigScherm := fHomeScherm;
-        mrYes            : fHuidigScherm := fInfoLogScherm;
-        mrNone           : fHuidigScherm := fInfoLogScherm;
         mrDnaCode        : fHuidigScherm := fDnaCodeScherm;
-        mrIgnore         : fHuidigScherm := fInfoLogScherm;
       end;
       continue;
     end;