Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r399 -r400
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 399)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 400)
@@ -117,9 +117,14 @@
   fGegenereerdeTbp: string;
 begin
   inherited;
-  fGegenereerdeTbp := fBlPallet.GenereerTbp;
-
-  actVolgendeExecute(Self);
+  try
+    fBlPallet.GenereerTbp;
+    actVolgendeExecute(Self);
+  except
+    on e: EExternalException do begin
+      ToonPopupScherm(e.Message, 'Probeer opnieuw');
+    end;
+  end;
 end;
 
 procedure TfmPalletScherm.edtPalletKeyUp(Sender: TObject; var Key: Word;
Index: ProScan/BL/BlPallet.pas
===================================================================
diff -u -r399 -r400
--- ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 399)
+++ ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 400)
@@ -36,9 +36,7 @@
   fGeefVolgendeTbpCodeResponse := TAgent.Create(fUiContext).GeefVolgendeTbpCode();
   try
     if fGeefVolgendeTbpCodeResponse.Header.Status <> '200' then begin
-      //Self.ModalResult := mrPallet;
       raise EExternalException.Create(fGeefVolgendeTbpCodeResponse.Header.Omschrijving);
-      //ToonPopupScherm(fGeefVolgendeTbpCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
       result := '';
     end else begin
       result := fGeefVolgendeTbpCodeResponse.VolgendeTbpCode;