Funktionen aus Crystal Reports im Report Builder anwenden

[Metallicwar]

Hallo zusammen, ich muss einen Report der mit Crystal Reports erstellt worden ist, mit dem Report Builder nachbauen.
Mein Problem ist es, dass ich für manche Funktionen die bei Crystal angewandt worden sind, einfach keine passenden Funktionen im Report Builder finde.
Einige Beispiele:

Crystal:

Code:

totext(truncate({B_Ergebnisse.Tagesbrutto}/60),"00",2) 
    + ":" 
    + totext(abs(remainder({B_Ergebnisse.Tagesbrutto},60)),"00",2)

Report Builder (die ,2 aus Crystal Syntax wird nicht berücksichtigt):

Code:

  Value := FormatString(IntToStr(Trunc(dbPipelineAktuellerMonat['Tagesbrutto'] div 60)), '00') 
          + ':'
          + FormatString(IntToStr(dbPipelineAktuellerMonat['Tagesbrutto'] mod 60 * (-1)), '00');

weitere Berechnungen aus Crystal Report:

Code:

totext(Truncate({B_Ergebnisse.Tagesbrutto}/60,2))

Bei dieser Berechnung, bin ich völlig ratlos^^ ("0,00",2,",","."???)

Code:

if {Monatswerte_Report.KRANKSTUNDENBEZAHLT} = 0 then 
    totext(Truncate({Monatswerte_Report.KRANKSTUNDENBEZAHLT}/60,2),"0,00",2,",",".")
else
    totext(Truncate({Monatswerte_Report.KRANKSTUNDENBEZAHLT}/60,2),2,".",",")

zum Schluss eine kleine Auflistung, der Funktionen die ich im Report Builder benötige:
-totext
-abs
-remainder

oder mit welchen Funktionen aus Delphi, könnte ich meine Berechnungen wie bei Crystal umsetzen? (könnte diese Funktionen, dann ja in den Report Builder importieren)

[Metallicwar]

kann mir keiner weiterhelfen?

[exilant]

Du kannst beim Reportbuilder doch im OnGetText-Event jede Druckausgabe so formatieren wie du möchtest. Auch hier gilt wie eigentlich immer: Übersetze nicht von einer(CR) in die andere (RB) "Sprache" sondern baue die Funktionalität nach. Du wirst ja wissen wie der Report aussehen soll, oder?

Offensichtlich handelt es ich bei den Formeln aus CR um eher triviale Formatierungen von Minutenwerten. Wo genau ist das Problem?

Suche in der Delphi Hilfe nach Format, Formatfloat, trunc, abs, mod, div

Zitat:

Bei dieser Berechnung, bin ich völlig ratlos^^ ("0,00",2,",","."???)

Auch das sieht nach einer Formatierung aus: Zwei Stellen Genauigkeit, Dezimaltrenner="," und Tausendertrenner="."

"Sprichst" du Delphi?

[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:

Zitat von Metallicwar (Beitrag 1094398)

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 .