frm_allimportbillinfo.~pas

站长您好

  MyFileHandle:Integer;
  context:integer;
  SqlStr:String;
  CodeGet:String;
  ValueArray:Array[0..20] of string;
  ArrayCount:integer;
  I,j:Integer;
  HawbNumber:Integer;
  VarMain:String;
  VarHawb:String;
  RelaCode:String;
begin
  inherited;
  try
     MyFilehandle:=FileOpen(Filename,fmOpenRead);
     if myfilehandle>0 then
     else
       begin
          ShowMessage('创建文件失败,请检查!');
          exit;
       end;
     {读取主单记录}
       context:=fileread(myfilehandle,ztrustfile,sizeof(ztrustfile));
        SqlStr:='';
       FrmMain.UpStr(sqlstr,'filetable ');        
       {Maincode}
        FrmMain.UpStr(sqlstr,'maincode',Ztrustfile.mawb,',');
       {hawb}
        FrmMain.UpStr(sqlstr,'hawb',Ztrustfile.hawb,',');
        {FileNo}
        FrmMain.UpStr(sqlstr,'FileNo',Ztrustfile.fileno,',');
        {trusttype}
        FrmMain.UpStr(sqlstr,'TrustType',Ztrustfile.trusttype,',');
        {trustsource}
        FrmMain.UpStr(sqlstr,'TrustSource',Ztrustfile.trustsource,',');
        {quotecode}
        if Ztrustfile.jjcode='' then
        FrmMain.UpStr(sqlstr,'QuoteCode','null',',')
        else
        FrmMain.UpStr(sqlstr,'QuoteCode',Ztrustfile.jjcode,',');
        {djnumber}
        FrmMain.UpStr(sqlstr,'DjNumber',Ztrustfile.djnumber,',');
        {kjkm}
        FrmMain.UpStr(sqlstr,'kjkm',Ztrustfile.kjkm,',');
        {zcdjnumber}
        FrmMain.UpStr(sqlstr,'zcdjnumber',Ztrustfile.zcdjnumber,',');
        {zckjkm}
        FrmMain.UpStr(sqlstr,'zckjkm',Ztrustfile.zckjkm,',');

        {cuscode}
        if Ztrustfile.cuscode='' then
        FrmMain.UpStr(sqlstr,'CusCode','null',',')
        else
        FrmMain.UpStr(sqlstr,'cuscode',Ztrustfile.cuscode,',');
        {发货人名称}
        FrmMain.UpStr(sqlstr,'cuscodename',Ztrustfile.cuscodename,',');
        {收货人}
        FrmMain.UpStr(sqlstr,'ShouHuoren',Ztrustfile.consigncode,',');
        {收货人名称}
        FrmMain.UpStr(sqlstr,'Consignname',Ztrustfile.consignname,',');
        {代理商}
        FrmMain.UpStr(sqlstr,'agentcode',Ztrustfile.agentcode,',');
        {Shipper}
        FrmMain.UpStr(sqlstr,'Shipper',Ztrustfile.shipper,',');
        {Consignee}
        FrmMain.UpStr(sqlstr,'Consignee',Ztrustfile.consignee,',');
        {Agent 通知方}
        FrmMain.UpStr(sqlstr,'agent',Ztrustfile.inform,',');

        {cuscompany运费对象}
        FrmMain.UpStr(sqlstr,'cuscompany','',',');
        {Reciplace  收货地}
        FrmMain.UpStr(sqlstr,'reciplace',Ztrustfile.receport,',');
        {AirPort 装货港}
        FrmMain.UpStr(sqlstr,'airport',Ztrustfile.loadport,',');
        {AirPortTo 卸货港}
        FrmMain.UpStr(sqlstr,'airportto',Ztrustfile.unloadport,',');
        {destination 目的地}
        FrmMain.UpStr(sqlstr,'destination',Ztrustfile.dest,',');

        {Carrier 航空公司}
        FrmMain.UpStr(sqlstr,'carrier',Ztrustfile.shipcomcode,',');
        {一乘航班，经停，出运日期}


        FrmMain.UpStr(sqlstr,'by1',Ztrustfile.ycvoyage,',');
        FrmMain.UpStr(sqlstr,'to1',Ztrustfile.ycport,',');
        FrmMain.UpStr(sqlstr,'fdate',Ztrustfile.ycvoyagedate,',');
        FrmMain.UpStr(sqlstr,'dfdate',Ztrustfile.ycvoyagedate,',');
        FrmMain.UpStr(sqlstr,'fdate1',Ztrustfile.ycvoyagedate,',');
        {二乘航班，经停，出运日期}
        FrmMain.UpStr(sqlstr,'by2',Ztrustfile.ecvoyage,',');
        FrmMain.UpStr(sqlstr,'to2',Ztrustfile.ecport,',');
        FrmMain.UpStr(sqlstr,'fdate2',Ztrustfile.ecvoyagedate,',');
        {三乘航班，经停，出运日期}
        FrmMain.UpStr(sqlstr,'by3',Ztrustfile.scvoyage,',');
        FrmMain.UpStr(sqlstr,'to3',Ztrustfile.scport,',');
        FrmMain.UpStr(sqlstr,'fdate3',Ztrustfile.scvoyagedate,',');

        {Accinfo  麦头}
        FrmMain.UpStr(sqlstr,'accinfo',Ztrustfile.maitou,',');
        {Handing}
        FrmMain.UpStr(sqlstr,'handling',Ztrustfile.hi,',');
        {Curr}
        FrmMain.UpStr(sqlstr,'curr',Ztrustfile.currency,',');
        {CHGS}
        FrmMain.UpStr(sqlstr,'chgs',Ztrustfile.chgs,',');
        {PPD}
        FrmMain.UpStr(sqlstr,'ppd',Ztrustfile.ppd,',');
        {COLL}
        FrmMain.UpStr(sqlstr,'coll',Ztrustfile.coll,',');
        {OPPD}
        FrmMain.UpStr(sqlstr,'oppd',Ztrustfile.oppd,',');
        {OCOLL}
        FrmMain.UpStr(sqlstr,'ocoll',Ztrustfile.ocoll,',');
        {DCV}
        FrmMain.UpStr(sqlstr,'dvc',Ztrustfile.dvc,',');
        {DVCus}
        FrmMain.UpStr(sqlstr,'dvcus',Ztrustfile.odvc,',');
        {accinsurance}

        FrmMain.UpStr(sqlstr,'AccInsurance',Ztrustfile.ai,',');
        {A.i.c.}
        FrmMain.UpStr(sqlstr,'aic',Ztrustfile.aic,',');
        {签定日期}
        FrmMain.UpStr(sqlstr,'execdate',Ztrustfile.billdate,',');
        FrmMain.UpStr(sqlstr,'dexecdate',Ztrustfile.billdate,',');
        {签定地点}
        FrmMain.UpStr(sqlstr,'execplace',Ztrustfile.billplace,',');

        {业务员}
        FrmMain.UpStr(sqlstr,'bussiness',Ztrustfile.bussiness,',');
        {Befinish 是否完成标记}
        FrmMain.UpStr(sqlstr,'befinish',Ztrustfile.finish,',');

        FrmMain.UpStr(sqlstr,'keydown',Ztrustfile.keydown,',');
        FrmMain.UpStr(sqlstr,'ifdiscard',Ztrustfile.discard,',');
        FrmMain.UpStr(sqlstr,'ifzhidan',Ztrustfile.zhidan,',');
        {进出口标记 出口为1}
        FrmMain.UpStr(sqlstr,'inout',0,',');

        {修改操作人}
        FrmMain.UpStr(sqlstr,'modioper',Ztrustfile.ModiOper,',');
        {操作人}
        FrmMain.UpStr(sqlstr,'operate',Ztrustfile.opercode,'');
        FrmMain.UpStr(sqlstr,'FileCode=',ZtrustFile.Relacode,'w');
        if FrmMain.execsql(sqlstr) then
        else
        begin
          ShowMessage('主单数据更新时出错,记录导入失败,请检查!');
          exit;
        end;
       Varmain:=ZtrustFile.relacode;
       RelaCode:=ZTrustFile.relacode;
       FrmMain.ExecSQL(pchar('delete from planegoods where filecode='''+VarMain+''''));
       {保存货物记录}
        if ztrustfile.GoodsNumber>0 then
           begin
                for i:=1 to ztrustfile.goodsnumber do
                  begin
                     context:=fileread(myfilehandle,goodsfile,sizeof(goodsfile));
                     codeget:=FrmMain.GetCode('B') ;
                {件数  单位  体积  等级  公式  }
                {计费重量  单价  费用  货物描述  编号 编号  C.M.I  一个 }
                      SqlStr:='Insert into PlaneGoods(GoodsCode,FileCode,Pieces,weight,'+
                      'kgid,Size,rateclass,Formula,chargweight,rate,'+
                      'total,SpeGoods,SpeRemark,goods) Values(';
                      FrmMain.InsStr(SqlStr,codeget,',');
                      FrmMain.InsStr(SqlStr,VarMain,',');
                      FrmMain.InsStr(SqlStr,goodsfile.GoodsNumber ,',');
                      FrmMain.InsStr(SqlStr,goodsfile.goodsweight,',');
                      FrmMain.InsStr(SqlStr,goodsfile.goodsunit,',');
                      FrmMain.InsStr(SqlStr,goodsfile.goodssize,',');
                      FrmMain.InsStr(SqlStr,goodsfile.goodsgrade,',');
                      FrmMain.InsStr(SqlStr,goodsfile.formul,',');
                      FrmMain.InsStr(SqlStr,goodsfile.chargeweight,',');
                      FrmMain.InsStr(SqlStr,goodsfile.unitprice,',');
                      FrmMain.InsStr(SqlStr,goodsfile.total,',');
                      FrmMain.InsStr(SqlStr,'',',');
                      FrmMain.InsStr(SqlStr,'',',');
                      FrmMain.InsStr(SqlStr,goodsfile.goodsdesc,'');
                       if FrmMain.ExecSQL(sqlstr) then
                       else
                          begin
                            ShowMessage('主单货物数据数据导入插入时出错,记录导入失败,请检查!');
                            exit;
                         end;
                 end;
           end;
       {进舱派车通知}
       FrmMain.ExecSQL(pchar('delete from Landtrans where trustcode='''+VarMain+''''));

        if ztrustfile.JCPCNumber>0 then
           begin
               context:=fileread(myfilehandle,jcpcfile,sizeof(jcpcfile));
               CodeGet:=FrmMain.GetCode('Q');
               SqlStr:='insert into landtrans(transcode,trustcode,goodshw,'+
               'carname,carrela,thdate,stationcode,'+
               'stationaddr,stationrelation,stationtele,jcno,jcdate,'+
               'jctime,ccdate,cctime,goodsplace,'+
               'goodsrelationstyle,goodsrelation,dodate,jcpc,benative,remark) values(';
             FrmMain.InsStr(sqlstr,CodeGet,',');
             FrmMain.InsStr(sqlstr,Varmain,',');
             FrmMain.InsStr(sqlstr,jcpcfile.goodshw,',');
             FrmMain.InsStr(sqlstr,jcpcfile.carname,',');
             FrmMain.InsStr(sqlstr,jcpcfile.carrela,',');
             FrmMain.InsStr(sqlstr,jcpcfile.thdate,',');
             FrmMain.InsStr(sqlstr,jcpcfile.station,',');
             FrmMain.InsStr(sqlstr,jcpcfile.stationaddr,',');
             FrmMain.InsStr(sqlstr,jcpcfile.stationrela,',');
             FrmMain.InsStr(sqlstr,jcpcfile.stationstyle,',');
             FrmMain.InsStr(sqlstr,jcpcfile.jcno,',');
             FrmMain.InsStr(sqlstr,jcpcfile.jcdate,',');
             FrmMain.InsStr(sqlstr,jcpcfile.jctime,',');
             FrmMain.InsStr(sqlstr,jcpcfile.ccdate,',');
             FrmMain.InsStr(sqlstr,jcpcfile.cctime,',');
             FrmMain.InsStr(sqlstr,jcpcfile.goodsplace,',');
             FrmMain.InsStr(sqlstr,jcpcfile.goodsrelastyle,',');
             FrmMain.InsStr(sqlstr,jcpcfile.goodsrela,',');
             FrmMain.InsStr(sqlstr,jcpcfile.recorddate,',');
             FrmMain.InsStr(sqlstr,jcpcfile.ifpc,',');
             FrmMain.InsStr(sqlstr,jcpcfile.ifnative,',');

             FrmMain.InsStr(sqlstr,jcpcfile.remark,'');
             if FrmMain.ExecSQL(sqlstr) then
             else
                begin
                  ShowMessage('主单进舱派车数据导入插入时出错,记录导入失败,请检查!');
                  exit;
               end;
    end;

     {报关文件}
       FrmMain.ExecSQL(pchar('delete from truckfile where trustcode='''+VarMain+''''));

       if ztrustfile.bgnumber>0 then
           begin
                for i:=1 to ztrustfile.bgnumber do
                  begin
                     context:=fileread(myfilehandle,bgfile,sizeof(bgfile));
                     codeget:=FrmMain.GetCode('K');
                     sqlstr:='insert into truckfile(kcode,trustcode,fileno,mawb,cuscode,'+
                     'ciqname,filename,filenameno,recedate,returndate,ciqrecedate,ciqreturndate,'+
                     'occurtime,PlaneOcean,operator,remark) values(';
                     FrmMain.InsStr(sqlstr,codeget,',');
                     FrmMain.InsStr(sqlstr,varmain,',');
                   FrmMain.InsStr(sqlstr,bgfile.fileno,',');
                   FrmMain.InsStr(sqlstr,bgfile.mawb,',');
                   FrmMain.InsStr(sqlstr,bgfile.jyname,',');
                   FrmMain.InsStr(sqlstr,bgfile.bghname,',');
                   FrmMain.InsStr(sqlstr,bgfile.filename,',');
                   FrmMain.InsStr(sqlstr,bgfile.filenameno,',');
                   FrmMain.InsStr(sqlstr,bgfile.cusrecedate,',');
                   FrmMain.InsStr(sqlstr,bgfile.cusretudate,',');
                   FrmMain.InsStr(sqlstr,bgfile.ciqrecedate,',');
                   FrmMain.InsStr(sqlstr,bgfile.ciqretudate,',');
                   FrmMain.InsStr(sqlstr,bgfile.recorddate,',');
                   FrmMain.InsStr(sqlstr,1,',');
                   FrmMain.InsStr(sqlstr,bgfile.opercode,',');
                   FrmMain.InsStr(sqlstr,bgfile.remark,'');
                   if FrmMain.ExecSQL(SqlStr) then
                   else
                     begin
                      ShowMessage('主单报关文件数据导入插入时出错,记录导入失败,请检查!');
                       exit;
                     end;
                 end;
           end;

      {费用记录}
       FrmMain.ExecSQL(pchar('delete from fareinfo where filecode='''+VarMain+''''));

        if ztrustfile.farenumber>0 then
           begin
                for i:=1 to ztrustfile.farenumber do
                  begin
                     context:=fileread(myfilehandle,farefile,sizeof(farefile));
                     codeget:=FrmMain.GetCode('F');
                     SqlStr:='insert into FareInfo(Fareno,Filecode,cuscode,cuscodename,'+
                     'Farecode,Farepaytodate,Billno,invoiceno,bxno,operator,Acount,FareType,'+
                     'Writedate,currencytype,currencyrate,recedeal,'+
                     'goodscode,unitprice,opercwmark,Remark) values (';
                     FrmMain.InsStr(sqlstr,codeget,',');
                     FrmMain.InsStr(sqlstr,varmain,',');
                     FrmMain.InsStr(sqlstr,farefile.cuscode,',');
                     FrmMain.InsStr(sqlstr,farefile.cuscodename,',');