Postada em 11/12/2012 21:34 hs
Alguém tem uma apostila ou um codigo fonte de exemplo. estou precisando criar relatórios no CR11 até ai tudo bem, o problema é como chamar ele e usar Filtros. Alguém sabe como fazer?
'load do form
Dim Aplicacao As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = Aplicacao.OpenReport(CaminhoRel & ArqRelatorio)
Report.RecordSelectionFormula = StringSQL
Call Report.PrinterSetup(0) 'Opção para selecionar a impressora
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
'botão chamar relatorio
ArqRelatorio = " este.rpt"
'StringSQL = "({tabParadasDiaria.Data_Inicial} > date(" & FechaIni & ") or {tabParadasDiaria.Data_Inicial} = date(" & FechaIni & ")) and {tabParadasDiaria.Data_Inicial} < date(" & FechaFin & ") or {tabParadasDiaria.Data_Inicial} = date(" & FechaFin & "))"
frmRelatorio.Caption = "Relatório de Paradas"
frmRelatorio.Show
a minha formula de StringSQL nao faz a busca por data.
|
