Index: ProScan/UI/BestaandePalletScherm.pas =================================================================== diff -u -r423 -r424 --- ProScan/UI/BestaandePalletScherm.pas (.../BestaandePalletScherm.pas) (revision 423) +++ ProScan/UI/BestaandePalletScherm.pas (.../BestaandePalletScherm.pas) (revision 424) @@ -10,12 +10,12 @@ type TfmBestaandePalletScherm = class(TfmDrieKnoppenScherm) lblBestaandePallet: TLabel; - btnRework: TButton; + btnVervolledigen: TButton; btnExtraToelevering: TButton; btnTerug: TButton; procedure FormShow(Sender: TObject); procedure btnExtraToeleveringClick(Sender: TObject); - procedure btnReworkClick(Sender: TObject); + procedure btnVervolledigenClick(Sender: TObject); procedure btnTerugClick(Sender: TObject); private function BepaalAantalToeleveringenOpPallet(PalletCode: string): integer; @@ -41,7 +41,7 @@ (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode); end; -procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject); +procedure TfmBestaandePalletScherm.btnVervolledigenClick(Sender: TObject); begin inherited; if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) = 1) then begin