unit fjtzj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons;

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Memo1: TMemo;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation
  uses Dataz;
{$R *.dfm}

procedure TForm11.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm11.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TForm11.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date := Now();
end;

procedure TForm11.BitBtn1Click(Sender: TObject);
var
  bj: String;
  year,month,day: Word;
begin
  DecodeDate(DateTimePicker1.Date,year,month,day);
  bj := FormatDateTime('yyyymm',DateTimepicker1.Date);
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 計提折舊表 where 計提標記 = :a');
    Parameters.ParamByName('a').Value := Trim(bj);
    Open;
  end;
  if Daz.ADOQuery1.RecordCount>0 then
  begin
    Try
    Daz.ADOConnection1.BeginTrans;
    with daz.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete 計提折舊表 where 計提標記 = :a');
      Parameters.ParamByName('a').Value := Trim(bj);
      ExecSQL;
    end;
    with Daz.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 固定資產信息表 where 固定資產編號 not in ( select 固定資產編號 from 固定資產信息表 where Year(入賬日期) = :a and Month(入賬日期)= :b)and 增減 = 0');
      Parameters.ParamByName('a').Value := year;
      Parameters.ParamByName('b').Value := Month;
      OPen;
    end;
    if Daz.ADOQuery1.RecordCount >0 then
    begin
      while Not Daz.ADOQuery1.Eof do
      begin
        Daz.ADOQuery1.Edit;
        if Trim(Daz.ADOQuery1.FieldByName('折舊方法').Value) = '年限平均法(1)' then
        begin
          Daz.ADOQuery1.FieldByName('累計折舊').Value :=Daz.ADOQuery1.FieldByName('累計折舊').Value - Daz.ADOQuery1.FieldByName('月折舊額').Value;
          Daz.ADOQuery1.FieldByName('已計提月份').Value := Daz.ADOQuery1.FieldByName('已計提月份').Value -1;
          Daz.ADOQuery1.Post;
        end
        else if  Trim(Daz.ADOQuery1.FieldByName('折舊方法').Value) = '年限平均法(2)' then
        begin
          Daz.ADOQuery1.Edit;
          with Daz.ADOQuery1 do
          begin
            FieldByName('已計提月份').Value := FieldByName('已計提月份').Value -1;
            FieldByName('月折舊額').Value := (FieldByName('入賬原值').Value - FieldByName('累計折舊').Value - FieldByName('預計凈殘值').Value)/(FieldByName('預計使用月份').Value-FieldByName('已計提月份').Value);
            Post;
          end;
        end;
        Daz.ADOQuery1.Next;
      end;
    end;
    with Daz.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 固定資產信息表 where 固定資產編號 in (Select 固定資產編號 From 固定資產減少表 where year(日期)=:a and Month(日期) = :b)');
      If Month = 1 then
      begin
        Parameters.ParamByName('a').Value := Year -1;
        Parameters.ParamByName('b').Value := 12;
      end
      else
      begin
        Parameters.ParamByName('a').Value := Year;
        Parameters.ParamByName('b').Value := Month -1;
      end;
      Open;
    end;
    if Daz.ADOQuery1.RecordCount>0 then
    begin
      Daz.ADOQuery1.Edit;
      while Not Daz.ADOQuery1.Eof do
      begin
        if Trim(Daz.ADOQuery1.FieldByName('折舊方法').Value) = '年限平均法(1)' then
        begin
          Daz.ADOQuery1.FieldByName('累計折舊').Value :=Daz.ADOQuery1.FieldByName('累計折舊').Value - Daz.ADOQuery1.FieldByName('月折舊額').Value;
          Daz.ADOQuery1.FieldByName('已計提月份').Value := Daz.ADOQuery1.FieldByName('已計提月份').Value -1;
          Daz.ADOQuery1.Post;
        end
        else if Trim(Daz.ADOQuery1.FieldByName('折舊方法').Value) = '年限平均法(2)' then
        begin
          with Daz.ADOQuery1 do
          begin
            FieldByName('已計提月份').Value := FieldByName('已計提月份').Value -1;
            FieldByName('月折舊額').Value := (FieldByName('入賬原值').Value - FieldByName('累計折舊').Value - FieldByName('預計凈殘值').Value)/(FieldByName('預計使用月份').Value-FieldByName('已計提月份').Value);
            Post;
          end;
        end;
        Daz.ADOQuery1.Next;
      end;
    end;
    Daz.ADOConnection1.CommitTrans;
    Application.MessageBox('反計提成功。','提示',64);
    Except
      Daz.ADOConnection1.RollbackTrans;
      Application.MessageBox('反計提失敗。','提示',64);
    end;
  end
  else
    Application.MessageBox('本期沒有計提折舊，不能進行反計提。','提示',64);
end;

end.