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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Imprimir com mais de um parametro para pesquisa.
Supreme Being
Pontos: 2843
QUALQUER LUGAR NO QUADRANTE DA
.. - GALÁXIA.
ENUNCIADA !
Postada em 20/01/2006 20:06 hs            
Para imprimir um relatório usando uma pesquisa entre datas, uso essa fórmula, que funciona beleza.
Cr1.ReportFileName = App.Path & "vendas.rpt"
Cr1.SelectionFormula = "{vendas.datavenda} >= date(" & Format(TxtDataInicialVendas.Text, "yyyy,mm,dd") & ") and {vendas.datavenda} <= date(" & Format(TxtDataFinalVendas.Text, "YYYY,MM,DD") & ")"
Cr1.Destination = crptToWindow
Cr1.RetrieveDataFiles
Cr1.Action = 1
 
Para imprimir um relatório usando uma pesquisa que contenha um determinado nome dentro de um TextBox, uso essa fórmula, que funciona beleza.
If OptFraternidadeClientes.Value = True Then
    Cr1.ReportFileName = App.Path & "clientes.rpt"
    Cr1.SelectionFormula = "{clientes.associacao}='" & (TxtAssociacaoClientes.Text) & "'"
    Cr1.Destination = crptToWindow
    Cr1.RetrieveDataFiles
    Cr1.Action = 1
End If
 
Agora pergunto:
Como fazer uma pesquisa para imprimir usando as duas consultas acima, digo, listar entre as datas somente o que contiver escrito no TextBox?
 
Ex: coloco no TxtDataInicial = 20/01/2006 e no TxtDataFinal 20/01/2006 e no TxtSituação = Pago.
 
Como fazer (formula) para o relatório me mostrar os registros "Pago" somente nesta data ou neste intervalo de data?
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 21/01/2006 05:11 hs            
Veja este exemplo, que estou usando um intervalo entre duas datas mais dois campos:
Private Sub CmdFicha_Click()
On Error GoTo Trata_Erro

Dim lFormulaF   As String
'Captura data inicial
lFormulaF = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormulaF = lFormulaF & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormulaF = lFormulaF & " AND {bolão.Nome} = '" & Nome.Text & "'"
lFormulaF = lFormulaF & " and {bolão.Local} ='" & LocalC.Text & "' "
Me.MousePointer = 11
    Crp.DataFiles(0) = App.Path & "olao.mdb"
    Crp.ReportFileName = App.Path & "Ficha.rpt"
    Crp.SelectionFormula = lFormulaF
    Crp.WindowState = crptMaximized
    Crp.Destination = crptToWindow
    Crp.Action = 1
Me.MousePointer = 0
Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
Anjo Miguel
PAULISTA
PE - BRASIL
ENUNCIADA !
Postada em 05/03/2008 02:27 hs            
Qual o componente para utilizar o "Cr1" ?
   
JOM
BOM JESUS DA LAPA
BA - BRASIL
Postada em 05/03/2008 19:06 hs            
Cr1.SelectionFormula  "{vendas.datavenda} >= date(" & Format(TxtDataInicialVendas.Text, "yyyy,mm,dd") & ") and {vendas.datavenda} <= date(" & Format(TxtDataFinalVendas.Text, "YYYY,MM,DD") &  " and "{clientes.associacao}='" & (TxtAssociacaoClientes.Text) & "'"
)"
Dá pra fazer isso? desconheço como vc gera este relatorio, mas numa sql ficaria + ou - assim
     
RARS
AMERICO BRASILIENSE
SP - BRASIL
ENUNCIADA !
Postada em 07/03/2008 17:09 hs            
Supreme...
VC tbm pode usar um array de formulas no crystal em vex de concatena elas
   
Marcelo
não registrado
ENUNCIADA !
Postada em 24/07/2008 21:33 hs   
Alguém pode me ajudar a fazer a formula no selectionformula  filtrando por data igual amigo fez acima porém ordenar por data, tentei usar o order by mas não funcionou. Alguém tem alguma idéia de como eu posso fazer a ordenação por data
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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