Index: ProScan/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r396 -r423
--- ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 396)
+++ ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 423)
@@ -10,14 +10,12 @@
 type
   TfmBestaandePalletScherm = class(TfmDrieKnoppenScherm)
     lblBestaandePallet: TLabel;
-    btnHuidigeToelevering: TButton;
     btnRework: TButton;
     btnExtraToelevering: TButton;
     btnTerug: TButton;
     procedure FormShow(Sender: TObject);
     procedure btnExtraToeleveringClick(Sender: TObject);
     procedure btnReworkClick(Sender: TObject);
-    procedure btnHuidigeToeleveringClick(Sender: TObject);
     procedure btnTerugClick(Sender: TObject);
   private
     function BepaalAantalToeleveringenOpPallet(PalletCode: string): integer;
@@ -43,16 +41,6 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
-procedure TfmBestaandePalletScherm.btnHuidigeToeleveringClick(Sender: TObject);
-begin
-  inherited;
-  if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) > 1) then begin
-    UiContext.Toelevering := '';
-  end;
-  PostMessage(Self.Handle,WM_Close,0,0);
-  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
-end;
-
 procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject);
 begin
   inherited;