Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r193 -r211
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 193)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 211)
@@ -12,11 +12,13 @@
     lblScanPallet: TLabel;
     imgPallet: TImage;
     edtPallet: TEdit;
+    btnGenereerTbp: TButton;
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
     procedure edtPalletKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure btnGenereerTbpClick(Sender: TObject);
   private
     procedure SetContext;
   public
@@ -52,7 +54,7 @@
   try
     if fValideerPalletCodeResponse.Header.Status <> '200' then begin
       Self.ModalResult := mrPallet;
-      ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
+      ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
       edtPallet.Text := '';
       SetContext;
     end else begin
@@ -83,6 +85,27 @@
 
 end;
 
+procedure TfmPalletScherm.btnGenereerTbpClick(Sender: TObject);
+var
+  fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
+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;
+    end;
+  SetContext;
+  finally
+    fGeefVolgendeTbpCodeResponse.Free;
+  end;
+  actVolgendeExecute(Self);
+end;
+
 procedure TfmPalletScherm.edtPalletKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin