unit u_op_seae_teshufz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, XPMenu, Menus, dxDBTLCl, dxGrClms, dxDBCtrl, dxDBGrid,
  dxTL, dxCntner, DB, ADODB, Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwdblook,
  RxLookup, wwdbdatetimepicker, StdCtrls, bsSkinCtrls, ExtCtrls, ComCtrls,
  bsSkinTabs, DBCtrls,DateUtils;

type
  Tfrm_op_seae_teshufz = class(TForm)
    t_op_seae: TADOQuery;
    t_op_seae1: TDataSource;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    PopupMenu2: TPopupMenu;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    t_op_seaesel: TADOQuery;
    ds_op_seaesel1: TDataSource;
    pm1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    t_op_bill: TADOQuery;
    ds_op_bill1: TDataSource;
    bsSkinPageControl1: TbsSkinPageControl;
    bskntbsht1: TbsSkinTabSheet;
    bskntbsht2: TbsSkinTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    dxDBGrid2Column4: TdxDBGridColumn;
    dxDBGrid2Column5: TdxDBGridColumn;
    dxDBGrid2Column6: TdxDBGridColumn;
    bsSkinPanel4: TbsSkinPanel;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn61: TdxDBGridMaskColumn;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    PopupMenu3: TPopupMenu;
    MenuItem2: TMenuItem;
    dxDBGrid2Column7: TdxDBGridColumn;
    bsSkinPanel5: TbsSkinPanel;
    Panel1: TPanel;
    bsSkinButton11: TbsSkinButton;
    Label17: TLabel;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    Label18: TLabel;
    wwDBDateTimePicker7: TwwDBDateTimePicker;
    Label19: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    Label20: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    dxDBGrid2Column8: TdxDBGridColumn;
    dxDBGrid2Column9: TdxDBGridColumn;
    dxDBGrid3Column12: TdxDBGridColumn;
    dxDBGrid3Column13: TdxDBGridColumn;
    dxDBGrid3Column14: TdxDBGridColumn;
    dxDBGrid3Column15: TdxDBGridColumn;
    Label4: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label15: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    RxDBLookupCombo4: TRxDBLookupCombo;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    DBEdit1: TDBEdit;
    RxDBLookupCombo5: TRxDBLookupCombo;
    wwDBDateTimePicker8: TwwDBDateTimePicker;
    RxDBLookupCombo7: TRxDBLookupCombo;
    wwDBDateTimePicker9: TwwDBDateTimePicker;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    RxDBLookupCombo8: TRxDBLookupCombo;
    dxDBGrid2Column10: TdxDBGridColumn;
    dxDBGrid2Column11: TdxDBGridColumn;
    bsSkinButton38: TbsSkinButton;
    dxDBGrid2Column12: TdxDBGridColumn;
    dxDBGrid2Column13: TdxDBGridColumn;
    dxDBGrid2Column14: TdxDBGridColumn;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    Label2: TLabel;
    Label3: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    dxDBGrid2Column15: TdxDBGridColumn;
    dxDBGrid2Column16: TdxDBGridColumn;
    Label1: TLabel;
    DBMemo1: TDBMemo;
    Label29: TLabel;
    DBMemo2: TDBMemo;
    Label6: TLabel;
    DBMemo3: TDBMemo;
    Label8: TLabel;
    DBMemo4: TDBMemo;
    Label9: TLabel;
    DBMemo5: TDBMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton38Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure dxDBGrid2Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure dxDBGrid3DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   function UpdateBillStatus(bsStStatus:string):Boolean;
  end;

var
  frm_op_seae_teshufz: Tfrm_op_seae_teshufz;

implementation

uses my_sys_function, u_main, my_sys_chat;

{$R *.dfm}

function Tfrm_op_seae_teshufz.UpdateBillStatus(bsStStatus:string):Boolean;
var aAdoQuery,aAdoQuerySelect:TAdoQuery;
begin


