frm_allimportbilledit.~pas

站长您好

    with QryTemp do
    begin
      close;
      sql.text := 'select Docode,dodate,Doplace,doResult ' +
        ' from PlanepreDo   ' +
        ' where filecode =''' + code + '''  ';
      open;
    end;
    FrmMain.AddData(LVDDO, QryTemp);
    QryTemp.close;
  except
  end;
end;

destructor TFrmAllImportBillEdit.Destroy;
begin
  inherited;
end;

procedure TFrmAllImportBillEdit.ShowFare(Code: string);
begin
  CurrentFileCode := Code; {当前编辑的FileCode的值}
  LVfare.Items.Clear;

  if Code = '' then
    exit;

  try
    {费用代码 客户名称 费用名称 费用数额 应付应付 币种}
    with QryTemp do
    begin
      close;
      sql.text :=
        'select a.fareno,a.cuscodename,c.farecname,a.acount,'''' as blank' +
        ',a.currencytype ' +
        ' from fareinfo a,fareinformation c   ' +
        ' where a.filecode =''' + code + ''' ' +
        '  and c.farecode=*a.farecode and a.recedeal=1 ' +
        ' and a.opercwmark=''业务操作''';
      open;
    end;

    if QryTemp.RecordCount > 0 then
    begin
      FrmMain.AddData(LVfare, QryTemp);
      QryTemp.close;
    end;

    with QryTemp do
    begin
      close;
      sql.text :=
        'select a.fareno,a.cuscodename,c.farecname,'''' as blank,a.acount' +
        ',a.currencytype ' +
        ' from fareinfo a,fareinformation c   ' +
        ' where a.filecode =''' + code + ''' ' +
        '  and c.farecode=*a.farecode and a.recedeal=-1' +
        ' and a.opercwmark=''业务操作''';
      open;
    end;

    if QryTemp.RecordCount > 0 then
    begin
      FrmMain.AddData(LVfare, QryTemp);
      QryTemp.close;
    end;

  except
  end;
end;

