VISUAL REPORT X

 Tópico anterior Próximo tópico Novo tópico

VISUAL REPORT X

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#470525 - 09/01/2017 19:07:33

WBUZZO
SAO PAULO
Cadast. em:Agosto/2012


 Anexos estao visíveis somente para usuários registrados

Amigos estou tentando gerar um relatório conforme figura anexa, mas, não sei como carregar dados de diversas tabelas, alguem tem domínio sobre a ferramenta Visual Report X?



#470537 - 09/01/2017 22:20:19

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
Olha, tem um projeto chamado "Relatório Multiplo" nos exemplos do VRX, é exatamente isso que vc quer.

Private Sub Relatorio_IniciarGrupo(ByVal Ordem As Byte)
    
    ' Ao iniciar o grupo principal define os recordset secundarios
    If Ordem = 1 Then
        ' Abre todos os RS cada um para cada conjunto de dados
        ' Na mesma ordem que estao os indices de DetTmp.
        ' Se quiser pode usar os registros do grupo principal para filtrar
        ' os dados dos recordsets secundários. Basta usar a referencia
        ' Relatorio.Recordset
        rds.OpenSec 0, "SELECT * FROM Estados ORDER BY Estado"
        rds.OpenSec 1, "SELECT * FROM IRRF ORDER BY Teto DESC"
        rds.OpenSec 2, "SELECT * FROM INSS ORDER BY Faixa DESC"
        ' Chama rotina que irá posicionar o grupo atual de acordo com
        ' o recordset que tiver registros
        rds.PosicionaRSAtual
    ElseIf Ordem = 2 Then
        ' Cada vez que um novo grupo secundario iniciar, ativa os controles
        ' de acordo desse grupo
        AtivaControles rds.RSAtual
    End If
    
End Sub




#470542 - 09/01/2017 23:19:48

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Porque você não faz uma consulta que use todas os campos de todas as tabelas? Ficaria muito mais simples

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#470575 - 10/01/2017 15:41:50

WBUZZO
SAO PAULO
Cadast. em:Agosto/2012


Citação:
:
Olha, tem um projeto chamado "Relatório Multiplo" nos exemplos do VRX, é exatamente isso que vc quer.

Private Sub Relatorio_IniciarGrupo(ByVal Ordem As Byte)
    
    ' Ao iniciar o grupo principal define os recordset secundarios
    If Ordem = 1 Then
        ' Abre todos os RS cada um para cada conjunto de dados
        ' Na mesma ordem que estao os indices de DetTmp.
        ' Se quiser pode usar os registros do grupo principal para filtrar
        ' os dados dos recordsets secundários. Basta usar a referencia
        ' Relatorio.Recordset
        rds.OpenSec 0, "SELECT * FROM Estados ORDER BY Estado"
        rds.OpenSec 1, "SELECT * FROM IRRF ORDER BY Teto DESC"
        rds.OpenSec 2, "SELECT * FROM INSS ORDER BY Faixa DESC"
        ' Chama rotina que irá posicionar o grupo atual de acordo com
        ' o recordset que tiver registros
        rds.PosicionaRSAtual
    ElseIf Ordem = 2 Then
        ' Cada vez que um novo grupo secundario iniciar, ativa os controles
        ' de acordo desse grupo
        AtivaControles rds.RSAtual
    End If
    
End Sub

Primeiramente muito obrigado pela ajuda, mas, o problema é que por não ter conhecimento sobre esse controle não consigo implementar a idéia.
Eu vi esse exemplo tentei implementa-lo, mas não consegui, aparentemente é simples porém não consegui.



#470576 - 10/01/2017 15:43:09

WBUZZO
SAO PAULO
Cadast. em:Agosto/2012


Citação:
:
Porque você não faz uma consulta que use todas os campos de todas as tabelas? Ficaria muito mais simples

Muito obrigado pela sugestão, mas, poderia me dar exemplo da sua idéia?



#470593 - 11/01/2017 00:23:32

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
pegue o exemplo, mude os selects e o nome dos campos dentro do reportx



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário