Index: ProScan/BL/BlPallet.pas
===================================================================
diff -u -r400 -r402
--- ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 400)
+++ ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 402)
@@ -3,14 +3,15 @@
 interface
 
 uses
-  UiContext;
+  UiContext, Agent;
 
 type
   TBlPallet = Class
     private
       fUiContext: TUiContext;
+      fAgent: TAgent;
     public
-      constructor Create(aUiContext: TUiContext);
+      constructor Create(aUiContext: TUiContext; aAgent: TAgent);
       function GenereerTbp: string;
       procedure SetContext(GescandeWaarde: string);
   End;
@@ -19,21 +20,25 @@
 implementation
 
 uses
-  DnaCodeService, Agent, CommonFunctions, SysUtils;
+  DnaCodeService, CommonFunctions, SysUtils;
 
 { TBlPallet }
 
-constructor TBlPallet.Create(aUiContext: TUiContext);
+constructor TBlPallet.Create(aUiContext: TUiContext; aAgent: TAgent);
 begin
   fUiContext := aUiContext;
+  if assigned(aAgent) then
+    fAgent := aAgent
+  else
+    fAgent := TAgent.Create(fUiContext);
 end;
 
 function TBlPallet.GenereerTbp: string;
 var
   fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
 begin
   inherited;
-  fGeefVolgendeTbpCodeResponse := TAgent.Create(fUiContext).GeefVolgendeTbpCode();
+  fGeefVolgendeTbpCodeResponse := fAgent.GeefVolgendeTbpCode();
   try
     if fGeefVolgendeTbpCodeResponse.Header.Status <> '200' then begin
       raise EExternalException.Create(fGeefVolgendeTbpCodeResponse.Header.Omschrijving);