Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r396 -r399
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 396)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 399)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
-  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage;
+  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage, Agent, BlPallet;
 
 type
   TfmPalletScherm = class(TfmDrieKnoppenScherm)
@@ -20,12 +20,14 @@
       Shift: TShiftState);
     procedure btnGenereerTbpClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure FormHide(Sender: TObject);
   private
+    fAgent: TAgent;
+    fBlPallet: TBlPallet;
     procedure SetContext;
     procedure SetModus(GescandeInput: string);
     function ValideerPalletCode(GescandeInput: string): boolean;
   public
-    { Public declarations }
   end;
 
 var
@@ -34,7 +36,7 @@
 implementation
 
 uses
-  DnaCodeService, UiContext, Agent, ProScanMain, StrUtils, CommonFunctions;
+  DnaCodeService, UiContext, ProScanMain, StrUtils, CommonFunctions;
 
 {$R *.dfm}
 
@@ -51,15 +53,15 @@
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
   fPalletGevalideerd: boolean;
 begin
-  SetModus(edtPallet.Text);
+  SetModus(UiContext.Pallet);
 
   fPalletGevalideerd := false;
   if not (UiContext.Modus = modusKAD) then
-    fPalletGevalideerd := ValideerPalletCode(edtPallet.Text);
+    fPalletGevalideerd := ValideerPalletCode(UiContext.Pallet);
 
   //checken of pallet in gebruik is indien het vorige geslaagd is
   if fPalletGevalideerd and not(UiContext.Modus = modusKAD )then begin
-    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtPallet.Text);
+    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
     try
       if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
         UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
@@ -93,12 +95,13 @@
 begin
   // pallet code valideren
   result := false;
-  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(edtPallet.Text);
+  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(GescandeInput);
   try
     if fValideerPalletCodeResponse.Header.Status <> '200' then begin
       Self.ModalResult := mrPallet;
       ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
       edtPallet.Text := '';
+      UiContext.Pallet := '';
       SetContext;
     end else begin
       result := true;
@@ -111,22 +114,11 @@
 procedure TfmPalletScherm.btnGenereerTbpClick(Sender: TObject);
 var
   fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
+  fGegenereerdeTbp: string;
 begin
   inherited;
-  fGeefVolgendeTbpCodeResponse := TAgent.Create(UiContext).GeefVolgendeTbpCode();
-  try
-    if fGeefVolgendeTbpCodeResponse.Header.Status <> '200' then begin
-      Self.ModalResult := mrPallet;
-      ToonPopupScherm(fGeefVolgendeTbpCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
-      edtPallet.Text := '';
-    end else begin
-      edtPallet.Text := fGeefVolgendeTbpCodeResponse.VolgendeTbpCode;
-      UiContext.Toelevering := '';
-    end;
-  SetContext;
-  finally
-    fGeefVolgendeTbpCodeResponse.Free;
-  end;
+  fGegenereerdeTbp := fBlPallet.GenereerTbp;
+
   actVolgendeExecute(Self);
 end;
 
@@ -147,8 +139,15 @@
   ActiveControl := edtPallet;
 end;
 
+procedure TfmPalletScherm.FormHide(Sender: TObject);
+begin
+  inherited;
+  fBlPallet.Free;
+end;
+
 procedure TfmPalletScherm.FormShow(Sender: TObject);
 begin
+  fBlPallet := TBlPallet.Create(UiContext);
   btnLinksOnder.Action := nil;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;