DONGSHENG6/业务模块/u_op_open_select.pas

{$INCLUDE t_main.inc}

unit u_op_open_select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB,ADODB, 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{$IFDEF JGCHE}, u_op_airtruck_close{$ENDIF}, my_sys_function,
  u_op_railway_close;

{$R *.dfm}

procedure Tfrm_op_open_select.select_open_all();
var
  i:integer;
  bookmark:Tbookmark;
begin
  case open_select_num of
    1:
    begin
      if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

{
            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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
                yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
{
            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;
        finally
          TAdoQuery(yewu.DataSet).requery;
          yewu.DataSet.GotoBookmark(bookmark);
        end;

      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);

            end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    2:
    begin
      if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;

              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;

              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;

      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;

              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
          TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    3:
    begin
      if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
{
            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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);

            end;
{
            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;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

{
            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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;

{
            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;
          TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    4:
    begin
      if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

{
            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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
{
            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;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

{
            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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
{
            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;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    5:
    begin
      if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    6:
    begin
      if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
  end;
end;

procedure Tfrm_op_open_select.select_open_op();
var
  i:integer;
  bookmark:Tbookmark;

begin
  case open_select_num of
    1:
    begin
      if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');

{
            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;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
{
          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;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    2:
    begin
      if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
{
            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;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
{
          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;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    3:
    begin
      if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
{
            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;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
           CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
        end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    4:
    begin
      if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
          CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
       end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    5:
    begin
      if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
          CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
        end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    6:
    begin
      if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
          if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
          begin
            yewu.DataSet.edit;
            yewu.DataSet['业务状态']:='接受委托';
            yewu.DataSet.post;
            CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
        if yewu.DataSet.fieldbyname('业务状态').asstring='业务封帐' then
        begin
          yewu.DataSet.edit;
          yewu.DataSet['业务状态']:='接受委托';
          yewu.DataSet.post;
         CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,yewu.DataSet.FieldByName('业务状态').asstring,'');
        end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
  end;
end;

procedure Tfrm_op_open_select.select_open_fee();
var
  i:integer;
  bookmark:Tbookmark;
  
begin
  case open_select_num of
    1:
    begin
      if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);

            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
              else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
          TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    2:
    begin
      if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
                yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
             yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
             yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    3:
    begin
      if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
             yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
             yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
           TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    4:
    begin
      if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        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
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
             yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
             yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
          TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    5:
    begin
      if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
               CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
           end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
               CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
           end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
    end;
    6:
    begin
      if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
      begin
        bookmark:=yewu.dataset.GetBookmark;
        try
        for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
        begin
          yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
        end;
        finally
        TAdoQuery(yewu.DataSet).requery;
        yewu.DataSet.GotoBookmark(bookmark);
        end;
      end
      else
      begin
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
            if yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              if (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'')
                   and (Trim(yewu.DataSet.fieldbyname('费用封帐前状态').AsString)<>'费用封帐') then
               yewu.DataSet.fieldbyname('费用状态').AsString:=yewu.DataSet.fieldbyname('费用封帐前状态').AsString
             else
              yewu.DataSet['费用状态']:='录入状态';
              yewu.DataSet['费用封帐日期']:=null;
              yewu.DataSet['审核人']:='';
              yewu.DataSet['审核日期']:=null;
              yewu.DataSet.post;
              CloseOpenLog(yewu.DataSet.FieldByName('编号').AsString,'',yewu.DataSet.FieldByName('费用状态').asstring);
            end;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      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.