D6HECHUAN/海运业务/u_op_seae_apply_add.pas

unit u_op_seae_apply_add;

interface

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

type
  Tfrm_op_seae_apply_add = class(TForm)
    Label1: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinButton3: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    data1: TDataSource;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seae_apply_add: Tfrm_op_seae_apply_add;

implementation

uses u_op_seae_apply, my_sys_function, u_main;

{$R *.dfm}

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

procedure Tfrm_op_seae_apply_add.FormShow(Sender: TObject);
begin
  wwDBDateTimePicker1.Date:=date;
end;

procedure Tfrm_op_seae_apply_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;
  data1.DataSet.append;
  for i := 0 to (data1.DataSet.fieldcount-1) do
  begin
    data1.DataSet.fields[i].value := afield[i] ;
  end;
  data1.DataSet['周次']:=WeekofYear(wwDBDateTimePicker1.date);
  data1.DataSet['装运方式']:='报关';
  data1.DataSet['业务编号']:='';
  data1.DataSet['主编号']:='';
  data1.DataSet['编号']:='';
  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['箱型9']:=0;
  data1.DataSet['箱型10']:=0;
  data1.DataSet['其他箱型']:=0;
  data1.DataSet['箱TEU']:=0;
  data1.DataSet['集装箱']:='';
  data1.DataSet['箱数大写']:='';
  data1.DataSet['计费标准']:='';
  data1.DataSet['报关日期']:=null;
  data1.DataSet['报关员']:='';
  data1.DataSet['报关单号']:='';
  data1.DataSet['核销单号']:='';
  data1.DataSet['手册号']:='';
  data1.DataSet['是否退税']:=0;
  data1.DataSet['退税日期']:=null;
  data1.DataSet['是否通关']:=0;
  data1.DataSet['通关日期']:=null;
  data1.DataSet['危险品分类']:='';
  data1.DataSet['危险品编号']:=null;
  data1.DataSet['冷藏通风量']:='';
  data1.DataSet['温度单位']:='';
  data1.DataSet['设置温度']:='';
  data1.DataSet['最低温度']:='';
  data1.DataSet['最高温度']:='';
  data1.DataSet['货物标识']:='';
  data1.DataSet['二程开船日期']:=null;
  data1.DataSet['二程港口']:='';
  data1.DataSet['二程船名']:='';
  data1.DataSet['二程航次']:='';
  data1.DataSet['箱号封号']:='';
  data1.DataSet['备注']:='';
  data1.DataSet['分单列表']:='';
  data1.DataSet['发票号']:='';
  data1.DataSet['商品编码']:='';
  data1.DataSet['是否签单']:=0;
  data1.DataSet['签回日期']:=null;
  data1.DataSet['请求派车']:=0;
  data1.DataSet['是否派车']:=0;
  data1.DataSet['派车日期']:=null;
  data1.DataSet['是否解锁']:=0;
  data1.DataSet['解锁日期']:=null;
  data1.DataSet['解锁人']:='';
  data1.DataSet['应收陆运']:=0;
  data1.DataSet['应付陆运']:=0;
  data1.DataSet['陆运利润']:=0;
  data1.DataSet['是否退税']:=0;
  data1.DataSet['是否通关']:=0;
  data1.DataSet['是否签单']:=0;

  data1.DataSet['业务状态']:='接受委托';
  data1.DataSet['费用状态']:='录入状态';
  data1.DataSet['录入人']:=employee;
  data1.DataSet['录入日期']:=date;
  data1.DataSet['操作员']:=employee;
  data1.DataSet['报关操作']:=employee;
  data1.DataSet['报检操作']:=employee;
  data1.DataSet['会计期间']:=wwDBDateTimePicker1.date;
  data1.DataSet['财务']:=0;
  data1.DataSet['财务凭证']:='';
  data1.DataSet['备案号']:='';
  data1.DataSet['批准文号']:='';
  data1.DataSet['成交方式']:='';
  data1.DataSet['净重']:=0;
  data1.DataSet['单价']:='';
  data1.DataSet['总价']:='';
  data1.DataSet['接单日期']:=null;
  data1.DataSet['报检日期']:=null;
  data1.DataSet['报检单号']:='';
  data1.DataSet['验货时间']:=null;
  data1.DataSet['实验时间']:=null;
  data1.DataSet['熏蒸时间']:=null;
  data1.DataSet['出证时间']:=null;

  frm_op_seae_apply.Notebook1.PageIndex:=1;
  frm_op_seae_apply.bsSkinButton11.Caption:='返回列表';
  close;
end;

procedure Tfrm_op_seae_apply_add.bsSkinButton1Click(Sender: TObject);
begin
  with frm_op_seae_apply do
  begin
    t_op_seae.insert;
    if bsSkinButton11.Caption='编辑修改' then
    begin
      Notebook1.PageIndex:=1;
      bsSkinButton11.Caption:='返回列表';
    end;
    t_op_seae['会计期间']:=date;
    t_op_seae['周次']:=WeekofYear(date);
    t_op_seae['录入人']:=employee;
    t_op_seae['录入日期']:=date;
    t_op_seae['操作员']:=employee;
    t_op_seae['揽货人']:=employee;
    t_op_seae['报关操作']:=employee;
    t_op_seae['报检操作']:=employee;
    t_op_seae['客服员']:=employee;
    t_op_seae['销售部门']:=department;
    t_op_seae['操作部门']:=department;
    t_op_seae['业务来源']:='自揽货';
    t_op_seae['起运港']:=get_parameters_value(14,'QINGDAO,CHINA');
    t_op_seae['装货港']:=get_parameters_value(16,'QINGDAO,CHINA');
    t_op_seae['提单份数']:=get_parameters_value(20,'THREE');
    t_op_seae['运输条款']:=get_parameters_value(21,'CY-CY');
    t_op_seae['唛头']:=get_parameters_value(22,'N/M');
    t_op_seae['付费方式']:=get_parameters_value(23,'FREIGHT PREPAID');
    t_op_seae['是否退税']:=0;
    t_op_seae['是否通关']:=0;
    t_op_seae['是否签单']:=0;
    t_op_seae['请求派车']:=0;
    t_op_seae['是否派车']:=0;
    t_op_seae['是否解锁']:=0;
    t_op_seae['解锁日期']:=null;
    t_op_seae['解锁人']:='';
    t_op_seae['应收陆运']:=0;
    t_op_seae['应付陆运']:=0;
    t_op_seae['陆运利润']:=0;
    t_op_seae['财务']:=0;
    t_op_seae['财务凭证']:='';
    t_op_seae['装运方式']:='报关';
  end;
  close;
end;

end.