Index: AAPClient/UI/DnaCodeScherm.pas =================================================================== diff -u -r181 -r183 --- AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 181) +++ AAPClient/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 183) @@ -27,7 +27,7 @@ procedure FormShow(Sender: TObject); procedure actPalletExecute(Sender: TObject); procedure actHomeExecute(Sender: TObject); - procedure actVolgendeExecute(Sender: TObject); + procedure actAfrondenExecute(Sender: TObject); procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); procedure imgInfoClick(Sender: TObject); @@ -62,7 +62,7 @@ Self.ModalResult := mrPallet; end; -procedure TfmDnaCodeScherm.actVolgendeExecute(Sender: TObject); +procedure TfmDnaCodeScherm.actAfrondenExecute(Sender: TObject); var fWaarschuwingModalResult: TModalResult; begin @@ -104,7 +104,7 @@ begin btnLinksOnder.Action := actPallet; btnCentraalOnder.Action := actHome; - btnRechtsOnder.Action := actVolgende; + btnRechtsOnder.Action := actAfronden; edtDnaCode.Text := ''; ActiveControl := edtDnaCode; lblHuidigePalletData.Caption := UiContext.Pallet;