RELATORIO POR DATA

USUARIO.EXCLUIDOS 23/12/2003 01:38:20
#2124
Preciso apresentar um relatório de vendas filtrando um intervalo de datas.
Ex.:
entre 10/10/2000 e 10/10/2003

ao clicar no botão imprimir abra a tela do crystal somente com o que foi vendido neste intervalo.
agradeço desde já.
USUARIO.EXCLUIDOS 23/12/2003 09:23:40
#2145 Resposta escolhida
O BRUNOMACHADO esta certo, porém errou em um detalhe:
Antes de fazer crystal.Action = 1, faça isso ...

Crystal.SelectionFormula = {Tabela.CampoData} = "10/12/2000" and {Tabela.CampoData} = "10/10/2003"

Segue um exemplo de código:

...
Dim Selecao as String
Dim sPerIni As String
Dim sPerFin As String

sPerIni = txt_DtInicial.Text & " " & txt_HoraInicial.Text
sPerFin = txt_DtFinal.Text & " " & txt_HoraFinal.Text

cr_HistPosicoes.ReportFileName = App.Path & "pts\HistoricoPosicoes.rpt"
cr_HistPosicoes.Connect = str_Connection
'cr_HistPosicoes.RetrieveDataFiles
'cr_HistPosicoes.RetrieveLogonInfo

Selecao = ""
Selecao = "{et_position.dt_gmt} = cdate(""" & sPerIni & """)" & " and {et_position.dt_gmt} = cdate(""" & sPerFin & """)"
Selecao = Selecao & " and {et_position.module_id} = " & lModuleID & ""

cr_HistPosicoes.SelectionFormula = Selecao

sPerIni = format(sPerIni, "dd/mm/yyyy hh:mm:ss")
sPerFin = format(sPerFin, "dd/mm/yyyy hh:mm:ss")

cr_HistPosicoes.Formulas(0) = "PerIni = " & Chr(34) & sPerIni & Chr(34)
cr_HistPosicoes.Formulas(1) = "PerFin = " & Chr(34) & sPerFin & Chr(34)
cr_HistPosicoes.Formulas(2) = "Veiculo = " & Chr(34) & sVeic & Chr(34)
cr_HistPosicoes.Action = 1
...
USUARIO.EXCLUIDOS 23/12/2003 12:26:57
#2201
Ahhh ... falei q estava errada e nem arrumei... hheh !!!
Segue a linha arrumada:
Crystal.SelectionFormula = "{Tabela.CampoData} = "10/12/2000" and {Tabela.CampoData} = "10/10/2003""

agora esta certo !!!

Falows.
USUARIO.EXCLUIDOS 23/12/2003 14:09:44
#2210
Nossa!!!!! Agora q percebi !!!!!
é os sinais de maior que e menor que não saem no site ...

é, desculpe ....
Tópico encerrado , respostas não são mais permitidas
Voltar