جمع اعداد کوچکتر از 0 در فست ریپورت

[hamid_14]

سلام
آیا در فست ریپورت میشه برای جمع شرط گذاشت.مثلا جمع اعداد کوچکتر از 0 یک فیلد نمایش بده.ممنون

[یوسف زالی]

سلام.
بله.
با تابع sum و ترکیب اون با شرط.
قبلش باید یک تابع دیگه رو از سمت دلفی به فست معرفی کنید.

[hadisalahi2]

قبلش باید یک تابع دیگه رو از سمت دلفی به فست معرفی کنید.

این تیکش رو بلد نیستم
میشه بهم بگی چطوری؟

[یوسف زالی]

unit Unit1;





interface





uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, frxDesgn, frxClass, StdCtrls;





type

  TForm1 = class(TForm)

    frxReport1: TfrxReport;

    frxDesigner1: TfrxDesigner;

    Button1: TButton;

    function frxReport1UserFunction(const MethodName: String;

      var Params: Variant): Variant;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;





var

  Form1: TForm1;





implementation





uses StrUtils;





{$R *.dfm}





function Test1(Arg1, Arg2: string): string;

begin

  Result := 'You gave me ' + Arg1 + ' and ' + Arg2 + ' !';

end;





function Test2(Arg1: extended): extended;

begin

  Result := Arg1 * Arg1;

end;





function Test3: string;

begin

  Result := Application.ExeName;

end;





procedure Test4(S: string);

begin

  ShowMessage(S);

end;







function TForm1.frxReport1UserFunction(const MethodName: String;

  var Params: Variant): Variant;

begin

  if SameText(MethodName, 'Test1') then

    Result := test1(Params[0], Params[1])

  else if SameText(MethodName, 'Test2') then

    Result := Test2(Params[0])

  else if SameText(MethodName, 'Test3') then

    Result := Test3

  else if SameText(MethodName, 'Test4') then

    Test4(Params[0]);





end;





procedure TForm1.Button1Click(Sender: TObject);

begin

  frxReport1.DesignReport;

end;





procedure TForm1.FormCreate(Sender: TObject);

begin

  frxReport1.AddFunction('function Test1(Arg1, Arg2: string): string' , 'MyFunctions', 'this function takes 2 string and show you both');

  frxReport1.AddFunction('function Test2(Arg1: extended): extended'   , 'MyFunctions', 'this function square a number');

  frxReport1.AddFunction('function Test3: string'                     , 'MyFunctions', 'this function returns Exe Name');

  frxReport1.AddFunction('procedure Test4(S: string)'                 , 'MyFunctions', 'this procedure shows string');

end;





end.

اینجا رو هم ببینید:
http://www.fast-report.com/public_do..._to_report.htm

[farshid_82]

اینم یه راه دیگه جمع کردنه

[SUM(IIF(<Field> < 0,<Field>,0))]

[hadisalahi2]

داش یوسف اینا رو همونطوری راحت توی فست میشه فراخوانی کرد دیگه
یعنی یه جورایی میشه مثل توابع خود فست؟

[یوسف زالی]

با تابع sum و ترکیب اون با شرط.

شما هم همین کار رو کردید.

قبلش باید یک تابع دیگه رو از سمت دلفی به فست معرفی کنید.

حواسم به IIF نبود. برای همین گفتم از دلفی معرفی بشه.
به هر حال خالی از لطف هم نشد!

اینا رو همونطوری راحت توی فست میشه فراخوانی کرد دیگه

در لیست توابع خود فست دیده می شه در Category که شما تعیین می کنید.
اگر در پارامترها رعایت قوانین رو کنید مشکلی پیش نمیاد. برای مثال من توابعی مثل سه رقم سه رقم جدا کردن، یا تبدیل تاریخ به شمسی رو در خود فست هم گذاشتم.