RELATORIO NO CRYSTAL REPORT 8.5
Bom dia galera do vbmania blz. Preciso de uma ajuda dos veras , tenho que criar um relatório no crystal report 8.5 para cada funcionário cadastrado do sistema e com seus dependente no mesmo relatório, uso duas tabelas TBLCADFUN E TBLDEPENDENTES, os dependente adiciono em um MSHFlexGrid onde são vinculados pelo código de cada funcionário. Ai vem à dúvida como juntar as duas tabelas em um mesmo relatório, estou enviando em anexo uma pequena demonstração do cadastro.
Agradeço ajuda de todos
Abraços
Agradeço ajuda de todos
Abraços
Cria um subrelatorio (Inserir Subreport). Que Banco de dados?
Existe duas opções que vc pode fazer: criar um SubReport, como o ROBIU disse ou inserir um Group no seu relatório, colocar os dados do funcionário na parte de Group e os dependentes nos Details.
USO BANCO DE DADOS ACCESS
Boa dia amigos criei SubReport, mais quando pesso para imprimir lista todos os dependente cadastro como faço para imprimir de acordo com cada funcionário. Exemplo Funcionário João seus dependente são Maycon e Simone, quando fizer um pesquisa para localizar esse funcionário e colocasse para imprimir, imprimisse seus dados e seus dependente junto, isso para cada funcionário. Segue código que chamo o relatório em PrintScreen de como está imprimindo.
Private Sub cmdImprimir_Click()
CrystalReport1.SelectionFormula = [Ô][Ô]
CrystalReport1.Destination = 0
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ReportFileName = App.Path + [Ô]\Relatórios\RelCadastro.rpt[Ô]
CrystalReport1.DataFiles(0) = App.Path + [Ô]\Banco\CADFUN.mdb[Ô]
CrystalReport1.SelectionFormula = [Ô]{TBLCADFUN.Nome}=[ô][Ô] & frmPrincipal.txtNome.Text & [Ô][ô][Ô]
End If
CrystalReport1.Action = 1
End Sub
Private Sub cmdImprimir_Click()
CrystalReport1.SelectionFormula = [Ô][Ô]
CrystalReport1.Destination = 0
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ReportFileName = App.Path + [Ô]\Relatórios\RelCadastro.rpt[Ô]
CrystalReport1.DataFiles(0) = App.Path + [Ô]\Banco\CADFUN.mdb[Ô]
CrystalReport1.SelectionFormula = [Ô]{TBLCADFUN.Nome}=[ô][Ô] & frmPrincipal.txtNome.Text & [Ô][ô][Ô]
End If
CrystalReport1.Action = 1
End Sub
Olá Pessoal alguém poderia mim uma força com esse problema.
Abraços
Abraços
Vc terá que ligar o seu SubReport com o Report principal, faça assim:
Clique com o direito em cima do seu SubReport e selecione: Change SubReport Links
Lá vc terá que informar o campo do Report principal em Field(s) to link to: (FUNCIONARIOS.FUN_CODIGO, por exemplo)
E selecionar o campo no seu SubReport em Subreport parameter field to use: (DEPENDENTES.FUN_CODIGO, por exemplo)
Clique com o direito em cima do seu SubReport e selecione: Change SubReport Links
Lá vc terá que informar o campo do Report principal em Field(s) to link to: (FUNCIONARIOS.FUN_CODIGO, por exemplo)
E selecionar o campo no seu SubReport em Subreport parameter field to use: (DEPENDENTES.FUN_CODIGO, por exemplo)
Tópico encerrado , respostas não são mais permitidas