upurchasetotal.pas

在打沙场用的最简单

unit upurchasetotal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BasePrint1, Menus, FR_DSet, FR_DBSet, FR_Class, DB, DBClient,
  ImgList, ActnList, Grids, DBGridEh, Buttons, StdCtrls, ExtCtrls, FR_Desgn;

type
  Tfrmpurchasetotal = class(TfrmBasePrint1)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofdesc: TWideStringField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfofrefno: TWideStringField;
    CDSbaseinfofbillno: TWideStringField;
    CDSbaseinfofdelivdate: TDateTimeField;
    CDSbaseinfofinby: TWideStringField;
    CDSbaseinfofinqty: TBCDField;
    CDSbaseinfofoutby: TWideStringField;
    CDSbaseinfofoutqty: TBCDField;
    CDSbaseinfofinventory: TBCDField;
    CDSbaseinfofnote: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure frBaseinfoUserFunction(const Name: String; p1, p2,
      p3: Variant; var Val: Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurchasetotal: Tfrmpurchasetotal;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmpurchasetotal.FormCreate(Sender: TObject);
begin
  inherited;
  frName:=gs_AppPath+'\Prints\frpurchasetotal.frf';
end;

procedure Tfrmpurchasetotal.frBaseinfoUserFunction(const Name: String; p1,
  p2, p3: Variant; var Val: Variant);
begin
  inherited;
  if Ansicomparetext('XTOD',name)=0 then
    Val:=syRMB(frParser.Calc(p1));
end;

end.