unit u_op_data_copy;

interface

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

type
  Tfrm_op_data_copy = class(TForm)
    Label1: TLabel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    DataSource1: TDataSource;
    bsSkinButton2: TbsSkinButton;
    edt1: TEdit;
    con1: TADOConnection;
    QryBsCard: TADOQuery;
    ds1: TDataSource;
    dbgrd1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_data_copy: Tfrm_op_data_copy;

implementation

uses my_sys_function, u_data_share, u_main;

{$R *.dfm}

procedure Tfrm_op_data_copy.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_data_copy.bsSkinButton1Click(Sender: TObject);
var
  i:Integer;
begin
  if QryBsCard.IsEmpty then Exit;
  ADOQuery3.Open;
  ADOQuery4.Open;
  frm_main.db.BeginTrans;
  try
  DataSource1.DataSet.edit;
  for i:=0 to QryBsCard.Fields.Count-1 do
    if (DataSource1.DataSet.FindField(QryBsCard.Fields[i].FieldName)<>nil) and (QryBsCard.Fields[i].FieldName<>'编号') and (QryBsCard.Fields[i].FieldName<>'主编号') and (QryBsCard.Fields[i].FieldName<>'业务编号') then
       DataSource1.DataSet.FieldByName(QryBsCard.Fields[i].FieldName).Value:=QryBsCard.Fields[i].Value;
   DataSource1.DataSet['财务']:=0;
   DataSource1.DataSet['财务凭证']:='';
   DataSource1.DataSet['拼箱类型']:='合票单票';
   DataSource1.DataSet['已出号']:=0;
   DataSource1.DataSet['已订舱']:=0;
   DataSource1.DataSet['已放箱']:=0;
   DataSource1.DataSet['已背箱']:=0;
   DataSource1.DataSet['第三方付费']:='';
  DataSource1.DataSet.post;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from t_op_ctn where 编号='''+QryBsCard.fieldByName('编号').AsString+'''');
  ADOQuery1.Open;
  if not ADOQuery1.IsEmpty then begin
    ADOQuery1.First;
    while not ADOQuery1.Eof do begin
      ADOQuery4.Insert;
      for i:=0 to ADOQuery1.Fields.Count-1 do
        if (ADOQuery4.FindField(ADOQuery1.Fields[i].FieldName)<>nil) and (ADOQuery1.Fields[i].FieldName<>'编号') and (ADOQuery1.Fields[i].FieldName<>'ctn_id')  then
           ADOQuery4.FieldByName(ADOQuery1.Fields[i].FieldName).Value:=ADOQuery1.Fields[i].Value;
      ADOQuery4.FieldByName('编号').AsString:=DataSource1.DataSet.FieldByName('编号').AsString;
      ADOQuery4.Post;
      ADOQuery1.Next;
    end;
  end;
{  
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * from t_ch_fee where 编号='''+QryBsCard.fieldByName('编号').AsString+'''');
  ADOQuery2.Open;
  if not ADOQuery2.IsEmpty then begin
    ADOQuery2.First;
    while not ADOQuery2.Eof do begin
    ADOQuery4.Insert;
    for i:=0 to ADOQuery2.Fields.Count-1 do
      if (ADOQuery4.FindField(ADOQuery2.Fields[i].FieldName)<>nil) and (ADOQuery2.Fields[i].FieldName<>'编号') and (ADOQuery2.Fields[i].FieldName<>'CH_ID')  then
         ADOQuery4.FieldByName(ADOQuery2.Fields[i].FieldName).Value:=ADOQuery2.Fields[i].Value;
    ADOQuery4.FieldByName('编号').AsString:=DataSource1.DataSet.FieldByName('编号').AsString;
    ADOQuery4['系统费用']:=0;
    ADOQuery4['不开发票']:=0;
    ADOQuery4.Post;
    ADOQuery2.Next;
    end;
  end;
 }
  showmessage('引入成功！！');
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    showmessage('引入失败！！');
  end;
  close;
end;

procedure Tfrm_op_data_copy.bsSkinButton2Click(Sender: TObject);
begin
  QryBsCard.Close;
  QryBsCard.SQL.Add('select * from t_op_seae where 业务编号='''+edt1.Text+'''');
  QryBsCard.Open;

end;

end.