Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r321 -r332
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 321)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 332)
@@ -30,7 +30,7 @@
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
-    function RondKaderdeurDagAf(DnaCode: String): RondKaderdeurDagAfResponse;
+    function RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
   end;
 
 implementation
@@ -331,22 +331,22 @@
   end;
 end;
 
-function TAgent.RondKaderdeurDagAf(DnaCode: String): RondKaderdeurDagAfResponse;
+function TAgent.RondAfKaderdeurDag(DnaCode: String): RondAfKaderdeurDagResponse;
 var
   Header: DnaCodeService.RequestHeader;
-  fRondKaderdeurDagAfRequest: RondKaderdeurDagAfRequest;
+  fRondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest;
 begin
-  fRondKaderdeurDagAfRequest := RondKaderdeurDagAfRequest.Create;
+  fRondAfKaderdeurDagRequest := RondAfKaderdeurDagRequest.Create;
   Header := DnaCodeService.RequestHeader.Create;
   try
     Header.Initialen := fUiContext.Initialen;
     Header.ComputerNaam := FullName();
-    fRondKaderdeurDagAfRequest.Header := Header;
-    fRondKaderdeurDagAfRequest.DnaCode := DnaCode;
+    fRondAfKaderdeurDagRequest.Header := Header;
+    fRondAfKaderdeurDagRequest.DnaCode := DnaCode;
 
-    result := fDnaCodeServiceSoap.RondKaderdeurDagAf(fRondKaderdeurDagAfRequest);
+    result := fDnaCodeServiceSoap.RondAfKaderdeurDag(fRondAfKaderdeurDagRequest);
   finally
-    fRondKaderdeurDagAfRequest.Free;
+    fRondAfKaderdeurDagRequest.Free;
   end;
 end;