unit u_op_seae_huanhuo_do;

interface

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

type
  Tfrm_op_seae_huanhuo_do = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Label1: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox5Click(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_huanhuo_do: Tfrm_op_seae_huanhuo_do;

implementation

uses u_data_share, u_op_seae;

{$R *.dfm}

procedure Tfrm_op_seae_huanhuo_do.bsSkinButton2Click(Sender: TObject);
begin
  frm_op_seae.t_op_seae_huanhuo.cancel;
  close;
end;

procedure Tfrm_op_seae_huanhuo_do.bsSkinButton1Click(Sender: TObject);
begin
  if RxDBLookupCombo2.DisplayValue=''then
  begin
    showmessage('请输入换货客户！！');
    exit;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    frm_op_seae.t_op_seae_huanhuo['交换方式']:='换出';
  end
  else
  begin
    frm_op_seae.t_op_seae_huanhuo['交换方式']:='换入';
  end;
  frm_op_seae.t_op_seae_huanhuo.post;
  close;
end;

procedure Tfrm_op_seae_huanhuo_do.bsSkinCheckRadioBox5Click(
  Sender: TObject);
begin
  frm_op_seae.t_op_seae_huanhuo['换货客户']:=frm_op_seae.t_op_seae2.DataSet.fieldbyname('委托单位').asstring;
end;

procedure Tfrm_op_seae_huanhuo_do.bsSkinCheckRadioBox1Click(
  Sender: TObject);
begin
  frm_op_seae.t_op_seae_huanhuo['换货客户']:=frm_op_seae.t_op_seae2.DataSet.fieldbyname('货代公司').asstring;
end;

end.