|
|
Postada em 06/01/2005 23:25 hs
Boa Noite: Possuo um banco de dados ACCESS 2000, acessado via DAO 3.6 Neste BD existe a tabela pendentes. Preciso fazer com o meu aplicativo emita um relatório pelo crystal 4.6 em um intervalo de datas. Tentei diversos exemplos mas não deram certo. Alguns aparecia o erro OVERFLOW. O sql já consegui preciso a rotina para o Crystal. Alguém poderia me ajudar. Já procurei em diversos sites alterando os exemplos para mim mas não deram certo. Não sei mais o que fazer. Conto com a ajuda dos amigos. Daniel/Porto Alegre-RS. |
|
|
|
|
|
|
|
Postada em 07/01/2005 07:47 hs
porque não tenta usar o data report do visual basic, se for usar posso te ajuar..pois tenho varios projetos rodando com iguais a esse...se optar pelo dta report me avise..posso te ajudar sem maiores problemas... Miro
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
Postada em 07/01/2005 08:11 hs
eu utilizo o crystal 6.0, e para fazer filtro eu uso a propriedade selectionformula. exemplo de filtro por cliente e vencimento: .SelectionFormula = "(({R~Relcrecp.Codigo do cliente} = " & Str$(Vcliente) & ") AND ({R~Relcrecp.Vencimento} >= Date(" & Year(CDate(Vdata1)) & " , " & Month(CDate(Vdata1)) & " , " & Day(CDate(Vdata1)) & ")) AND ({R~Relcrecp.Vencimento} <= Date(" & Year(CDate(Vdata2)) & " , " & Month(CDate(Vdata2)) & " , " & Day(CDate(Vdata2)) & ")))" |
|
|
|
|
|
Postada em 07/01/2005 11:45 hs
Martini, Datas no Crystal 4.6 O Crystal não consegue resolver as funções CDATE, YEAR, MONTH, DAY Dim Ano1 Dim Mes1 Dim Dia1 Ano1 = Year(CDate(Vdata1)) Mes1 = Month(CDate(Vdata1)) Dia1 = Day(CDate(Vdata1)) Ano2 = Year(CDate(Vdata2)) Mes2 = Month(CDate(Vdata2)) Dia2 = Day(CDate(Vdata2)) .SelectionFormula = "(({R~Relcrecp.Codigo do cliente} = " & Str$(Vcliente) & ") AND ({R~Relcrecp.Vencimento} >= Date(" & Ano1 & " , " & Month1 & " , " & Dia1 & ")) AND ({R~Relcrecp.Vencimento} <= Date(" & Ano2 & " , " & Mes2 & " , " & Dia2 & ")))" |
|
|
|
DANIEL-POA-RS
não registrado
|
|
Postada em 07/01/2005 18:06 hs
Não deu certo! Estou usando o código abaixo. O que está errado? Dim DataIni, DataFim As String If txtDataIni = "" Then
MsgBox "Informe a data incial. ", vbCritical, "CONPROPEN - Tratamento de Erros..."
txtDataIni.SetFocus
Exit Sub
End If If txtDataFim = "" Then
MsgBox "Informe a data final.", vbCritical, "CONPROPEN - Tratamento de Erros..."
txtDataFim.SetFocus
Exit Sub
End If Screen.MousePointer = vbHourglass
DataIni = Format(txtDataIni, "yyyy,mm,dd")
DataFim = Format(txtDataFim, "yyyy,mm,dd")
Dim rptData As String
' formula a ser usada
rptData = "{Pendentes.Data}"
Dim rptSelecao As String
rptSelecao = rptData & " in Date(" & DataIni & ") to Date (" & DataFim & ")"
'Imprime o relatorio
rptRelatório4.ReportFileName = App.Path & "egistros.rpt"
rptRelatório4.Connect = ";PWD=DRS03111972;"
rptRelatório4.DataFiles(0) = App.Path & "CONPROPEN.mdb"
rptRelatório4.WindowTitle = "CONPROPEN - Relatório de Processos Pendentes"
rptRelatório4.SelectionFormula = rptSelecao
rptRelatório4.WindowState = crptMaximized
rptRelatório4.Action = 0
Screen.MousePointer = vbDefault |
|
|
|
|
|
Postada em 07/01/2005 18:46 hs
Daniel, No Crystal 4.6 vc tem q especificar o q é ano, mês e dia Date(" & Ano & "," & Mes & "," & Dia & ") "{Pendentes.Data} >= Date(" & Ano & "," & Mes & "," & Dia & ") And "{Pendentes.Data} <= Date(" & Ano & "," & Mes & "," & Dia & ") Se vc fizer como o exemplo q envie anteriormente vai funcionar! Abs, |
|
|
|
|
