Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r329 -r331
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 329)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 331)
@@ -376,15 +376,14 @@
   Response := TAgent.Create(UiContext).RondKaderdeurDagAf(UiContext.LaatsteDnaCode);
   cdsRondKaderdeurDagAf := TClientDataset.Create(self);
   cdsRondKaderdeurDagAf.FieldDefs.Add('Toelevering',ftString,20);
-  cdsRondKaderdeurDagAf.FieldDefs.Add('Aantal deuren',ftInteger);
-  cdsRondKaderdeurDagAf.FieldDefs.Add('Aantal gescand',ftInteger);
+  cdsRondKaderdeurDagAf.FieldDefs.Add('Nog te scannen',ftInteger);
   try
     cdsRondKaderdeurDagAf.CreateDataSet;
     if Response.Header.Status = '200' then begin
       for antwoordlijnTeller := 0 to System.Length(Response.ToeleveringMetAantallen) -1 do begin
         cdsRondKaderdeurDagAf.InsertRecord([Response.ToeleveringMetAantallen[antwoordlijnTeller].ToeleveringID,
-                                            Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeuren,
-                                            Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand]);
+                                            strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeuren)-strtoint(Response.ToeleveringMetAantallen[antwoordlijnTeller].AantalKaderdeurenGescand)
+                                            ]);
       end;
       if System.Length(Response.ToeleveringMetAantallen) > 0 then
         ToonPopupScherm('Onvolledige toeleveringen','Ok','',19,0,0,$001717CD,cdsRondKaderdeurDagAf);