 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcos@marcos
Novato
Registrado: Sábado, 26 de Março de 2011
Mensagens: 22
|
 Enviada: Dom Nov 20, 2011 7:48 pm Assunto: Relatórios com ravereports - Resolvido |
 |
|
Estou criando dois formulários com rave reports. Fiz o seguinte, coloquei um componente RVPROJECT no data module principal, acompanhado de um RVDATASETCONNECTION e setei sua propriedade dataset para dstContatos.
Até aí tudo bem criei meus relatórios.
Na execução do aplicativo ao clicar no botão formulário, é exibido uma caixa (estilo caixa de diálogo) onde é necessário marcar o tipo de formulário (usei radiobuttons aqui) e um botão "Visualizar".
Vinculei a este botão o seguinte código:
| Código: | if rbRelSimples.Checked then
begin
dm.rvContatos.ProjectFile:='C:\BD\relatorios\rel_simples';
DM.rvContatos.SelectReport('rel_simples',false);
dm.rvContatos.Execute;
end
else
if rbRelCompleto.Checked then
begin
dm.rvContatos.ProjectFile:='C:\BD\relatorios\rel_completo';
DM.rvContatos.SelectReport('rel_completo',false);
dm.rvContatos.Execute;
end; |
Porém se marco relatório simples, e clico e visualizo o relatório é exibido normalmente, mas em seguida se marco relatório completo quando clico em visualizar é exibido o relatório simples.
Para que funcione normalmente é necessário fechar a aplicação e só então escolher a outra opção.
Imagino que tenho que limpar a propriedade "PROJECTFILE" do rvproject mas não estou conseguindo, alguém pode me dar uma sugestão?
Obrigado pela atenção.
Editado pela última vez por marcos@marcos em Dom Nov 20, 2011 8:00 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
marcos@marcos
Novato
Registrado: Sábado, 26 de Março de 2011
Mensagens: 22
|
| Enviada: Dom Nov 20, 2011 7:58 pm Assunto: Rave reports |
|
|
Caros colegas descobri uma forma de resolver o problema, não sei é a melhor ou a forma mais correta.
Bastou fechar o rvproject, depois passar o caminho do relatório, abrí-lo e só então usar o comando Execute.
Segue código:
| Código: | procedure Tfrm_impressao.Vis_RelatorioClick(Sender: TObject);
begin
if rbRelSimples.Checked then
begin
dm.rvContatos.Close;
dm.rvContatos.ProjectFile:='C:\BD\relatorios\relatorio';
DM.rvContatos.SelectReport('Relatorio',false);
dm.rvContatos.Open;
dm.rvContatos.Execute;
end
else
if rbRelCompleto.Checked then
begin
dm.rvContatos.Close;
dm.rvContatos.ProjectFile:='C:\BD\relatorios\rel_simples';
DM.rvContatos.SelectReport('Rel_simples',false);
dm.rvContatos.Open;
dm.rvContatos.Execute;
end;
end; |
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
