Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r185 -r186
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 185)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 186)
@@ -69,6 +69,8 @@
   inherited;
   if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
     ZetToeleveringStatus(DnaCodeStatus.InBuffer);
+    if Self.ModalResult = mrPallet then
+      ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen)
   end else begin
     fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan'+#13#10+'DNA-codes','Nieuwe'+#13#10+'toelevering',18);
     if fWaarschuwingModalResult = mrYes then begin