DS6JIEFENG/业务模块/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,
  my_sys_function;

{$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;
{
            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 yewu.DataSet.FieldByName('会计期间').AsDateTime<=Logininfo.endday then begin
              MessageDlg('此会计期间已经月末结账,不能解封！',mtWarning,[mbok],0);
            end else begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
            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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐') and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;

          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;

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;


          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;

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;

          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;

          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;

          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
      }
    end;
    {$IFDEF JGCHE}
    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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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;
          end;
          if (yewu.DataSet.fieldbyname('费用状态').asstring='费用封帐')
          and(yewu.DataSet.fieldbyname('财务').asboolean=false) then
          begin
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
       }
    end;

    {$ENDIF}
  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;
{
            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;
{
          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;
{
            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;
{
          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;

          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;
        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;
          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;
        end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
      }
    end;
    {$IFDEF JGCHE}
    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;
          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;
        end;
        TAdoQuery(yewu.DataSet).Refresh;
      end;
      }
    end;
    {$ENDIF}
  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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          end;
          TAdoQuery(yewu.DataSet).Refresh;
      end;
      }
    end;
    {$IFDEF JGCHE}
    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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          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
              yewu.DataSet.edit;
              yewu.DataSet['费用状态']:='提交财务';
              yewu.DataSet.post;
          end;
         TAdoQuery(yewu.DataSet).Refresh;
      end;
      }
    end;
   {$ENDIF}
  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.