{var aAdoQuery:TAdoQuery;
begin
  result:=False;
  aAdoQuery:=CreateAdoQuery;
  with aAdoQuery do
  try
    Close;Sql.Clear;
    SQL.Add('select count(编号) c from  t_op_fangdan');
    SQL.Add('where 编号=:编号');
    Parameters.ParamByName('编号').Value:=BsNo;
    Open;
    if aAdoQuery.FieldByName('c').AsInteger=0 then
    begin
      Close;Sql.Clear;
      SQL.Add('Insert into t_op_fangdan (编号,  放单状态,申请人,申请日期)');
      SQL.Add('values                   (:编号,:放单状态,:申请人,:申请日期)');
      Parameters.ParamByName('编号').Value:=BsNo;
      Parameters.ParamByName('放单状态').Value:='申请放单';
      Parameters.ParamByName('申请人').Value:=employee;
      Parameters.ParamByName('申请日期').Value:=date;
      ExecSQL;
    end;
  finally
    aAdoQuery.Free;
  end;
}


  result:=False;
  aAdoQuery:=CreateAdoQuery;
  aAdoQuerySelect:=CreateAdoQuery;
  with t_op_seaesel do
  try
    Open;First;
    while not eof do
    begin
      aAdoQuerySelect.Close;aAdoQuerySelect.Sql.Clear;
      aAdoQuerySelect.SQL.Add('select count(编号) c from  t_op_fangdan');
      aAdoQuerySelect.SQL.Add('where 编号=:编号');
      aAdoQuerySelect.Parameters.ParamByName('编号').Value:=fieldByName('编号').AsString;
      aAdoQuerySelect.Open;
      if aAdoQuerySelect.FieldByName('c').AsInteger=0 then
      begin
        aAdoQuery.Close;aAdoQuery.Sql.Clear;
        aAdoQuery.SQL.Add('Insert into t_op_fangdan (编号,  放单状态)');
        aAdoQuery.SQL.Add('values                   (:编号,:放单状态)');
        aAdoQuery.Parameters.ParamByName('编号').Value:=fieldByName('编号').AsString;
        aAdoQuery.Parameters.ParamByName('放单状态').Value:=bsStStatus;
        aAdoQuery.ExecSQL;
      end
      else
      begin
        aAdoQuery.Close;aAdoQuery.Sql.Clear;
        aAdoQuery.SQL.Add('Update t_op_fangdan set 放单状态=:放单状态');
        aAdoQuery.SQL.Add('where 编号=:编号');
        aAdoQuery.Parameters.ParamByName('编号').Value:=fieldByName('编号').AsString;
        aAdoQuery.Parameters.ParamByName('放单状态').Value:=bsStStatus;
        aAdoQuery.ExecSQL;
      end;
      Next;
    end;
  finally
    aAdoQuery.Free;
    aAdoQuerySelect.Free;
  end;
end;


procedure Tfrm_op_seae_teshufz.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid2,caption);
  savereggrid(dxdbgrid3,caption+'1');
  frm_op_seae_teshufz.Hide;
  frm_op_seae_teshufz.ManualFloat(frm_op_seae_teshufz.BoundsRect );
  frm_main.freeTabs('frm_op_seae_teshufz');
  action:=cafree;
  frm_op_seae_teshufz:=nil;
end;

procedure Tfrm_op_seae_teshufz.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid2,true,caption);
  loadreggrid(dxdbgrid3,true,caption+'1');
  t_op_bill.Open;
  t_op_seaesel.Open;
end;

procedure Tfrm_op_seae_teshufz.bsSkinButton3Click(Sender: TObject);
begin
  if t_op_bill.State in [dsedit,dsinsert] then
    t_op_bill.Post;
end;

procedure Tfrm_op_seae_teshufz.bsSkinButton7Click(Sender: TObject);
begin
  if t_op_bill.IsEmpty then
    exit;
  t_op_bill.Cancel;
end;

