Imprimir com mais de um parametro para pesquisa.


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Imprimir com mais de um parametro para pesquisa.

Supreme Being

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

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