VB6 X CRYSTAL REPORTS 2008

GFASSIO 05/03/2010 09:14:37
#336148

PEPPERRJ, eu estou usando o CR 8.5...

E não atualiza...porque será?
Vc usa por ADO ou DAO?

Abraços e obrigado pela ajuda!

MSMJUDAS 05/03/2010 16:56:05
#336194

A função que eu uso para visualizar os relatórios é essa, com opção de filtro:

Public Sub MostraRelatorio(NomeRelatorio, Filtro, Opcao)
On Error GoTo TrataErro
Screen.MousePointer = vbHourglass

crxapplication.LogOnServer [Ô]pdsodbc.dll[Ô], [Ô]SERVIDOR[Ô], [Ô]BANCO_DE_DADOS[Ô], [Ô]USER_DO_BANCO[Ô], [Ô]SENHA_DO_BANCO[Ô]
Set report = crxapplication.OpenReport(App.Path & [Ô]\[Ô] & NomeRelatorio)

report.RecordSelectionFormula = Filtro

If Opcao = 1 Then [ô] visualizar
FrmVisualizador.Show (1) [ô] VISUALIZA O RPT
Else
report.PrintOut False, 1, True [ô] ENVIA DIRETO PRA IMPRESSÃO
End If

Screen.MousePointer = vbDefault
Exit Sub
TrataErro:
MsgBox [Ô]Não foi possível gerar o documento para visualização![Ô], vbCritical, [Ô]Aviso[Ô]
MsgBox [Ô]Erro Nº: [Ô] & Err.Number & [Ô] - Descrição: [Ô] & Err.Description & [Ô] - Source: [Ô] & Err.Source & [Ô][Ô], vbCritical, [Ô]Aviso[Ô]
Screen.MousePointer = vbDefault
Exit Sub
End Sub

Pra chamar:

MostraRelatorio [Ô]CLIENTES.rpt[Ô], [Ô]{CLIENTES.CLI_CODIGO} = [Ô] & val(TxtCodigo.Text), 1

GFASSIO 10/03/2010 13:21:34
#336538

Olá MSMJUDAS, deu certinho o filtro, fiz como vc falou!

Mas agora tenho uma outra dúvida, como faço para passar valor para uma fórmula. Ex:

Crio uma fórmula no report que vai receber um determinado valor que eu vou passar pela aplicação.
No crystal 4.6 eu passo assim:
CrystalReport1.Formulas(0) = [Ô]DataI=[ô][Ô] & data_inicial.Text & [Ô][ô][Ô]
CrystalReport1.Formulas(1) = [Ô]DataF=[ô][Ô] & data_final.Text & [Ô][ô][Ô]


E pra ordenar como faço?
no 4.6 = CrystalReport1.SortFields(0) = [Ô]+{tabela.campo}[Ô]

Como que eu faço no 8.5?

Mas uma vez muito obrigado pela ajuda !