ERRO UNABLE TO LOAD REPORT 20525 - CRYSTAL10

FROSSETTO 24/08/2010 18:11:39
#351147
NO CRYSTAL 8 A CHAMADA QUE FAÇO NO VB6 ESTA ABAIXO, O QUE MUDA PARA O CRYSTAL 10 ?

crptPedc.ReportFileName = App.Path & [Ô]ptpedc.rpt[Ô]
crptPedc.SelectionFormula = [Ô]{pedcli1.pedido} = [ô][Ô] & txtPedido & [Ô][ô][Ô]
crptPedc.DiscardSavedData = True
crptPedc.WindowShowPrintSetupBtn = True
crptPedc.Action = 1
XXXANGELSXXX 29/12/2010 08:14:59
#360593
Muda tudo praticamente. 
   
 Set crxRpt = crxApp.OpenReport(App.Path & [Ô]\RelatoriosCrystalptCliCidades.rpt[Ô])
        crxRpt.Database.Tables(1).SetLogOnInfo [Ô]MyDSNCRM[Ô], BASEDEDADOS, USUARIO, SENHA
        Set crxTables = crxRpt.Database.Tables
        For Each crxTable In crxTables
            With crxTable
                .Location = .Name
            End With
        Next

        sCriterio = [Ô][Ô] & [Ô]{cadpessoascontato.contprincipal}=1[Ô]
        If txtCidade.Text <> [Ô][Ô] Then sCriterio = sCriterio & [Ô] and {cadpessoasendereco.endcidade}=[ô][Ô] & txtCidade.Text & [Ô][ô][Ô]
        CRViewer.ReportSource = crxRpt
        crxRpt.RecordSelectionFormula = sCriterio
        CRViewer.ViewReport
        CRViewer.Zoom 80
Tópico encerrado , respostas não são mais permitidas
Voltar