procedure TFrmAllImportBillEdit.showChild(Code: string);
begin
  try
    with QryTemp do
    begin
      close;
      sql.text := 'select a.fileCode,a.fileno,a.Hawb,a.cuscodename,' +
        'A.goodsdesc,a.goodsnumber,a.goodsweight,a.goodssize,a.bussiness from ' +
        'FileTable a where a.MainCode =''' + Varmain + '''';
      open;
    end;
    if QryTemp.RecordCount < 1 then
      exit;

    LVHW.Items.Clear;
    FrmMain.AddData(LVHW, QryTemp);
    QryTemp.Close;
  except

  end;
end;

constructor TFrmAllImportBillEdit.CreateFromP(Edit: Boolean; Lone: Boolean;
  Code: string; Sender: TComponent);
var
  QueryStr: string;
begin
  inherited
    {检查完毕}
  Create(Sender);
  shortDateFormat := 'yyyy-mm-dd';
  Page.ActivePage := MAWB;
  CHARGE.TabVisible := false;
  {主单是编辑还是增加}
  IsEdit := Edit; {传参过来，编辑与增加}
  Alone := Lone;
  VarMain := Code; {传参过来，主单号}
  VarHawb := ''; {初始的时候,分单号是为空的}

  if FrmMain.IncludeValue('进口业务操作') then
  else
  begin
    //       EdtCuscodename.Enabled :=false;
    EdtConsignname.Enabled := false;
    //       cEdtCuscodename.Enabled :=false;
    cEdtConsignname.Enabled := false;
  end;

  {操作人}
  Cedtczr.text := FrmMain.LoginName; {分单的操作人}
  HappenDate.datetime := date; {费用中的截至日期}
  DoDate.datetime := date; {操作日期}
  ExecDate.datetime := date; {主单签单日期}
  cExecDate.datetime := date; {分单签单日期}
  CVoyageDate.datetime := date;

  cColLast := 0; {分单当前货物列}
  cRowLast := 1; {分单当前货物列}
  cgISChange := false; {分单货物数据改变}

  inserted := false; {是否处于插入记录状态}
  cFIsEdit := False;

  FrmMain.AddColumn(LVHW, '', 1);
  FrmMain.AddColumn(LVHW, '工作单号', 100);
  FrmMain.AddColumn(LVHW, '分运单号', 100);
  FrmMain.AddColumn(LVHW, '发货人', 100);
  FrmMain.AddColumn(LVHW, '品名', 60);
  FrmMain.AddColumn(LVHW, '件数', 50);
  FrmMain.AddColumn(LVHW, '重量', 50);
  FrmMain.AddColumn(LVHW, '体积', 50);
  FrmMain.AddColumn(LVHW, '业务员', 60);

  FrmMain.AddColumn(LVFare, '自动编号', 0);
  FrmMain.AddColumn(LVFare, '费用对象', 100);
  FrmMain.AddColumn(LVFare, '费用名称', 100);
  FrmMain.AddColumn(LVFare, '应收', 80);
  FrmMain.AddColumn(LVFare, '应付', 80);
  FrmMain.AddColumn(LVFare, '币种', 80);

  FrmMain.AddColumn(LVDDO, '', 1);
  FrmMain.AddColumn(LVDDO, '操作时间', 100);
  FrmMain.AddColumn(LVDDO, '操作内容', 250);
  FrmMain.AddColumn(LVDDO, '操作结果', 200);

  {交接单号，已经确认并且日期在一个月以前}
  QueryStr := 'select a.*,b.custcname from custquote a,customerinfo b ' +
    ' where  b.cuscode=*a.askpriceman and priceenter=1 and a.planeship=1 and a.outin=1' +
    ' and a.quotedate>=''' + datetimetostr(int(Now - 30)) + '''';
  FrmMain.Full_FilterCombobox(cComPrice, QueryStr, 'quotecode', 'jjcode',
    'custcname');

  {场站}
  QueryStr := 'Select * from station ';
  FrmMain.Full_FilterCombobox(ComStation, QueryStr, 'code', 'cname');

  {航空公司}
  querystr := 'Select PlaneCompanyCode,PlaneCompanyCName From PlaneCompanyInfo';
  FrmMain.Full_FilterCombobox(ccomshipcom, querystr, 'PlaneCompanyCode',
    'PlaneCompanyCName');

  {港口代码}
  querystr := 'Select PortCode,PortCName From PortInfo';
  FrmMain.Full_FilterCombobox(ccomload, QueryStr, 'portcode', 'PortCName');
  FrmMain.Full_FilterCombobox(ccomunload, QueryStr, 'portcode', 'PortCName');

  {发货人}
  querystr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''发货人'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(comcuscode, querystr, 'cuscode', 'CusCName');
  FrmMain.Full_FilterCombobox(Ccomcuscode, querystr, 'cuscode', 'CusCName');

  {收货人}
  querystr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''收货人'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(Comconsign, querystr, 'cuscode', 'CusCName');
  FrmMain.Full_FilterCombobox(cComconsign, querystr, 'cuscode', 'CusCName');

  {销售方}
  querystr :=
    'Select CusCode,CusCName From CustomerInfo where CharIndex(''目的港代理'',CusTypeDesc)>0 ';
  FrmMain.Full_FilterCombobox(ComAgent, querystr, 'cuscode', 'CusCName');
  FrmMain.Full_FilterCombobox(cComAgent, querystr, 'cuscode', 'CusCName');

  {委托来源}
  querystr := 'Select CusCode,CusCName From CustomerInfo';
  FrmMain.Full_FilterCombobox(cComTrustSource, querystr, 'cuscode', 'CusCName');

  {业务员}
  FrmMain.Full_ComboBox(cBussiness, 'BussinessMan', 'code', 'name');

  {委托类型}
  FrmMain.Full_ComboBox(cTrusttype, 'TrustTypeInfo', 'Code', 'CName');

  {费用对象}
  querystr := 'select * from customerinfo ';
  FrmMain.Full_FilterCombobox(ComBto, querystr, 'cuscode', 'custcname');
  {费用名称信息}
  querystr := 'Select FareCode,FareCName From FareNameInfo ';
  FrmMain.Full_FilterCombobox(ComBname, querystr, 'farecode', 'farecname');
  {费用类型信息}
  {费用类型信息}
  querystr := 'select * from faretype where name=''操作员专用''';
  FrmMain.Full_FilterCombobox(CombType, querystr, 'farecode', 'cname');
  {收入科目}
  Querystr := 'select * from faretype where beprofit=1 ';
  FrmMain.Full_FilterCombobox(cComkmdm, querystr, 'farecode', 'cname');
  FrmMain.Full_FilterCombobox(cComzckmdm, querystr, 'farecode', 'cname');
  {币种代码}
  FrmMain.full_combobox(ComCurrencyType, 'Currency', 'Code', 'CName'); {费用币种}
  FrmMain.full_combobox(CEdtCurr, 'Currency', 'Code', 'CName'); {分单运费币种}

  {操作类型}
  querystr := 'select distinct cztype from filetable ';
  FrmMain.Full_FilterCombobox(ccomcztype, querystr, 'cztype');

  self.Top := 0;
  Self.Left := 0;

  if IsEdit then
  begin
    try
      with QryTemp do
      begin
        close;
        sql.text := 'select * from filetable where filecode =''' + VarMain +
          '''';
        open;
      end;
      if QryTemp.recordcount > 0 then
      begin
        {FileCode}
        Varmain := QryTemp.fieldbyName('Filecode').asstring;
        Edtfileno.text := QryTemp.fieldbyName('MainCode').asstring;
        {fileno}
        edtrfileno.Text := QryTemp.fieldbyName('fileno').asstring;
        {场站}
        comstation.Text :=
          FrmMain.setcomboboxtext(QryTemp.fieldbyName('stationcode').asstring,
          comstation);
        {航班号}
        edtby.Text := QryTemp.fieldbyName('by1').asstring;
        {EXECDATE}
        Execdate.date :=
          strtodatetime(QryTemp.fieldbyName('dexecdate').asstring);
        {cuscode 发货人}
        comcuscode.Text :=
          FrmMain.setcomboboxtext(QryTemp.fieldbyName('cuscode').asstring,
          comcuscode);
        {cuscodename 发货人名称}
        edtcuscodename.Text := QryTemp.fieldbyName('cuscodename').asstring;
        { Shouhuoren 收货人}
        ComConsign.Text :=
          FrmMain.setcomboboxtext(QryTemp.fieldbyName('shouhuoren').asstring,
          Comconsign);
        {consignname 收货人名称}
        edtConsignname.Text := QryTemp.fieldbyName('consignname').asstring;
        {agentcode 代理商}
        comagent.Text :=
          FrmMain.setcomboboxtext(QryTemp.fieldbyName('agentcode').asstring,
          comagent);

        {Agent 通知方}
        inform.lines.Text := QryTemp.fieldbyName('Agent').asstring;
        {货物描述}
        edtGoods.text := QryTemp.fieldbyname('goodsdesc').asstring;
        {件数}
        EdtJianShu.text :=
          floattostr(qrytemp.fieldbyname('goodsnumber').asfloat);
        {包装}
        ComBaoz.text := QryTemp.fieldbyname('BaoZHuang').asstring;
        {毛重}
        EdtMaoz.text := floattostr(qrytemp.fieldbyname('goodsweight').asfloat);
        {体积}
        Edttiji.text := floattostr(qrytemp.fieldbyname('goodssize').asfloat);
        {计费重量}
        Edtjfzl.text :=
          floattostr(qrytemp.fieldbyname('goodschargeweight').asfloat);

        {befinish 是否完成}
        if QryTemp.fieldbyName('befinish').asinteger = 1 then
          chkfinish.Checked := true
        else
          chkfinish.Checked := false;

        if QryTemp.fieldbyName('keydown').asinteger = 1 then
          chkkeydown.Checked := true
        else
          chkkeydown.Checked := false;

        {IFZHIDAN 是否直单}
        if QryTemp.fieldbyName('ifzhidan').asinteger = 1 then
          Chkzhdan.Checked := true
        else
          Chkzhdan.Checked := false;

        if FrmMain.IncludeValue('进口分单业务操作') then
        else
        begin
          if chkkeydown.Checked then
            chkkeydown.Enabled := False;
        end;
        ShowChild(VarMain); {显示分单信息}
      end;
      QryTemp.close;
    except
      ShowMessage('主单数据显示失败，请检查！');
    end;
  end;
end;

procedure TFrmAllImportBillEdit.BitBtn14Click(Sender: TObject);
var
  ValueArray: array[0..20] of string;
  ArrayCount: integer;
  SqlStr: string;
begin
  inherited;
  if Frmmain.IncludeValue('进口业务操作') then
  else
  begin
    ShowMessage('Sorry,You have no right to do it!');
    exit;
  end;

  if chkkeydown.Enabled then
  else
  begin
    ShowMessage('该进口已确认,您所具有的权限已修改不了该进口记录!');
    exit;
  end;

  if IsEdit then
  begin
    try
      sqlstr := '';
      Frmmain.UpStr(sqlstr, 'filetable ');
      {Maincode 主单号}
      Frmmain.UpStr(sqlstr, 'Maincode', edtfileno.text, ',');
      {fileno}
      Frmmain.UpStr(sqlstr, 'fileno', edtrfileno.text, ',');
      {场站}
      Frmmain.UpStr(sqlstr, 'stationcode',
        Frmmain.getfieldtext(comstation.text),
        ',');
      {航班号}
      Frmmain.UpStr(sqlstr, 'by1', edtby.text, ',');
      {cuscode}
      if comcuscode.text = '' then
        Frmmain.UpStr(sqlstr, 'cuscode', 'null', ',')
      else
        Frmmain.UpStr(sqlstr, 'cuscode', Frmmain.getfieldtext(comcuscode.Text),
          ',');

      Frmmain.UpStr(sqlstr, 'cuscodename', edtcuscodename.text, ',');
      {收货人}
      Frmmain.UpStr(sqlstr, 'shouhuoren', Frmmain.getfieldtext(Comconsign.Text),
        ',');
      {收货人名称}
      Frmmain.UpStr(sqlstr, 'consignname', edtconsignname.text, ',');

      {Agent 通知方}
      Frmmain.UpStr(sqlstr, 'Agent', inform.lines.Text, ',');

      {货物描述}
      Frmmain.UpStr(sqlstr, 'GoodsDesc', edtGoods.Text, ',');
      {件数}
      Frmmain.UpStr(sqlstr, 'Goodsnumber', StrToFloat(EdtJianShu.text), ',');
      {毛重}
      Frmmain.UpStr(sqlstr, 'GoodsWeight', StrToFloat(EdtMaoZ.text), ',');
      {包装}
      Frmmain.UpStr(sqlstr, 'BaoZhuang', comBaoz.text, ',');
      {体积}
      Frmmain.UpStr(sqlstr, 'GoodsSIZE', StrToFloat(EdtTiJi.text), ',');
      {计费重量}
      Frmmain.UpStr(sqlstr, 'Goodschargeweight', StrToFloat(Edtjfzl.text), ',');
      {Execdate}
      Frmmain.UpStr(sqlstr, 'Execdate', DatetoStr(ExecDate.Date), ',');
      Frmmain.UpStr(sqlstr, 'dExecdate', DatetimeTOStr(int(ExecDate.Date)),
        ',');
      {直单}
      if Chkzhdan.Checked then
        Frmmain.UpStr(sqlstr, 'Ifzhidan', 1, ',')
      else
        Frmmain.UpStr(sqlstr, 'Ifzhidan', 0, ',');
      {befinish 是否完成}
      if chkfinish.Checked then
        Frmmain.UpStr(sqlstr, 'befinish', 1, ',')
      else
        Frmmain.UpStr(sqlstr, 'befinish', 0, ',');