Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r167 -r169
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 167)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 169)
@@ -35,7 +35,6 @@
     procedure MeldDnaCodeAf();
     procedure ZetToeleveringStatus(Status: DnaCodeStatus);
     procedure ToeleveringDataOphalen();
-    procedure VerwerkReedsGescandeDnaCode();
   public
   end;
 
@@ -168,7 +167,7 @@
                  Self.ModalResult := mrDnaCode;
                end;
          1005: begin //reeds gescand
-                 VerwerkReedsGescandeDnaCode();
+                 Self.ModalResult := mrDnaCodeReedsGescand;
                end;
          else begin
                 Self.ModalResult := mrDnaCode;
@@ -183,11 +182,6 @@
   end;
 end;
 
-procedure TfmDnaCodeScherm.VerwerkReedsGescandeDnaCode;
-begin
-  //ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
-end;
-
 procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
 var
   Service: DnaCodeServiceSoap;