DATAREPORT

BASSO 29/01/2015 18:02:31
#444119

Estou tendo problemas com relatório datareport as vezes ele roda normal mas as vezez da erro.O provedor de dados ou outro serviço retornou um status E_FAIL

Private Function Impressao()
Dim Nome As String
Dim Fone As String
Dim Celular As String
Dim CondPG As String
Dim MeioPG As String
Dim Observacao As String
Dim Subtotal As String
Dim Desconto As String
Dim Total As String
Dim CodVend As String
Dim NomeVend As String
Dim DATA As String

If Consulta.State = 1 Then
Consulta.Close
End If

[ô] Comandos de ativação da conexão.
Comando.ActiveConnection = Conexao
Comando.CommandType = adCmdText
Comando.CommandText = [Ô]Select C.RAZAO_NOME, C.FONE, C.CELULAR, D.ID_PRODUTO, P.DESCRICAO, D.QTDE, [Ô] _
& [Ô]D.VLR_UNITARIO, O.VLR_TOTAL , 0.DATA_ORCAMENTO,[Ô] _
& [Ô]O.DESCONTO, O.DATA_ORCAMENTO, P.UNIDADE, D.QTDE * D.VLR_UNITARIO AS TOTALPROD, O.ID [Ô] _
& [Ô]From CLIENTES AS C inner Join ORCAMENTO_CAB AS O on C.ID=O.ID_CLIENTE [Ô] _
& [Ô]inner Join ORCAMENTO_DET AS D on O.ID=D.ID_ORCAMENTO [Ô] _
& [Ô]inner join PRODUTOS AS P on D.ID_PRODUTO=P.ID Where O.ID = [Ô] & txtCodVenda.Text
Comando.Execute
Consulta.CursorLocation = adUseClient
Consulta.Open Comando
Set RelOrcamento.DataSource = Consulta
RelOrcamento.DataMember = [Ô][Ô]
Nome = Consulta(0) [ô]************ERRO INDICADO*********** ele retorna [ô][ô] [Ô]
Fone = Consulta(1)
Celular = Consulta(2)
[ô]CodVend = Consulta(0)
[ô]NomeVend = Consulta(15)
DATA = Consulta(8)

[ô] Criar na Section2
With RelOrcamento.Sections([Ô]Section2[Ô]).Controls
.Item(2).Caption = Consulta(0)
.Item(4).Caption = Consulta(1)
.Item(6).Caption = Consulta(2)
.Item(17).Caption = Consulta(10)
[ô] .Item(19).Caption = NomeVend
[ô] .Item(18).Caption = Consulta(9) [ô] label22 Vendedor
.Item(20).Caption = Consulta(13)
End With

[ô] Criar na Section1
With RelOrcamento.Sections([Ô]Section1[Ô]).Controls
.Item(1).DataField = Consulta(3).Name [ô] codigo
.Item(2).DataField = Consulta(4).Name [ô]Descrição
.Item(3).DataField = Consulta(5).Name [ô]Qtde
.Item(4).DataField = Consulta(6).Name [ô]Valor Unit.
.Item(5).DataField = Consulta(12).Name [ô]Valor Total Prod.
.Item(6).DataField = Consulta(11).Name [ô]Embalagem
End With

[ô]CondPG = Consulta(8)
[ô]MeioPG = Consulta(9)
[ô]Observacao = Consulta(10)
Subtotal = Format(Consulta(7), [Ô]R$ ##,##0.00[Ô])
Desconto = Format(Consulta(9), [Ô]R$ ##,##0.00[Ô])
Total = Format(Consulta(7), [Ô]R$ ##,##0.00[Ô])

With RelOrcamento.Sections([Ô]Section5[Ô]).Controls
[ô].Item(2).Caption = CondPG
[ô].Item(5).Caption = MeioPG
[ô].Item(7).Caption = Observacao
.Item(13).DataField = Consulta(12).Name
.Item(10).Caption = Desconto
.Item(12).Caption = Total
End With

RelOrcamento.Sections([Ô]Section4[Ô]).Controls.Item(6).Caption = Format(Now, [Ô]dd/mm/yyyy - hh:mm[Ô])
[ô]Atribui um campo para servir de contador no relatório.
RelOrcamento.Refresh
RelOrcamento.Show vbModal
Consulta.Close

End Function