PDA

Ver la Versión Completa : tchart y rave report


victor2023
18-03-2008, 03:29:20
hola que tal, espero y me puedan ayudar, lo que pasa es que quiero pasar el tchart a rave report, encontre este codigo en nevrona pero no lo he podido echar andar y no tengo idea por que, o como podria mandar el tchart a una hoja de excel.

uso delphi 7 y el rave report que trae por default, el link de este codigo esta
en http://www.nevrona.com/Default.aspx?tabid=73

uses
RPTChart;

procedure TForm1.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
with Connection do begin
// PieChart is the name of the DataField that you will use in Rave
WriteField('PieChart', dtGraphic, 30, '', '');
end; { with }
end;
procedure TForm1.RvCustomConnection1GetRow(
Connection: TRvCustomConnection);
begin
// Chart is the name of the TChart component you are wanting to print
WriteChartData(Connection, Chart);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
RvProject1.Execute;
end;

victor2023
19-03-2008, 01:42:32
Hola, a todos, ya resolvi el problema lo que me faltaba de codigo es este

procedure TForm1.RvCustomConnectionOpen(Connection: TRvCustomConnection);
begin
Chartrow := 1;
end;
procedure TForm1.RvCustomConnectionNext(Connection: TRvCustomConnection);
begin
inc(Chartrow);
end;
procedure TForm1.RvCustomConnectionEOF(Connection: TRvCustomConnection;
var Eof: Boolean);
begin
Eof := (Chartrow>1);
end;


donde Chartrow es una variable global integer.
lo que tambien estaba haciendo mal es, para que funcione antes de agregar en el rave designer el data view, primero es poner todo este codigo en delphi, despues aun corriendo la aplicacion es abrir el rave designer agregar un data view y decirle que cual es el customconnection, ahi era en donde no sabia porque a la hora de ejecutar el reporte el campo me pedia un dtstring field siendo que yo le decia que era un dtGraphic, aqui tambien les paso un link para campos calculados en rave report http://www.nevrona.com/rave/tips/rvtip21.html