unit u_op_aire_add;

interface

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

type
  Tfrm_op_aire_add = class(TForm)
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    data1: TDataSource;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label1: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_aire_add: Tfrm_op_aire_add;
  frm_op_aire_add_num:integer;


implementation

uses u_op_aire, u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_aire_add.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_aire_add.FormShow(Sender: TObject);
var  inifile1:Tinifile;
     i:Integer;
begin
  if strtobool(get_parameters_value(308,'false')) then
  begin

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');

  i:=inifile1.ReadInteger('other','Airezyfs',0);
  if i=0 then
    bsSkinCheckRadioBox4.Checked:=true
  else if i=1 then
    bsSkinCheckRadioBox2.Checked:=true
  else if i=2 then
    bsSkinCheckRadioBox3.Checked:=true;
  end;

  wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
  wwDBDateTimePicker1.Date:=date;
end;

procedure Tfrm_op_aire_add.bsSkinButton1Click(Sender: TObject);
var
  i:Integer;
begin
  if (frm_op_aire_add_num=3) then
  begin
    frm_op_aire.t_op_aire1.Enabled:=false;
    frm_op_aire.t_op_aire1.DataSet:=frm_op_aire.t_op_aire_fen;
    frm_op_aire.t_op_aire1.Enabled:=true;

    data1.DataSet.append;
    for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
    begin
      data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
        data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
    end;

    data1.DataSet['业务编号']:='';
    data1.DataSet['主编号']:='';
    data1.DataSet['编号']:='';
    if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then
   data1.DataSet['委托编号']:='';



  if bsSkinCheckRadioBox7.Checked then
    data1.DataSet['业务类型']:='更改单'
  else
    data1.DataSet['业务类型']:='普通货';

  if bsSkinCheckRadioBox4.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox2.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;


  data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
  data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
  data1.DataSet['财务']:=0;
  data1.DataSet['财务凭证']:='';
  data1.DataSet['录入人']:=employee;
  data1.DataSet['分部名称']:=subComp;
  data1.DataSet['录入日期']:=date;
  data1.DataSet['操作员']:=employee;
  data1.DataSet['揽货人']:=employee;
  data1.DataSet['客服员']:=employee;
//  data1.DataSet['始发港']:=get_parameters_value(18,'TSINGTAO');
  data1.DataSet['签单地点']:='QINGDAO,CHINA';
  data1.DataSet['货物描述']:=get_parameters_value(118,'');

//  data1.DataSet['业务来源']:='自揽货';
  data1.DataSet['销售部门']:=department;
  data1.DataSet['操作部门']:=department;
  data1.DataSet['是否打印']:=0;
  data1.DataSet['计价重量']:=0;
  data1.DataSet['运价']:=0;
  data1.DataSet['件数']:=0;
  data1.DataSet['重量']:=0;
  data1.DataSet['尺码']:=0;

  data1.DataSet['运费']:=0;
  data1.DataSet['运费预付']:=0;
  data1.DataSet['运费到付']:=0;
  data1.DataSet['杂费预付']:=0;
  data1.DataSet['杂费到付']:=0;
  data1.DataSet['合计预付']:=0;
  data1.DataSet['合计到付']:=0;
  data1.DataSet['其他金额1']:=0;
  data1.DataSet['其他金额2']:=0;
  data1.DataSet['其他金额3']:=0;
  data1.DataSet['其他金额4']:=0;
  data1.DataSet['其他金额5']:=0;
  data1.DataSet['其他金额6']:=0;
  data1.DataSet['其他金额7']:=0;
  data1.DataSet['其他金额8']:=0;
  data1.DataSet['其他费用1']:='';
  data1.DataSet['其他费用2']:='';
  data1.DataSet['其他费用3']:='';
  data1.DataSet['其他费用4']:='';
  data1.DataSet['其他费用5']:='';
  data1.DataSet['其他费用6']:='';
  data1.DataSet['其他费用7']:='';
  data1.DataSet['其他费用8']:='';
  data1.DataSet['是否免税']:=1;



