Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r320 -r321
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 320)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 321)
@@ -30,7 +30,7 @@
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
-    function RondKaderdeurDagAf(DnaCode: DnaCode): RondKaderdeurDagAfResponse;
+    function RondKaderdeurDagAf(DnaCode: String): RondKaderdeurDagAfResponse;
   end;
 
 implementation
@@ -331,7 +331,7 @@
   end;
 end;
 
-function TAgent.RondKaderdeurDagAf(DnaCode: DnaCode): RondKaderdeurDagAfResponse;
+function TAgent.RondKaderdeurDagAf(DnaCode: String): RondKaderdeurDagAfResponse;
 var
   Header: DnaCodeService.RequestHeader;
   fRondKaderdeurDagAfRequest: RondKaderdeurDagAfRequest;