Postada em 04/04/2017 00:14 hs
Boa noite turma, podem me ajudar.
Estou usando o seguinte código, o problema é que ele não efetua o filtro informado
na instrução SQL. se eu eu usar a mesma instrução SQL no VB pra preencher um
Grid por exemplo, ele faz o Filtro certinho, somente no CRViwer do CR11 que nao faz o filtro.
'declaretion do form
Dim xCrystal As New CRAXDRT.Application
Dim xReport As CRAXDRT.Report
Dim XtbNotas As Recordset
Dim SQL As String
'botao gerar relatorio
Private Sub cmdRelatorio_Click()
'On Error GoTo ErrorHandler
If cmbTipoDocumento.Text = "" Then
USMsgBox "Favor Informar Tipo de Nota Fiscal, Entrada/Saída.", vbInformation, "Aviso"
cmbTipoDocumento.SetFocus
Exit Sub
End If
If IsDate(txtDataInicial.Text) = False Then
USMsgBox "Informe uma data válida.", vbInformation, "Aviso"
txtDataInicial.SetFocus
Exit Sub
End If
If IsDate(txtDataFinal.Text) = False Then
USMsgBox "Informe uma data válida.", vbInformation, "Aviso"
txtDataFinal.SetFocus
Exit Sub
End If
DataInicial = Format(txtDataInicial.Text, "yyyy/mm/dd")
DataFinal = Format(txtDataFinal.Text, "yyyy/mm/dd")
SQL = "select * from tabNotaEletronica where Codigo_emitente Like '" & Codigo_Emitente & "*' and Data_Emissao >= #" & DataInicial & "# and Data_Emissao <= #" & DataFinal & "# order by Data_Emissao Asc"
Set XtbNotas = db.OpenRecordset(SQL)
Set xReport = xCrystal.OpenReport(CaminhoRel & "Notas_Fiscais.rpt") 'OPEN OUR REPORT
xReport.DiscardSavedData 'CLEARS REPORT SO WE WORK FROM RECORDSET
xReport.database.SetDataSource XtbNotas 'LINK REPORT TO RECORDSET
frmVisualizar.CRViewer1.ReportSource = xReport 'LINK VIEWER TO REPORT
frmVisualizar.CRViewer1.Refresh
frmVisualizar.CRViewer1.ViewReport 'SHOW REPORT
frmVisualizar.USForm1.Caption = "Relatório de Notas Fiscais"
frmVisualizar.Show
XtbNotas.Close
ErrorHandler:
If Err.Number <> 0 Then
USMsgBox "Erro número: " & Str$(Err.Number) & vbCrLf & " Tipo do Erro: " & Err.Description, vbExclamation, "Erro"
End If
End Sub
|