{
  data1.DataSet['其他预付']:=0;
  data1.DataSet['运费预付']:=0;
  data1.DataSet['杂费预付']:=0;

  data1.DataSet['其他到付']:=0;
  data1.DataSet['运费到付']:=0;
  data1.DataSet['杂费到付']:=0;
 }
      data1.DataSet['分运单号']:='';

    data1.DataSet['发货人']:='';
    data1.DataSet['收货人']:='';
    data1.DataSet['通知人']:='';
    data1.DataSet['发货人代码']:='';
    data1.DataSet['收货人代码']:='';
    data1.DataSet['通知人代码']:='';

  data1.DataSet['声明附加']:='N.V.C';
  data1.DataSet['通关附加']:='N.V.D';
  data1.DataSet['保险金额']:='NIL';
  data1.DataSet['币制']:='RMB';
  data1.DataSet['运价级别']:='Q';
  data1.DataSet['单位']:='K';

  data1.DataSet['运费付款方式']:='PP';
  data1.DataSet['杂费付款方式']:='PP';


  end else begin
  data1.DataSet.Insert;
  if bsSkinCheckRadioBox7.Checked then
    data1.DataSet['业务类型']:='更改单'
  else
    data1.DataSet['业务类型']:='普通货';

  if bsSkinCheckRadioBox4.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox2.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;


  data1.DataSet['业务编号']:='';
  data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
  data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
  data1.DataSet['财务']:=0;
  data1.DataSet['财务凭证']:='';
  data1.DataSet['录入人']:=employee;
  data1.DataSet['分部名称']:=subComp;
  data1.DataSet['录入日期']:=date;
  data1.DataSet['操作员']:=employee;
  data1.DataSet['揽货人']:=employee;
  data1.DataSet['客服员']:=employee;
  data1.DataSet['销售部门']:=department;
  data1.DataSet['操作部门']:=department;
  data1.DataSet['始发港']:=get_parameters_value(18,'TSINGTAO');
  data1.DataSet['签单地点']:='QINGDAO,CHINA';
  data1.DataSet['货物描述']:=get_parameters_value(118,'');
  data1.DataSet['发货人']:=get_parameters_value(126,'');

 // data1.DataSet['业务来源']:='自揽货';
  data1.DataSet['是否打印']:=0;
  data1.DataSet['计价重量']:=0;
  data1.DataSet['运价']:=0;

  data1.DataSet['件数']:=0;
  data1.DataSet['重量']:=0;
  data1.DataSet['尺码']:=0;
{
  data1.DataSet['其他预付']:=0;
  data1.DataSet['运费预付']:=0;
  data1.DataSet['杂费预付']:=0;

  data1.DataSet['其他到付']:=0;
  data1.DataSet['运费到付']:=0;
  data1.DataSet['杂费到付']:=0;
 }

  data1.DataSet['声明附加']:='N.V.C';
  data1.DataSet['通关附加']:='N.V.D';
  data1.DataSet['保险金额']:='NIL';
  data1.DataSet['币制']:='RMB';
  data1.DataSet['运价级别']:='Q';
  data1.DataSet['单位']:='K';
    data1.DataSet['发货人']:='';
    data1.DataSet['收货人']:='';
    data1.DataSet['通知人']:='';
    data1.DataSet['发货人代码']:='';
    data1.DataSet['收货人代码']:='';
    data1.DataSet['通知人代码']:='';

  data1.DataSet['运费']:=0;
  data1.DataSet['运费预付']:=0;
  data1.DataSet['运费到付']:=0;
  data1.DataSet['杂费预付']:=0;
  data1.DataSet['杂费到付']:=0;
  data1.DataSet['合计预付']:=0;
  data1.DataSet['合计到付']:=0;
  data1.DataSet['其他金额1']:=0;
  data1.DataSet['其他金额2']:=0;
  data1.DataSet['其他金额3']:=0;
  data1.DataSet['其他金额4']:=0;
  data1.DataSet['其他金额5']:=0;
  data1.DataSet['其他金额6']:=0;
  data1.DataSet['其他金额7']:=0;
  data1.DataSet['其他金额8']:=0;
  data1.DataSet['其他费用1']:='';
  data1.DataSet['其他费用2']:='';
  data1.DataSet['其他费用3']:='';
  data1.DataSet['其他费用4']:='';
  data1.DataSet['其他费用5']:='';
  data1.DataSet['其他费用6']:='';
  data1.DataSet['其他费用7']:='';
  data1.DataSet['其他费用8']:='';

  end;

  data1.DataSet['fee']:=0;
  data1.DataSet['fee2']:=0;
  
  if frm_op_aire_add_num=1 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回列表';
  end;
  if frm_op_aire_add_num=2 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回主票';
  end;
  if frm_op_aire_add_num=3 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回主票';
