juangiron
24-10-2007, 19:25:34
Hola a todos mi duda basicamente es la siguiente.
tengo un proyecto en delphi y quiero realizar un reporte con rave report de algunos datos que he guardado en edits y memos.
Lo que hice fue utilizar un customconnection y intente probar con imprimir un reporte solo con el texto de un edit pero no me funciona. este es el codigo
procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
with Connection do
begin
Connection.WriteField('Titulo',dtString,40,'','');
end;
end;
procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
begin
with Connection do
begin
WriteStrData(Edit1.Text,'');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RvProject1.ExecuteReport('prjPlantilla.rav');
end;
el archivo prjPlantilla fue el que diseñe con rave donde cree un new data object con direct data view
Si alguien puede ayudarme con esto, le agradeceria enormemente
Listo ya lo solucione simplemente agregue
procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
with Connection do
begin
DataRows:=1;
end;
end;
(Por ser solo una pagina de informe)
y ejecutarlo de esta forma RvProject1.Execute
tengo un proyecto en delphi y quiero realizar un reporte con rave report de algunos datos que he guardado en edits y memos.
Lo que hice fue utilizar un customconnection y intente probar con imprimir un reporte solo con el texto de un edit pero no me funciona. este es el codigo
procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
with Connection do
begin
Connection.WriteField('Titulo',dtString,40,'','');
end;
end;
procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
begin
with Connection do
begin
WriteStrData(Edit1.Text,'');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RvProject1.ExecuteReport('prjPlantilla.rav');
end;
el archivo prjPlantilla fue el que diseñe con rave donde cree un new data object con direct data view
Si alguien puede ayudarme con esto, le agradeceria enormemente
Listo ya lo solucione simplemente agregue
procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
with Connection do
begin
DataRows:=1;
end;
end;
(Por ser solo una pagina de informe)
y ejecutarlo de esta forma RvProject1.Execute