Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r408 -r412
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 408)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 412)
@@ -487,8 +487,13 @@
                                             strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeuren)-strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand)
                                             ]);
       end;
-      if System.Length(Response.ToeleveringMetAantallen) > 0 then
-        ToonPopupScherm('Onvolledige toelevering(en)','Ok','',0,6,0,$001717CD,cdsRondAfKaderdeurDag);
+      if System.Length(Response.ToeleveringMetAantallen) > 0 then begin
+        if System.Length(Response.ToeleveringMetAantallen) = 1 then
+          ToonPopupScherm('Onvolledige toelevering','Ok','',0,6,0,$001717CD,cdsRondAfKaderdeurDag)
+        else
+          ToonPopupScherm('Onvolledige toeleveringen','Ok','',0,6,0,$001717CD,cdsRondAfKaderdeurDag)
+      end else
+        ToonPopupScherm('Toeleveringen afgerond','OK','',19,-1,-1,clGreen);
     end else begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
     end;