Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r315 -r320
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 315)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 320)
@@ -30,6 +30,7 @@
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
     function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
     function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): ProboxEtiketAfdrukkenResponse;
+    function RondKaderdeurDagAf(DnaCode: DnaCode): RondKaderdeurDagAfResponse;
   end;
 
 implementation
@@ -330,6 +331,25 @@
   end;
 end;
 
+function TAgent.RondKaderdeurDagAf(DnaCode: DnaCode): RondKaderdeurDagAfResponse;
+var
+  Header: DnaCodeService.RequestHeader;
+  fRondKaderdeurDagAfRequest: RondKaderdeurDagAfRequest;
+begin
+  fRondKaderdeurDagAfRequest := RondKaderdeurDagAfRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fRondKaderdeurDagAfRequest.Header := Header;
+    fRondKaderdeurDagAfRequest.DnaCode := DnaCode;
+
+    result := fDnaCodeServiceSoap.RondKaderdeurDagAf(fRondKaderdeurDagAfRequest);
+  finally
+    fRondKaderdeurDagAfRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;