unit u_fee_do_name;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, RxLookup, BusinessSkinForm;

type
  Tfrm_fee_do_name = class(TForm)
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    RxDBLookupCombo22: TRxDBLookupCombo;
    Label64: TLabel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    procedure FormShow(Sender: TObject);
    procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_fee_do_name: Tfrm_fee_do_name;

implementation

uses u_data_share;

{$R *.dfm}

procedure Tfrm_fee_do_name.FormShow(Sender: TObject);
begin
  frm_data_share.t_code_fee.Filtered:=false;
  frm_data_share.t_code_fee.requery;
end;

procedure Tfrm_fee_do_name.RxDBLookupCombo22KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    bsSkinButton1.SetFocus;
  end;
end;

end.