ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

resolvido - impressao de relatorio agrupado usando rdprint

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jorgejlbd
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 28 de Fevereiro de 2005
Mensagens: 131

MensagemEnviada: Ter Mai 06, 2008 2:56 pm    Assunto: resolvido - impressao de relatorio agrupado usando rdprint Responder com Citação

oi amigos
estou tentando fazer um relatório agrupado usando RdPrint, sera que vc podem me ajudar

as tabelas são : produtos, grupoProd
produto: codprod, nomeProd, grupo , valor ...etc..
GrupoProd: codGrup, NomeGrupo ..

alguém pode me ajudar
abraço.....
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Ter Mai 06, 2008 3:33 pm    Assunto: Responder com Citação

primeiro vc deve selecionar os itens ja na ordem q vc precisa, por exemplo:

SELECT p.*, g.descricao AS grupo FROM produtos p
LEFT JOIN grupo g ON g.codigo = p.codgrupo
ORDER BY grupo, p.descricao

depois, vc cria uma variavel pra controlar o grupo:
Código:

procedure ...
var Grupo: String;
begin
   // selecione os dados aqui

   Grupo := 'xyz'; // SO PRA FICAR DIFERENTE

   while not Query1.Eof do begin

      if Query1Grupo.AsString <> Grupo then
         // imprima o grupo aqui
     
      // imprima os dados do produto aqui
     
      Grupo := Query1Grupo.AsString;  // pra trocar de grupo
      Query1.Next;
   end;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jorgejlbd
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 28 de Fevereiro de 2005
Mensagens: 131

MensagemEnviada: Sex Mai 23, 2008 5:33 pm    Assunto: impressao de relatorio agrupado usando rdprint Responder com Citação

valeu amigos ..
ate...a proxima...desculpe a demora
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Automação Comercial Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB