Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r403 -r404
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 403)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 404)
@@ -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, Agent, BlPallet;
+  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage;
 
 type
   TfmPalletScherm = class(TfmDrieKnoppenScherm)
@@ -20,13 +20,12 @@
       Shift: TShiftState);
     procedure btnGenereerTbpClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
-    procedure FormHide(Sender: TObject);
   private
-    fBlPallet: TBlPallet;
     procedure SetContext;
     procedure SetModus(GescandeInput: string);
     function ValideerPalletCode(GescandeInput: string): boolean;
   public
+    { Public declarations }
   end;
 
 var
@@ -35,7 +34,7 @@
 implementation
 
 uses
-  DnaCodeService, UiContext, ProScanMain, StrUtils, CommonFunctions;
+  DnaCodeService, UiContext, Agent, ProScanMain, StrUtils, CommonFunctions;
 
 {$R *.dfm}
 
@@ -52,15 +51,15 @@
   fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
   fPalletGevalideerd: boolean;
 begin
-  SetModus(UiContext.Pallet);
+  SetModus(edtPallet.Text);
 
   fPalletGevalideerd := false;
   if not (UiContext.Modus = modusKAD) then
-    fPalletGevalideerd := ValideerPalletCode(UiContext.Pallet);
+    fPalletGevalideerd := ValideerPalletCode(edtPallet.Text);
 
   //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(UiContext.Pallet);
+    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtPallet.Text);
     try
       if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
         UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
@@ -94,13 +93,12 @@
 begin
   // pallet code valideren
   result := false;
-  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(GescandeInput);
+  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(edtPallet.Text);
   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,16 +109,25 @@
 end;
 
 procedure TfmPalletScherm.btnGenereerTbpClick(Sender: TObject);
+var
+  fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
 begin
   inherited;
+  fGeefVolgendeTbpCodeResponse := TAgent.Create(UiContext).GeefVolgendeTbpCode();
   try
-    fBlPallet.GenereerTbp;
-    actVolgendeExecute(Self);
-  except
-    on e: EExternalException do begin
-      ToonPopupScherm(e.Message, 'Probeer opnieuw');
+    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;
+  actVolgendeExecute(Self);
 end;
 
 procedure TfmPalletScherm.edtPalletKeyUp(Sender: TObject; var Key: Word;
@@ -140,15 +147,8 @@
   ActiveControl := edtPallet;
 end;
 
-procedure TfmPalletScherm.FormHide(Sender: TObject);
-begin
-  inherited;
-  fBlPallet.Free;
-end;
-
 procedure TfmPalletScherm.FormShow(Sender: TObject);
 begin
-  fBlPallet := TBlPallet.Create(UiContext,nil);
   btnLinksOnder.Action := nil;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;