Chamar Relatorio do Crystal 9 Pelo VB 6


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Chamar Relatorio do Crystal 9 Pelo VB 6

ventana

SANTOS
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2007 18:33 hs

Boa Noite Amigos

Eu uso o Crystal 7 e agora estou mudando para o Crystal 9.Acontece que aparece a mensagem de erro "Unable To Load Report" ou erro "20525".

Isso ocorre na linha dentro do VB6 em que mando abrir a janela com o relatorio do Crystal.

FrmPrincipal.CstRelatorio.Action = 1

Detalhe com o Crystal 7 nada acontece e o relatorio funciona perfeitamente.Sera que tem um outro jeito de acionar o relatorio.

E a proposito, alguem sabe o que significa o erro 20998, pois eu nao consigo encontrar o significado desse erro.Tirando o problema citado acima eu tenho uma rotina que gera graficos no Crystal e somente quando eu vou gerar os graficos aparece esse erro 20998, entretanto ele ocorre apenas em algumas maquinas mas em outras os graficos sao gerados normalmente.

Estao dizendo que o problema esta no meu programa mas se fosse isso o erro ocorreria em todas as maquinas e nao apenas em algumas.Na minha opiniao isso e algum problema do Windows mas e agora para eu provar isso.

Bem obrigado a todos e um abraco

silvio
não registrado

ENUNCIADA !

Postada em 25/10/2007 16:38 hs

Para o Crystal Reports 9 use o codigo abaixo:

Private Sub CmdProgress_Click()
Dim Class
Dim txtEmpresa
Dim txtFilial
Dim Nomeprog
Dim txtTipi
Dim txtTipf
Dim txtData
Dim txtData1

If Status = 0 Then Class = "0"
If Status = 1 Then Class = "1"

If Combo1.ListIndex <> -1 Then
   txtCodEmp.Text = Combo1.ItemData(Combo1.ListIndex)
   txtEmpresa = Combo1.Text
Else
   MsgBox "Empresa Não Selecionada", vbCritical, "A T E N Ç Ã O"
   GoTo sai
End If

If List2.ListIndex <> -1 Then
   txtCodFil.Text = List2.ItemData(List2.ListIndex)
   txtFilial = List2.Text
Else
   MsgBox "Filial Não Selecionada", vbCritical, "A T E N Ç Ã O"
   GoTo sai
End If

If List1.ListIndex <> -1 Then
   txtCodCli.Text = List1.ItemData(List1.ListIndex)
   txtFilial = List1.Text
Else
   MsgBox "Cliente Não Selecionado", vbCritical, "A T E N Ç Ã O"
   GoTo sai
End If

'txtCodEmp.Text = FormataZero_Esquerda(txtCodEmp.Text, "000")
'txtCodFil.Text = FormataZero_Esquerda(txtCodFil.Text, "0000")

txtData = DateBox1
txtData1 = DateBox2

If txtData = "" Then
   MsgBox "Data Inicial Inválida", vbCritical, "A T E N Ç Ã O"
   GoTo sai
End If
If txtData1 = "" Or txtData > txtData1 Then
   MsgBox "Data Final Inválida", vbCritical, "A T E N Ç Ã O"
   GoTo sai
End If

Nomeprog = "c:
elvb6
pt_feital
elrodr.rpt"

   CrystalReport1.Formulas(0) = "DataFinal =" & _
   Format$(txtData1, "Da     e(yyyy,mm,dd)")

   CrystalReport1.Formulas(1) = "DataInicial =" & _
   Format$(txtData, "Da     e(yyyy,mm,dd)")

   CrystalReport1.ParameterFields(0) = "Cliente;" & txtCodCli & ";true"
   CrystalReport1.ParameterFields(1) = "Class;" & Class & ";true"
   CrystalReport1.ParameterFields(2) = "Empresa;" & txtCodEmp & ";true"
   CrystalReport1.ParameterFields(3) = "Filial;" & txtCodFil & ";true"

   If vdsaida = 0 Then CrystalReport1.Destination = crptToWindow
   If vdsaida = 1 Then CrystalReport1.Destination = crptToPrinter
   CrystalReport1.ReportFileName = Nomeprog
   CrystalReport1.Connect = ";PWD = am10lx"
   CrystalReport1.Action = 1

sai:
   List1.Visible = False
   List1.Clear
    End Sub

Fred
não registrado

Postada em 19/11/2009 09:49 hs

Error 20998

Correção:

O Problema se resolve quando vc coloca a o arquivo sscsdk80.dll no system32 e pronto.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR