Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r85 -r91
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 85)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 91)
@@ -61,7 +61,7 @@
 begin
   inherited;
   if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
-    ShowMessage('toelev compl');
+    ZetToeleveringStatus(DnaCodeStatus.InBuffer);
   end else begin
     fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan DNA-codes','Nieuwe toelevering');
     if fWaarschuwingModalResult = mrOk then begin