procedure Tfrm_op_seae_teshufz.bsSkinButton14Click(Sender: TObject);
begin
 if t_op_bill.IsEmpty then
    exit;


  if strtobool(get_parameters_value(161,'false')) then
  begin
      t_op_bill.edit;
      t_op_bill['状态']:='副总审核';
      t_op_bill['业务审核日期']:=Now;
      t_op_bill['业务审核']:=employee;
      t_op_bill['签单日期']:=Now;
      t_op_bill['签单人']:=employee;
      t_op_bill['副总审核日期']:=Now;
      t_op_bill['副总审核']:=employee;
      t_op_bill.post;
      UpdateBillStatus('副总审核');

      with t_op_seaesel do
      begin
        First;
        while not eof do
        begin
          InsertSeaeStatus(FieldByName('编号').AsString,'副总审核',employee,FormatDateTime('YYYY-MM-DD',Now));
         Next;
        end;
      end;
      t_op_bill.Refresh;
  end
  else
  begin
    if t_op_bill.FieldByName('签单日期').IsNull then
    begin
      showmessage('主管没有审核,不能审核！');
      Exit;
    end
    else
    begin
      t_op_bill.edit;
      t_op_bill['状态']:='副总审核';
      t_op_bill['副总审核日期']:=Now;
      t_op_bill['副总审核']:=employee;
      t_op_bill.post;
      UpdateBillStatus('副总审核');

      with t_op_seaesel do
      begin
        First;
        while not eof do
        begin
          InsertSeaeStatus(FieldByName('编号').AsString,'副总审核',employee,FormatDateTime('YYYY-MM-DD',Now));
         Next;
        end;
      end;


      t_op_bill.Refresh;
    end;
  end;

end;

procedure Tfrm_op_seae_teshufz.bsSkinButton15Click(Sender: TObject);
var str:string;
begin
if t_op_bill.IsEmpty then
    exit;

  if t_op_bill.FieldByName('副总审核日期').IsNull then
  begin
    showmessage('没有审核,不用取消审核！！');
    Exit;
  end
  else
  begin
    t_op_bill.edit;
    t_op_bill.FieldByName('总经理驳回原因').AsString:=t_op_bill.FieldByName('总经理驳回原因').AsString+#13#10+employee+' '+FormatDateTime('YYYY-MM-DD hh:ss',Now);
    t_op_bill['状态']:='新建签单';
    t_op_bill['副总审核日期']:=null;
    t_op_bill['副总审核']:=null;
    t_op_bill['签单日期']:=null;
    t_op_bill['业务审核日期']:=null;
    t_op_bill['财务审核日期']:=null;



    t_op_bill.post;
  //  UpdateBillStatus('主管审核');


    with t_op_seaesel do
    begin
      First;
      while not eof do
      begin
        DelteSeaeStatus(fieldbyname('编号').AsString,'财务审核');
        Next;
      end;
    end;


    with t_op_seaesel do
    begin
      First;
      while not eof do
      begin
        DelteSeaeStatus(fieldbyname('编号').AsString,'副总审核');
        Next;
      end;
    end;
    with t_op_seaesel do
    begin
      First;
      while not eof do
      begin
        DelteSeaeStatus(fieldbyname('编号').AsString,'主管审核');
        Next;
      end;
    end;
    with t_op_seaesel do
    begin
      First;
      while not eof do
      begin
        DelteSeaeStatus(fieldbyname('编号').AsString,'销售审核');
        Next;
      end;
    end;
    if (str<>'')  then


    t_op_bill.Refresh;
  end;

end;

procedure Tfrm_op_seae_teshufz.bsSkinButton38Click(Sender: TObject);
begin
  t_op_bill.Refresh;
end;

procedure Tfrm_op_seae_teshufz.bsSkinButton8Click(Sender: TObject);
begin
 Close;
end;

procedure Tfrm_op_seae_teshufz.dxDBGrid2Click(Sender: TObject);
begin
  bsSkinPageControl1.ActivePageIndex:=1;
end;

procedure Tfrm_op_seae_teshufz.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid2);
end;

procedure Tfrm_op_seae_teshufz.bsSkinButton11Click(Sender: TObject);
begin
  with t_op_bill do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from t_op_bill_fangdan');
    sql.Add('where 操作日期 between :date1 and :date2');
    sql.Add('order by BILL_ID DESC');
    Parameters.ParamByName('date1').Value:=wwDBDateTimePicker6.Date;
    Parameters.ParamByName('date2').Value:=wwDBDateTimePicker7.Date;
    Open;
  end;

end;

procedure Tfrm_op_seae_teshufz.dxDBGrid3DblClick(Sender: TObject);
begin
  fee_view(t_op_seaesel.fieldbyname('编号').asstring);

end;

end.