Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r195 -r196
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 195)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 196)
@@ -20,6 +20,7 @@
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
+    function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
   end;
 
 implementation
@@ -109,6 +110,30 @@
   end;
 end;
 
+function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: HernoemPalletRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := HernoemPalletRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.OudeCode := OudeCode;
+    Request.NieuweCode := NieuweCode;
+    Request.EnkelDezeDnaCode := EnkelDezeDnaCode;
+
+    result := Service.HernoemPallet(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
 var
   Service: DnaCodeServiceSoap;
@@ -129,7 +154,6 @@
   finally
     Request.Free;
   end;
-
 end;
 
 function TAgent.ZoekViaPalletCode(