Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r694 -r696
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 694)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 696)
@@ -402,6 +402,11 @@
                Self.ModalResult := mrDnaCodeReedsGescand;
                UiContext.LaatsteDnaCodeGoedAfgemeld := false;
              end;
+       -1021: begin //Geen geldige DNA code
+               Self.ModalResult := mrDnaCode;
+               ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
+               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
+             end;
        else begin
               Self.ModalResult := mrPallet;
               ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');