USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Passar parametro para Sub report
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 16/12/2004 16:08 hs            
Tenho 4 arquivos ( contas a pagar, contas pagas, contas a receber e contas recebidas). Tenho que fazer um relatorio que mostre em um periodo (10/10/2004 a 11/11/2004) todos os lancamentos. resolvi tentar fazer 4 subrelatorios, um para cada arquivo. O problema e que tenho que passar a formula (do filtro 10/10/2004...) para os subrelatorios e cada um acessar o seu respectivo arquivo Emoções. O meu problema esta na passagem da formula (do filtro) para cada sub.
 
O sub contas a pagar vai ter como formula {contas_a_pagar.data} > data and {contas_a_pagar.data} < data.
O sub contas recebidas vai ter como formula {contas_recebidas_pagar.data} > data and {contas_recebidas.data} < data.
 
Alguem tem alguma ideia.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 16/12/2004 17:41 hs         
Quatro arquivos? vc quer dizer quatro tabelas? ou são arquivos do tipo texto mesmo?
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 17/12/2004 09:20 hs            
Kerplunk. Resolvi de outra forma. Passei para cada sub um filtro diferente. Assim
 
' Passa para o sub do contas a pagar
    Crystal_Printer.SubreportToChange = "contas_a_pagar"
    Crystal_Printer.SelectionFormula = "{contas_a_pagar.cod_filial} = " & Numero(Frm_monitor.stb_status.Panels(4).Tag) & aux & aux_id
'Passa para o sub do contas pagas
    Crystal_Printer.SubreportToChange = "contas_pagas"
    Crystal_Printer.SelectionFormula = "{contas_pagas.cod_filial} = " & Numero(Frm_monitor.stb_status.Panels(4).Tag) & aux & aux_id
'Passa para o sub do contas a receber
    Crystal_Printer.SubreportToChange = "contas_a_receber"
    Crystal_Printer.SelectionFormula = "{contas_a_receber.cod_filial} = " & Numero(Frm_monitor.stb_status.Panels(4).Tag) & aux & aux_id
.......
depois acho o relatorio. Facil Emoções
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página