Funktionen aus Crystal Reports im Report Builder anwenden

[Metallicwar]

Hi, also hab's in die Newsgroup gepostet und recht zügig eine Antwort bekommen.

Zitat:

Hi David,

You are correct, RAP is not going to be able to resolve the TRoundToEXRangeExtended type. Perhaps try using a simpler type (String or Integer) and convert to the TRoundToEXRangeExtended type inside the Execute routine.

versteh aber leider nicht genau wie ich das anstellen soll.

Delphi-Quellcode:

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

wo soll ich den Datentyp ändern und wie kann ich bsp. von Int nach Extended umwandeln?

[dataspider]

Hi,

so sollte es gehen:

Delphi-Quellcode:

Uses
  SysUtils, raFunc, ppRTTI, Math;

type
  TmyRoundToFunction = class(TraSystemFunction)
  public
    class function Category: string; override;
    procedure ExecuteFunction(AParams: TraParamList); override;
    class function GetSignature: string; override;
  end;

implementation

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

procedure TmyRoundToFunction.ExecuteFunction(AParams: TraParamList);
var
  AValue: Extended;
  AResult: Extended;
  ATempDigit: Integer;
  ADigit: TRoundToEXRangeExtended; // [-20 .. 20]
begin
  GetParamValue(0, AValue);
  GetParamValue(1, ATempDigit);
  try
    ADigit := ATempDigit;  // prüfen auf TRoundToEXRangeExtended 
    AResult := RoundTo(AValue, ADigit);
    SetParamValue(2, AResult);
  except
    raise Exception.Create('ADigit ist kein TRoundToEXRangeExtended');
  end;
end;

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

initialization
  raRegisterFunction('RoundTo', TmyRoundToFunction);

finalization
  raUnRegisterFunction('RoundTo');

end.

Frank

[Metallicwar]

Hallo Frank,
danke für den Code, aber ich erhalte nachwievor die selbe Fehlermeldung.
Also Laut Aussage von Digital Metaphors einen einfacheren Typ verwenden (String oder Integer) und in der Execute Methode in den TRoundToEXRangeExtended umwandeln, aber wie?!? Steh auf dem Schlauch ...

[dataspider]

Zitat von Metallicwar:

aber ich erhalte nachwievor die selbe Fehlermeldung.

Das kann nicht sein, da ich den Typ in der Signatur auf Integer geändert habe.

Frank

[Metallicwar]

Zitat:

vor einer Minute
Zitat von Metallicwar:
aber ich erhalte nachwievor die selbe Fehlermeldung.
Das kann nicht sein, da ich den Typ in der Signatur auf Integer geändert habe.

Frank

Versteh ich nicht, hast du's mal bei dir getestet, habe deinen Code 1 zu 1 übernommen und bekommen trotzdem eine Fehlermeldung: 'Cannot compile signature for Crystal Reports function: RoundTo'

Wäre super, wenn wir das Problem heute noch lösen könnten.

[dataspider]

Zitat von Metallicwar:

Versteh ich nicht, hast du's mal bei dir getestet, habe deinen Code 1 zu 1 übernommen und bekommen trotzdem eine Fehlermeldung:

Ne, sorry - hab es jetzt unter D2010 getestet mit dem selben Fehler...sollte zu finden sein...

Frank

[dataspider]

Sorry,

bei der Signatur fehlte das Semikolon:

  Result := 'function RoundTo(AValue: Extended; ADigit: Integer): Extended;';
[Edit]
Seh gerade, dass ich das Const vor den Paramtern entfert habe. Kannst du wieder rein nehmen, spielt IMHO keine Rolle...[/EDIT]


Frank

[Metallicwar]

Vielen Dank Frank.

Letzte Frage bis dahin:

Delphi-Quellcode:

begin
  Value := RoundTo(Trunc(dbPipelineAktuellerMonat['Tagesbrutto'] div 60), 2) 
          + ':'
          + Roundto((-1) * (dbPipelineAktuellerMonat['Tagesbrutto'] mod 60),2);

Fehler: Inkompatible Typen..

Erwartet ja Extended und das Datenfeld ist ein Integer... IntTo???

[Metallicwar]

ehm, ich kriegs nicht hin -.-
Kann mir bitte nochmal jmd bei der Typumwandlung helfen?

[dataspider]

Ich nehme an, gleich gibt es was auf die Mütze!
Denn Pushen ist hier nicht gerade beliebt.

Und ich klink mich hier jetzt auch erst mal aus.

Du kommst so nicht weiter. Das nächste Problem ist mod und div und so weiter.

Und es geht wohl nur um die Formatierung eines Wertes (wurde ja schon erwähnt).

Vergiss einfach, die Funktionen 1 zu 1 nachbilden zu wollen.
Schau die den Wert an und die Ausgabe und mach eine Formatfunktion, die nur den Wert bekommt und den String zurückgibt.

Frank