Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r331 -r332
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 331)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 332)
@@ -369,11 +369,11 @@
 
 procedure TfmDnaCodeScherm.RondKaderdeurDagAf;
 var
-  Response: RondKaderdeurDagAfResponse;
+  Response: RondAfKaderdeurDagResponse;
   cdsRondKaderdeurDagAf: TClientDataset;
   antwoordlijnTeller: integer;
 begin
-  Response := TAgent.Create(UiContext).RondKaderdeurDagAf(UiContext.LaatsteDnaCode);
+  Response := TAgent.Create(UiContext).RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
   cdsRondKaderdeurDagAf := TClientDataset.Create(self);
   cdsRondKaderdeurDagAf.FieldDefs.Add('Toelevering',ftString,20);
   cdsRondKaderdeurDagAf.FieldDefs.Add('Nog te scannen',ftInteger);