Index: ProScan/UI/BestaandePalletScherm.dfm =================================================================== diff -u -r423 -r424 --- ProScan/UI/BestaandePalletScherm.dfm (.../BestaandePalletScherm.dfm) (revision 423) +++ ProScan/UI/BestaandePalletScherm.dfm (.../BestaandePalletScherm.dfm) (revision 424) @@ -26,12 +26,12 @@ inherited pnlDrieKnoppen: TPanel Visible = False end - object btnRework: TButton [3] + object btnVervolledigen: TButton [3] Left = 56 - Top = 221 + Top = 133 Width = 369 Height = 81 - Caption = 'Rework' + Caption = 'Vervolledigen' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 @@ -44,11 +44,11 @@ ParentFont = False TabOrder = 2 WordWrap = True - OnClick = btnReworkClick + OnClick = btnVervolledigenClick end object btnExtraToelevering: TButton [4] Left = 56 - Top = 322 + Top = 266 Width = 369 Height = 81 Caption = 'Extra toelevering' @@ -68,7 +68,7 @@ end object btnTerug: TButton [5] Left = 56 - Top = 423 + Top = 399 Width = 369 Height = 81 Caption = 'Terug' 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