Erro Method Preview of object 'ICRReport' failed

[Leandro_Pirozzi]

Galera preciso de ajuda.

Quando clico para gerar o relatório no CR 8.5 ele exibe essa mensagem:

Segue o código.

Private Sub cmdprintadm_Click()
    
    If cbostatus.Text = Empty Then
        MsgBox "Selecione o status!", vbExclamation, "Advertência"
        Exit Sub
    ElseIf cboass.Text = Empty Then
        MsgBox "Selecione um Assessor!", vbExclamation, "Advertência"
        Exit Sub
    ElseIf datinicial.Value = Empty Then
        MsgBox "Selecione a data inicial!", vbExclamation, "Advertência"
        Exit Sub
    ElseIf datfinal.Value = Empty Then
        MsgBox "Selecione a data final!", vbExclamation, "Advertência"
        Exit Sub
        
    Else

        SQL = "Select A.EMPRESA, A.ASSESSOR, A.CONTATO, A.CUSTOA, A.DATAPRO, A.STATUS, A.OBS, A.DATPROXCONT, A.MOTIVO, A.EQUIPE, B.NOMCONT, B.NOMEMPRESA, B.CARGOCONT, B.EMAILCONT, B.TELCONT From CONTATOS_PROPOSTA A, CONTATOS_CONTATO B Where A.ASSESSOR = '" & cboass.Text & "' and A.DATAPRO BETWEEN '" & datinicial.Value & "' and '" & datfinal.Value & "' and A.STATUS = '" & cbostatus.Text & "' and A.EMPRESA = B.NOMEMPRESA and A.CONTATO = B.NOMCONT order by A.DATAPRO"


    Set TabRelatorio = New ADODB.Recordset
    TabRelatorio.CursorLocation = adUseClient
    TabRelatorio.Open SQL, gDB, adOpenDynamic, adLockReadOnly
       
    StrRelat = App.Path & "\PropostaADM.rpt"
    Set CRApp = New CRPEAuto.Application
    Set Report = CRApp.OpenReport(StrRelat)
    Set ReportDb = Report.Database
    Set ReportRss = ReportDb.Tables
    Set ReportRs = ReportRss.Item(1)
    
    ReportRs.SetPrivateData 3, TabRelatorio
    [b]Report.Preview[/b] 'AQUI É EXIBIDO A MENSAGEM: Method Preview of object 'ICRReport' failed
    Screen.MousePointer = 0
        Exit Sub

 End If

End Sub

Quem puder ajudar agradeço.

No caso esse erro começou depois que mudei o tipo de dados do campo CUSTOA de Varchar2 para Number, pois preciso fazer um somatório dos valores.

[kuroi]

você mudou o tipo no banco de dados, mas você mudou dentro do relatorio tb??

[Leandro_Pirozzi]

você mudou o tipo no banco de dados, mas você mudou dentro do relatorio tb??

Opa, bom dia Kuroi.

então mudei sim, no banco e no .TTX.

Atualizei, mas ele exibe essa msg só porque mudei o tipo de dados.

alterei o codigo voltando pro campo anterior que era STRING e o relatório abriu certinho, mas não fez a soma devido ser STRING.

[kuroi]

leandro quando você muda no ttx você tem q adiciona-lo de novo no relatorio substituindo o antigo (não sei se verify database adianta), não adianta mudar so no arquivo .ttx.

toda vez q você adiciona o .ttx no relatorio, ele salva as configuracoes no .rpt, então mesmo q você altere dentro do .ttx, ele não atualiza o .rpt a não ser q você fala a atualizacao na mao com o .rpt aberto.

mesmo fazendo a atualizacao corretamente continua o erro??

[Leandro_Pirozzi]

leandro quando você muda no ttx você tem q adiciona-lo de novo no relatorio substituindo o antigo (não sei se verify database adianta), não adianta mudar so no arquivo .ttx.

toda vez q você adiciona o .ttx no relatorio, ele salva as configuracoes no .rpt, então mesmo q você altere dentro do .ttx, ele não atualiza o .rpt a não ser q você fala a atualizacao na mao com o .rpt aberto.

mesmo fazendo a atualizacao corretamente continua o erro??

Bom, acredito eu que tenha feito certo.

Primeira coisa foi o BD, tudo certinho.

Depois com o .rpt aberto eu mudei o o .ttx salvei ai no .rpt dei um refresh e depois entrei em Database/Verify Database ai ele abriu uma caixa de unmap e map ai selecionei o campo no formato novo que agora é Number.

ele automaticamente atualizou o que era antigo para o campo novo CUSTOPRO.

salvei direitinho e compilei o programa.

coloquei o breakpoint quando chegou no sql.

copiei e fui pro oracle, sem problema nenhum, mas quando chega na hora do Preview, ele simplesmente exibe a mensagem Method Preview of object 'ICRReport' failed

[kuroi]

é, ta estranho... o erro é somente "Method Preview of object 'ICRReport' failed ", não aparece escrito mais nd depois disso??

a ordem dos campos continuou a mesma depois da alteracao do .ttx?? porque a ordem dos campos no select tem q ser a mesma do .ttx.

sera q não tem nenhuma formula dentro do .rpt onde você esteja tentando acessar esse campo como texto??

cheque a sintaxe de todas as formulas pra ver se não da erro.

[Leandro_Pirozzi]

é, ta estranho... o erro é somente "Method Preview of object 'ICRReport' failed ", não aparece escrito mais nd depois disso??

a ordem dos campos continuou a mesma depois da alteracao do .ttx?? porque a ordem dos campos no select tem q ser a mesma do .ttx.

sera q não tem nenhuma formula dentro do .rpt onde você esteja tentando acessar esse campo como texto??

cheque a sintaxe de todas as formulas pra ver se não da erro.

É pior que agora ficou pior eu removi o ttx. e coloquei novamente, ai montei o rpt de novo.

To quase criando um novo .rpt so pra ver se vai.

Fórmula não existe nenhuma.

[Leandro_Pirozzi]

é, ta estranho... o erro é somente "Method Preview of object 'ICRReport' failed ", não aparece escrito mais nd depois disso??

a ordem dos campos continuou a mesma depois da alteracao do .ttx?? porque a ordem dos campos no select tem q ser a mesma do .ttx.

sera q não tem nenhuma formula dentro do .rpt onde você esteja tentando acessar esse campo como texto??

cheque a sintaxe de todas as formulas pra ver se não da erro.

É pior que agora ficou pior eu removi o ttx. e coloquei novamente, ai montei o rpt de novo.

To quase criando um novo .rpt so pra ver se vai.

Fórmula não existe nenhuma.

É Kuroi acabei apelando e criando um novo.

Adivinha só?

Na primeira compilação ele me gerou o relatório.

Detalhe usei o mesmo .ttx, apenas criei um .rpt novo.

Vai entender ne?

muito obrigado pela ajuda.