//    frm_op_aire.t_op_aire_fen.Post;
  end;


  close;
end;

procedure Tfrm_op_aire_add.bsSkinButton3Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if data1.DataSet.IsEmpty then
  begin
    showmessage('没有复制母体，不能复制新建！');
    exit;
  end;
  afield := vararraycreate([0,data1.DataSet.fieldcount-1],varvariant);
  for i := 0 to (data1.DataSet.fieldcount-1) do
  begin
    afield[i] :=data1.DataSet.fields[i].value ;
  end;
  
  if frm_op_aire_add_num=3 then
  begin
    frm_op_aire.t_op_aire1.Enabled:=false;
    frm_op_aire.t_op_aire1.DataSet:=frm_op_aire.t_op_aire_fen;
    frm_op_aire.t_op_aire1.Enabled:=true;
  end;

  data1.DataSet.append;
  for i := 0 to (data1.DataSet.fieldcount-1) do begin
    data1.DataSet.fields[i].value := afield[i] ;
  end;
  if bsSkinCheckRadioBox7.Checked then
    data1.DataSet['业务类型']:='更改单'
  else
    data1.DataSet['业务类型']:='普通货';

  if bsSkinCheckRadioBox4.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox2.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    data1.DataSet['装运方式']:=bsSkinCheckRadioBox3.Caption;


  data1.DataSet['业务编号']:='';
  data1.DataSet['编号']:='';
  data1.DataSet['主编号']:='';
  if not (Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑') then
   data1.DataSet['委托编号']:='';
  data1.DataSet['计费标准']:='';
  data1.DataSet['业务状态']:='接受委托';
  data1.DataSet['费用状态']:='录入状态';
  data1.DataSet['录入人']:=employee;
  data1.DataSet['分部名称']:=subComp;
  data1.DataSet['录入日期']:=date;
  data1.DataSet['操作员']:=employee;
  data1.DataSet['操作部门']:=department;
  data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;

  if (strtoint(get_parameters_value(158,'0'))=1) and bsSkinCheckRadioBox7.Checked then
     AmendAccDate('T_OP_AIRE',data1);

  data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
  data1.DataSet['财务']:=0;
  data1.DataSet['财务凭证']:='';
  data1.DataSet['始发港']:=get_parameters_value(18,'TSINGTAO');
  data1.DataSet['签单地点']:=get_parameters_value(18,'TSINGTAO');
  data1.DataSet['是否打印']:=0;
  if data1.DataSet.FieldByName('尺码').AsString='' then
    data1.DataSet['尺码']:=0;

  data1.DataSet['fee']:=0;
  data1.DataSet['fee2']:=0;
  data1.DataSet['发票备注']:='';

  data1.DataSet['是否免税']:=1;

  data1.DataSet['费用封帐前状态']:='';



  if frm_op_aire_add_num=1 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回列表';
  end;
  if frm_op_aire_add_num=2 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回主票';
  end;
  if frm_op_aire_add_num=3 then
  begin
    frm_op_aire.Notebook1.PageIndex:=1;
    frm_op_aire.bsSkinButton11.Caption:='返回主票';
  end;

  frm_op_aire.DBEdit8.ReadOnly:=false;
  frm_op_aire.DBEdit8.Color:=clWindow;

  close;
end;

procedure Tfrm_op_aire_add.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');

  if bsSkinCheckRadioBox4.Checked then
    inifile1.WriteInteger('other','Airezyfs',0)

  if bsSkinCheckRadioBox2.Checked then
    inifile1.WriteInteger('other','Airezyfs',1)

  if bsSkinCheckRadioBox3.Checked then
    inifile1.WriteInteger('other','Airezyfs',2)




end;

end.