Ir para conteúdo
Fórum Script Brasil
  • 0

Quickreport!


rjcerri

Pergunta

Estou usando o componente qrgroup, quickreport, estou trabalhando com duas tabelas um tem o nome,receitas,visitas,objetivo do medico e na outra tem nome,produtos essa tabela fica assim

medico1 sabonete

medico1 shampoo

medico1 creme

medico2 filtro

medico3 creme

medico3 sabonete

tem como aparecer assim no quickreport?

nome receitas visitas objetivo produtos

fulano 20 10 3 sabonete,shampoo

creme

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Você vai ter que ter assim:

Table 1

Detail : ligado a tabela que tem :

nome,receitas,visitas,objetivo do medico

Table2

Subdatail : ligado a outa tabela que tem :

nome,produto

Assim você faz a pesquisa na Query da Tab1e1 e no Data Source que está ligado a ela no evento DataChange coloque o código para localizar os produtos da Table2 apartir da MEDICO.

Assim quando gerar os relatorios você vai lista o médico e os produtos deles irão ser listados logo abaixo exe:

João

Sabonete

Shampo

Maria

Condicionador

Sabonete

Não esqueça de ligar o quickrep a Table1 a Principal.

Acho que é isso, certo mesmo é testando e tentando até conseguir.

valeu.

Tbaiano

Link para o comentário
Compartilhar em outros sites

  • 0

Voce pode fazer com que os ítens aparecam como desejado e nem precisa usar um qrgroup. Apenas um qrband do tipo rbdetail.

1 - Coloque um datasource e linque a tabela1 a esse.

2 - Linque a tabela2 à tabela1 (mastersource)

3 - (qrlabel1)

coloque um qrlabel, defina as seguintes propriedades:

Autosize := false

Autostrcht := true;

WordWrap := true;

Defina width para o tamanho desejado e deixe o height suficiente para apenas uma linha (deixe o padrão que vem da paleta);

Voce pode colocar esse qrlabel à frente ou abaixo do qrdbtext como o nome do médico, ao sue desejo.

4 - No evento beforeprint do qrband, escreva o seguinte código

Var texto : String;

begin

Texto := '';

With Tabela2 do

begin

First;

While not eof do

begin

If Texto <> '' then texto := texto+', ';

Texto := Texto + FieldByName('Nome do campo do produto).AsString;

next;

end;

Qrlabel1.Caption := texto;

end;

end;

5 - Se voce quiser separar um médico de outro, dando a impressão de grupo,

defina a propriedade da qrband.haschild como true e coloque um qrshape com uma linha horizontal na childband.

Simples e funciona perfeito. O resto é com a sua criatividade.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...