Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r192 -r193
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 192)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 193)
@@ -17,6 +17,7 @@
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
+    function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
   end;
 
 implementation
@@ -101,6 +102,27 @@
 
 end;
 
+function TAgent.ZoekViaPalletCode(
+  PalletCode: string): ZoekViaPalletCodeResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
+begin
+  fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaPalletCodeRequest.Header := Header;
+    fZoekViaPalletCodeRequest.PalletCode := PalletCode;
+
+    result := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
+  finally
+    fZoekViaPalletCodeRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;