airton.ferreira

Olá Flechaus, boa tarde! Agradeço o retorno. Demorei um pouco para testar. De qualquer modo também não funcionou. O erro persiste. Será que é algo referente a service pack do Crystal Reports 9? Abraços

Boa tarde! Estou com o erro abaixo tanto no Crystal quanto no VB6 quando tento chamar o relatório. O erro ocorre nos campos data. Seria falta de atualização do Crystal 9? A versão do Crystal é a 9.2.0.448. Failed to open a rowset. Details: ADO Error Code: 0x8000ffff Source: IBOLE.TIBOLECommand Description: Dynamic SQL Error SQL error code: -804 Function unknown CONVERT Abaixo o código utilizado: Private Function imprimeAuditoria(a As Integer, inicio As String, fim As String, acao As Integer, filtro As String) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' CHAMA RELATÓRIO EXTERNAMENTE ' ' OBS1: NÃO ESTÁ FUNCIONANDO COM FILTRO DE DATA - ERRO NO CRYSTAL REPORTS 9 ' ' OBS2: SUSPENSO PROVISORIAMENTE ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim crapp As CRAXDDRT.Application Dim oRpt As CRAXDDRT.Report Dim arqExp As String Set crapp = New CRAXDDRT.Application Set oRpt = crapp.OpenReport(relato & "\" & "AuditoriaLog_v01.rpt", 1) Select Case filtro Case "4" arqExp = "TipoUsuario" inicio = Format(inicio, "mm/dd/yyyy") fim = Format(fim, "mm/dd/yyyy") oRpt.RecordSelectionFormula = "{viewlogacao.log_data} >= cDate('" & inicio & "') and {viewlogacao.log_data} <= cDate('" & fim & "') " oRpt.FormulaFields.GetItemByName("acao").Text = Chr(34) + cmbAcao.Text + Chr(34) oRpt.FormulaFields.GetItemByName("usocod").Text = Chr(34) + cmbColaborador.Text + Chr(34) oRpt.FormulaFields.GetItemByName("datainicio").Text = Chr(34) + acdateInicio.Text + Chr(34) oRpt.FormulaFields.GetItemByName("datafim").Text = Chr(34) + acdateFim.Text + Chr(34) 'VISÃO DO RELATÓRIO crvAuditoria.ReportSource = oRpt crvAuditoria.PrintReport crvAuditoria.ViewReport 'EXPORTAÇÃO EM PDF oRpt.ExportOptions.DestinationType = crEDTDiskFile oRpt.ExportOptions.DiskFileName = relato & "\" & arqExp & ".pdf" oRpt.ExportOptions.FormatType = crEFTPortableDocFormat oRpt.Export False End Select End Function