D6HECHUAN/业务模块/u_op_open_select.pas

unit u_op_open_select;

interface

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

type
  Tfrm_op_open_select = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    yewu: TDataSource;
    accept: TDataSource;
    pay: TDataSource;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure select_open_all();
    procedure select_open_op();
    procedure select_open_fee();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_open_select: Tfrm_op_open_select;
  open_select_num:integer;

implementation

uses u_op_seae_close, u_op_seai_close, u_op_aire_close, u_op_airi_close,
  my_sys_chat, my_sys_function;

{$R *.dfm}

procedure Tfrm_op_open_select.select_open_all();
var
  i:integer;
  dsstr,PostUrl,str:string;
begin
  case open_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet['费用封帐日期']:=null;
            yewu.DataSet.post;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":false';
          dsstr:=dsstr+'}';
{
            Send_op_do('海运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":false';
          dsstr:=dsstr+'}';
{
            Send_op_do('海运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;
        if (dsstr<>'') then begin
         str:=str+'[';
         str:=str+dsstr;
          str:=str+']';
         PostUrl:='http://47.104.85.216:13579/DataSync/SaveBookingOrderLock';
         TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
         InsertSysLog('上传大简云封账',yewu.DataSet.FieldByName('业务编号').asstring);
        end;         
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('海运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('海运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;   
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('空运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('空运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;   
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('空运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['费用状态']:='录入状态';
            yewu.DataSet.post;
{
            Send_op_do('空运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;   
    end;
  end;  
end;

procedure Tfrm_op_open_select.select_open_op();
var
  i:integer;
begin
  case open_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
{
          Send_op_do('海运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
        end;
      end;
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('海运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
{
          Send_op_do('海运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
        end;
      end;
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
{
          Send_op_do('空运出口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
        end;
      end;
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
{
            Send_op_do('空运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
{
          Send_op_do('空运进口业务解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
            +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'43',
            yewu.DataSet.fieldbyname('操作员').AsString,
            yewu.DataSet.fieldbyname('客服员').AsString,
            yewu.DataSet.fieldbyname('揽货人').AsString);
}
        end;
      end;
    end;
  end;  
end;

procedure Tfrm_op_open_select.select_open_fee();
var
  i:integer;
    dsstr,PostUrl,str:string;        
begin
  case open_select_num of
    1:
    begin
      if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":false';
          dsstr:=dsstr+'}';
{
              Send_op_do('海运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
          if (dsstr='') then
             dsstr:=dsstr+'{'
           else dsstr:=dsstr+',{';
          dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
          dsstr:=dsstr+',"lockStatus":false';
          dsstr:=dsstr+'}';
{
              Send_op_do('海运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;
        if (dsstr<>'') then begin
         str:=str+'[';
         str:=str+dsstr;
          str:=str+']';
         PostUrl:='http://47.104.85.216:13579/DataSync/SaveBookingOrderLock';
         TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
         InsertSysLog('上传大简云封账',yewu.DataSet.FieldByName('业务编号').asstring);
        end;      
    end;
    2:
    begin
      if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('海运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('海运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主提单号:'+yewu.DataSet.fieldbyname('主提单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;
    end;
    3:
    begin
      if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('空运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('空运出口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;
      end;
    end;
    4:
    begin
      if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
      begin
        for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('空运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}
          end;  
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet.post;
{
              Send_op_do('空运进口费用解封,业务编号:'+yewu.DataSet.fieldbyname('业务编号').AsString
              +',主运单号:'+yewu.DataSet.fieldbyname('主运单号').AsString,'44',
              yewu.DataSet.fieldbyname('操作员').AsString,
              yewu.DataSet.fieldbyname('客服员').AsString,
              yewu.DataSet.fieldbyname('揽货人').AsString);
}              
          end;
      end;
    end;
  end;  
end;

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

procedure Tfrm_op_open_select.bsSkinButton1Click(Sender: TObject);
begin
  if bsSkinCheckRadioBox3.Checked then
  begin
    frm_op_open_select.select_open_all();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox1.Checked then
  begin
    frm_op_open_select.select_open_op();
    close;
    exit;
  end;
  if bsSkinCheckRadioBox2.Checked then
  begin
    frm_op_open_select.select_open_fee();
    close;
    exit;
  end;
end;

end.