Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r210 -r218
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 210)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 218)
@@ -25,6 +25,7 @@
     function PalletBijwerken(Pallet: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): PalletBijwerkenResponse;
     function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
     function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
+    function ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
   end;
 
 implementation
@@ -253,6 +254,28 @@
   end;
 end;
 
+function TAgent.ZoekViaDnaCode(DnaCode: string): ZoekViaDnaCodeResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  fZoekViaDnaCodeRequest := ZoekViaDnaCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaDnaCodeRequest.Header := Header;
+    fZoekViaDnaCodeRequest.DnaCode := DnaCode;
+
+    result := Service.ZoekViaDnaCode(fZoekViaDnaCodeRequest);
+  finally
+    fZoekViaDnaCodeRequest.Free;
+  end;
+end;
+
 function TAgent.ZoekViaPalletCode(
   PalletCode: string): ZoekViaPalletCodeResponse;
 var