Funktionen aus Crystal Reports im Report Builder anwenden

[dataspider]

Hi,

vielleicht ist es einfacher, wenn du auch ein paar Beispile der Ausgabe mit listest.
Also, welcher Wert sieht im Report dann wie aus.
Ich kenn z.B. totext scheint wie to_char von Oracle (z.B. aus "1" "001").
Dann kann man die Funktion in Delphi nachbauen und dann über RAP (wenn du die Enterprise von RB hast) einbinden.

Frank

[Metallicwar]

danke für die Antworten!!
Mal schauen ob ich es hinbekomme.
P.S. Ja ich habe die Enterprise Version.
MfG David

[Metallicwar]

Hi, bin gerade dabei Funktionen aus Delphi in den Report Builder zu importieren.
Ich möchte zunächst die Funktion RoundTo importieren, um auf zwei Nachkommastellen zu runden:

Code:

totext(truncate({B_Ergebnisse.Tagesbrutto}/60),"00",2)

Delphi-Quellcode:

unit Import;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Math, raFunc, ppRTTI, raIDE, DateUtils;

type
  TmyRoundToFunction = class (TraStringFunction)
  public
    procedure ExecuteFunction(aParams: TraParamList); override;
    class function GetSignature: String; override;
  end;

implementation

{------------------------------------------------------------------------------}
{ TmyRoundToFunction.GetSignature }

class function TmyRoundToFunction.GetSignature: String;
begin
  Result := 'function RoundTo(const AValue: Extended; const ADigit: TRoundToEXRangeExtended): Extended;';
end;

{------------------------------------------------------------------------------}
{ TmyRoundToFunction.ExecuteFunction }

procedure TmyRoundToFunction.ExecuteFunction(aParams: TraParamList);
var
 varAValue, varRueckgabe: Extended;
 varADigit: TRoundToEXRangeExtended;
begin
  GetParamValue(0, varAValue);
  GetParamValue(1, varADigit);

  varRueckgabe := RoundTo(varAValue, varADigit);

  SetParamValue(2, varRueckgabe);

end;

initialization
  raRegisterFunction('RoundTo', TmyRoundToFunction);

finalization
  raUnRegisterFunction('RoundTo');

end.

Da ich leider nicht weiß, wie ich Functionen aus Delphi zur Designzeit im Report Builder verwenden kann, habe ich die Unit raIDE eingebunden, damit ich zur Laufzeit, Variablenberechnungen durchführen kann. Sobald ich aber den Reiter "Sprache" unter Berechnungen aufrufe erhalte ich folgende Fehlermeldung:

Zitat:

"Cannot compile Signature for Zeichenkette function: RoundTo"

[dataspider]

Hi,

mir fallen ein paar Dinge auf.

1. Du leitest von TraStringFunction ab. TraSystemFunction ist IMHO besser geeignet.
2. RoundTo hast du einmal für RAP und dann noch mal in Delphi als normale Funktion integriert. Das könnte Probleme bereiten.
[EDIT]
3. Ganz nützlich ist auch noch die Kategorie - zur Übersichtlichkeit

Code:

class function TmyRoundToFunction.Category: string;
begin
  Result := 'Crystal Reports';
end;

Frank

[Metallicwar]

Hallo,

Zitat:

1. Du leitest von TraStringFunction ab. TraSystemFunction ist IMHO besser geeignet.
ok, hab ich abgeändert.
2. RoundTo hast du einmal für RAP und dann noch mal in Delphi als normale Funktion integriert. Das könnte Probleme bereiten.
Habe alle TmyRoundToFunction. .... durch TmyRundenFunction ersetzt,
[EDIT]
3. Ganz nützlich ist auch noch die Kategorie - zur Übersichtlichkeit
markieren
Code:
class function TmyRoundToFunction.Category: string;
begin
Result := 'Crystal Reports';
end;
hab nochmal im Developer Guide nachgeschaut! Danke, das hab ich auch seit langem gesucht, wie ich eigene Kategorien anlegen kann.

Hmmn, trotz der Änderungen besteht der Fehler weiterhin. Ich könnte mir vorstellen, dass er mit den Datentypen nicht klarkommt. (TRoundToEXRangeExtended)
oder an was könnte es noch liegen?

[dataspider]

Zitat von Metallicwar:

Habe alle TmyRoundToFunction. .... durch TmyRundenFunction ersetzt, [/B]

Ich meinte:

Code:

...
  varRueckgabe := RoundTo(varAValue, varADigit); // Hier Funktion RoundTo
...
initialization
  raRegisterFunction('RoundTo', TmyRoundToFunction); // und hier noch mal für RAP

TRoundToEXRangeExtended wird wohl auch nicht funktionieren.
Wobei ich aus dem Hut auch nicht weiss, wie man Typen registriert. Kannst du hier keinen Standard Typ nehmen?

Frank

[Metallicwar]

ich hab vor einiger Zeit schonmals eine Function (DaysInAMonth) aus Delphi importiert.
Beim importieren, habe ich auch keine Funktion anderst genannt.

Delphi-Quellcode:

unit Monatstage;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, raFunc, ppRTTI, DateUtils;

type
  TmyDaysInAMonthFunction = class (TraStringFunction)
  public
    procedure ExecuteFunction(aParams: TraParamList); override;
    class function GetSignature: String; override;
  end;

implementation

uses U_DataModule, U_Main;

{------------------------------------------------------------------------------}
{ TmyDaysInAMonthFunction.GetSignature }

class function TmyDaysInAMonthFunction.GetSignature: String;
begin
  Result := 'function DaysInAMonth(iJahr: Integer; iMonat: Integer): Integer;';
end;

{------------------------------------------------------------------------------}
{ TmyDaysInAMonthFunction.ExecuteFunction }

procedure TmyDaysInAMonthFunction.ExecuteFunction(aParams: TraParamList);
var
 iJahr, iMonat, iRueckgabe: Integer;
begin
  GetParamValue(0, iJahr);
  GetParamValue(1, iMonat);

  //iRueckgabe := DaysInMonth(EncodeDate(iJahr, iMonat, 1));
  iRueckgabe := DaysInAMonth(iJahr, iMonat);

  SetParamValue(2, iRueckgabe);

end;

initialization
  raRegisterFunction('DaysInAMonth', TmyDaysInAMonthFunction);

finalization
  raUnRegisterFunction('DaysInAMonth');

end.

Diese Funktion hab ich dann einfach nur abgeändert auf RoundTo, also wird es vermutlich an den Parametern liegen und nicht an den Funktionsnamen. Bin am ausprobieren, aber ich bekomms einfach nicht hin .