Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r199 -r210
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 199)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 210)
@@ -24,6 +24,7 @@
     function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
     function PalletBijwerken(Pallet: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): PalletBijwerkenResponse;
     function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
+    function GeefVolgendeTbpCode(): GeefVolgendeTbpCodeResponse;
   end;
 
 implementation
@@ -113,6 +114,27 @@
   end;
 end;
 
+function TAgent.GeefVolgendeTbpCode: GeefVolgendeTbpCodeResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: GeefVolgendeTbpCodeRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := GeefVolgendeTbpCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+
+    result := Service.GeefVolgendeTbpCode(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
 var
   Service: DnaCodeServiceSoap;