fnedexpensefrg.pas

详细的ERP设计资料

unit FNEdExpenseFRG;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseVoucherEditA, Menus, ActnList, DB, ComCtrls, StdCtrls, Mask,
  DBCtrls, ExtCtrls, ToolWin, Grids, DBGrids, QLDBGrid, ADODB, GEdit,
  QLDBLkp, Buttons;

type
  TFNEdExpenseFRGForm = class(TBaseVoucherEditAForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ClientName: TADODataSet;
    EmployeeName: TADODataSet;
    DBEdit2: TDBEdit;
    GoodName: TADODataSet;
    Label5: TLabel;
    GEdit1: TGEdit;
    adsAccounts: TADODataSet;
    dsAccounts: TDataSource;
    DSClientName: TDataSource;
    DSEmployeeName: TDataSource;
    ClientQLDBLookup: TQLDBLookupComboBox;
    EmployeeLookup: TQLDBLookupComboBox;
    DBEdit1: TDBEdit;
    adsMaster: TADODataSet;
    adsDetail: TADODataSet;
    Label8: TLabel;
    ClientADS: TADODataSet;
    ClientDS: TDataSource;
    ClientLKUP: TQLDBLookupComboBox;
    Label6: TLabel;
    adsMasterID: TAutoIncField;
    adsMasterCreateDate: TDateTimeField;
    adsMasterCreateUserID: TIntegerField;
    adsMasterRecordState: TStringField;
    adsMasterDate: TDateTimeField;
    adsMasterCode: TStringField;
    adsMasterBillMode: TStringField;
    adsMasterBrief: TStringField;
    adsMasterClientID: TIntegerField;
    adsMasterEmployeeID: TIntegerField;
    adsMasterOriginID: TIntegerField;
    adsMasterOriginTable: TStringField;
    adsMasterPeriodID: TIntegerField;
    adsMasterMemo: TStringField;
    adsMasterBillAffix: TBytesField;
    adsMasterEmployee: TStringField;
    adsMasterClient: TStringField;
    ProjectADS: TADODataSet;
    ProjectDS: TDataSource;
    adsBrief: TADODataSet;
    adsMasterAmountD: TBCDField;
    adsMasterAmountC: TBCDField;
    Label7: TLabel;
    Label9: TLabel;
    LookUpAccount: TQLDBLookupComboBox;
    adsMasterAccountsID: TIntegerField;
    adsMasterAmountBL: TBCDField;
    adsMasterAmountRed: TBCDField;
    BitBtn1: TBitBtn;
    LookExpenseID: TQLDBLookupComboBox;
    ExpenseDS: TDataSource;
    ExpenseADS: TADODataSet;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    adsMasterModeDC: TIntegerField;
    adsMasterModeC: TIntegerField;
    adsMasterClearDate: TDateTimeField;
    BriefComboBox: TDBComboBox;
    adsDetailID: TAutoIncField;
    adsDetailMasterID: TIntegerField;
    adsDetailPoClearID: TIntegerField;
    adsDetailCheckNo: TStringField;
    adsDetailBillCode: TStringField;
    adsDetailAmount: TBCDField;
    adsDetailBillTypeID: TIntegerField;
    adsDetailOriginID: TIntegerField;
    adsDetailExpenseID: TIntegerField;
    adsDetailGoodsID: TIntegerField;
    adsDetailProjectID: TIntegerField;
    adsDetailMemo: TStringField;
    adsDetailOriginTable: TStringField;
    adsDetailExpense: TStringField;
    adsDetailAmountB: TBCDField;
    adsDetailClientID: TIntegerField;
    AssetsADS: TADODataSet;
    AssetsDS: TDataSource;
    adsDetailClient: TStringField;
    adsDetailAssets: TStringField;
    adsDetailProject: TStringField;
    AssetsLKUP: TQLDBLookupComboBox;
    ProjectLKUP: TQLDBLookupComboBox;
    adsDetailApportionMode: TStringField;
    ApportionModeADS: TADODataSet;
    ApportionModeDS: TDataSource;
    ApportionModeQLLkup: TQLDBLookupComboBox;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    adsMasterAmountOrigin: TBCDField;
    adsMasterAmountRate: TFloatField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ClientQLDBLookupEnter(Sender: TObject);
    procedure ClientQLDBLookupExit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure adsDetailExpenseIDChange(Sender: TField);
    procedure FormActivate(Sender: TObject);
    procedure SaveActionExecute(Sender: TObject);
    procedure LookUpAccountExit(Sender: TObject);
    procedure DBEdit4Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Open(VoucherID: Integer); override;
    procedure New; override;
  end;

var
  FNEdExpenseFRGForm: TFNEdExpenseFRGForm;

implementation

uses CommonDM, WSUtils, WSSecurity,QLDBAgg;

{$R *.dfm}
procedure TFNEdExpenseFRGForm.New;
begin
  inherited;
  adsMaster.FieldByName('Date').AsDateTime:=date;
  adsMaster.FieldByName('Code').AsString:=GetMaxCode('Code','FNExpenseMaster',number);
  adsMaster.FieldByName('CreateUserID').AsInteger:=Guarder.UserID;
  adsMaster.FieldByName('BillMode').AsString:='报销申请';
  adsMaster.FieldByName('ModeDC').AsInteger:=1;
  adsMaster.FieldByName('ModeC').AsInteger:=1;
  adsMaster.FieldByName('OriginTable').AsString:='FNExpenseMaster';
  adsMaster.FieldByName('AmountD').AsFloat:=0;

end;

procedure TFNEdExpenseFRGForm.Open(VoucherID: Integer);
begin
  inherited Open(VoucherID);
end;


procedure TFNEdExpenseFRGForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  adsMaster.Close;
  adsDetail.Close;
  ClientName.Close;
  EmployeeName.Close;
  GoodName.Close;
  adsAccounts.Close;
  ExpenseADS.Close;
  ProjectAds.Close;
  AssetsAds.Close;
  adsBrief.Close;
end;

procedure TFNEdExpenseFRGForm.FormCreate(Sender: TObject);
begin
  inherited;
  VoucherTableName := 'FNExpense';
  ClientName.Open;
  EmployeeName.Open;
  GoodName.Open;
  adsAccounts.Open;
  ExpenseADS.Open;
  ProjectAds.Open;
  AssetsAds.Open;
  ApportionModeADS.Open;
  adsBrief.Close;
  adsBrief.CommandText :=' select distinct Brief from FNExpenseMaster';
  adsBrief.Open;
  adsBrief.first;
  while not adsBrief.Eof do
  begin
    BriefComboBox.Items.Add(adsBrief.fieldbyname('Brief').AsString);
    adsBrief.Next;
  end;
  if  adsBrief.IsEmpty then  BriefComboBox.Items.Add('报销');
end;

procedure TFNEdExpenseFRGForm.ClientQLDBLookupEnter(Sender: TObject);
begin
  inherited;
  GEdit1.Enabled :=true;
  GEdit1.Text :='0';
  GEdit1.Enabled :=false;
end;

procedure TFNEdExpenseFRGForm.ClientQLDBLookupExit(Sender: TObject);
var  adoTemp: TADOQuery;
begin
  inherited;
  if   (adsMaster.fieldbyname('ClientID').IsNull) or
          (adsMaster.fieldbyname('ClientID').AsInteger=0)  then exit;
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  with adoTemp do
  begin
    close;
    sql.Text := 'select sum(isnull(Amountc,0))-sum(isnull(Amountd,0)) '
        +' as Balance from (  '
        +' select  0.00 as AmountD, (AmountD+  '
        +' AmountRed)*Isnull(ModeDC,1)*Isnull(ModeC,1) as AmountC FROM FNCashinMaster'
        +' where ClientID='+adsMaster.fieldbyname('ClientID').AsString
        +' and RecordState<>'+QuotedStr('删除') //----- 收款时贷记
        +' UNION ALL '
        +' select  (AmountC+AmountRed)*Isnull(ModeDC,1)*Isnull(ModeC,1) as AmountD,   '
        +'  0.00 as AmountC FROM FNCashOutMaster'
        +' where ClientID='+adsMaster.fieldbyname('ClientID').AsString
        +' and RecordState<>'+QuotedStr('删除') //======付款时借记
        +' UNION ALL '
        +' select AmountRed*Isnull(ModeDC,1)*Isnull(ModeC,1) as AmountD,   '
        +' 0.00  as AmountC FROM FNExpenseMaster'
        +' where ClientID='+adsMaster.fieldbyname('ClientID').AsString
        +' and RecordState<>'+QuotedStr('删除') //*****报销冲帐时借记
        +' ) as Balance' ;
    open;
    GEdit1.Enabled :=true;
    if  adoTemp.IsEmpty then     GEdit1.Text :='0'
      else   GEdit1.Text :=fieldbyname('Balance').asstring;
    GEdit1.Enabled :=False;
  end;
end;

procedure TFNEdExpenseFRGForm.BitBtn1Click(Sender: TObject);
begin
  inherited;
//
end;

procedure TFNEdExpenseFRGForm.adsDetailExpenseIDChange(Sender: TField);
begin
  inherited;
  adsDetail.Edit;
  if (adsDetail.FieldByName('Amount').IsNull) or (adsDetail.FieldByName('Amount').AsFloat=0)
    then adsDetail.FieldByName('Amount').AsFloat := adsMaster.FieldByName('AmountC').AsFloat;
end;


procedure TFNEdExpenseFRGForm.FormActivate(Sender: TObject);
var StrAccountID :string;
begin
  StrAccountID := adsMaster.fieldbyname('AccountsID').AsString;
  adsAccounts.Locate('ID',StrAccountID,[]) ;
  inherited;
  ClientQLDBLookup.SetFocus;
  if not adsAccounts.FieldByName('IsLocation').AsBoolean then
      DBEdit4.ReadOnly :=False
    else DBEdit4.ReadOnly :=True;
end;

procedure TFNEdExpenseFRGForm.SaveActionExecute(Sender: TObject);
var Balance :real;
begin
  Balance :=adsMaster.FieldByName('AmountC').AsFloat+
     adsMaster.FieldByName('AmountRed').AsFloat-
         DBGrid.AggregateList.Aggregates.FindAggregate(atSum, 'Amount').AggregateValue;
   if Balance<>0 then
   begin
     ShowMessage('费用明细与总额差为:'+#13+Floattostr(Balance)+#13+'请修改！ ' );
     Exit;
   end;

  inherited;

end;

procedure TFNEdExpenseFRGForm.LookUpAccountExit(Sender: TObject);
var StrAccountID :string;
begin
  inherited;
  StrAccountID := adsMaster.fieldbyname('AccountsID').AsString;
  adsAccounts.Locate('ID',StrAccountID,[]) ;
  if not adsAccounts.FieldByName('IsLocation').AsBoolean then
  begin
    DBEdit4.ReadOnly :=False;
  end else begin
    adsMaster.Edit;
    adsMaster.FieldByName('AmountOrigin').Value :=null;
    adsMaster.FieldByName('AmountRate').Value :=null;
    DBEdit4.ReadOnly :=True;
  end;
end;

procedure TFNEdExpenseFRGForm.DBEdit4Exit(Sender: TObject);
begin
  inherited;
  if adsMaster.FieldByName('AmountOrigin').AsFloat<>0 then
    adsMaster.FieldByName('AmountRate').AsFloat:=
      (adsMaster.FieldByName('AmountC').AsFloat+adsMaster.FieldByName('AmountRed').AsFloat)
        /adsMaster.FieldByName('AmountOrigin').AsFloat;
end;

end.