Oi Pessoal!
Tenho uma aplicação em Visual Basic, com crystal 7.0, Com bases de dados em SQL/MSDE.
Desde que instalei a aplicação que ele está a funcionar bem, mas agora que chegou o mes 12, ele não o abre, dá sempre o Erro "534", se eu fize uma selecção de datas tipo: de (2006,11,01) Até (2006,11,30) ele funciona perfeitamente, mas se fizer de (2006,12,01) Até (2006,12,31) ele dá aque le erro que já descrevi em cima!!
Já alguém teve esse problema??Será que preciso de alguma DLL ou Ocx diferente, se tiver a trabalhar no comdor onde foi desenvolvida a aplicação funciona perfeitamente, alguém sabe pq???
Agradeço se me puderem ajudar, um abraço!!

--------------------------------------------------------------------------------

data1 = Format(TDBDate1(0).value, "yyyy,mm,dd")
data2 = Format(TDBDate1(1).value, "yyyy,mm,dd")
'O Linkar BD vai mudar a consulta numa View que tenho Criada só para relatorios (WGG_Link)
Linkar_BD "SELECT Ma.SaldoAnt, Ma.DataMapa, Ma.NumeroNIPCCliente, Ma.NomeCliente, Ma.CodigoRecebiment, Ma.ValorSIVA, Ma.Imposto, Ma.ValoresExtras, Ma.Utilizador, Ma.CodDesp, Ma.ValorDesp, Sal.Data, Sal.SaldoAnt AS SaldoAnt1, Sal.saldo FROM WINGabiGest.dbo.TblMapaCaixaDiario Ma FULL OUTER JOIN WINGabiGest.dbo.TblSaldoCaixa Sal ON Ma.DataMapa = Sal.Data
'Aqui é atribuido o nome do relatorio
NovoRelatorio (RfileName), "WGG_Link"
'PJ é o numero do relatorio
'Esta é a seleccao, se aqui for escolhida a data de dezembro ele dá o tal erro
PESetSelectionFormula PJ, "{TblMapaCaixaDiario.DataMapa} >= Date(" & data1 & ") and {TblMapaCaixaDiario.DataMapa} <= Date(" & data2 & ")"
PESetFormula PJ, "empresa", "'" & TDados.NEmpresa & "'" & Chr$(0)
rc = PEOutputToWindow(PJ, "Relatório", 50, 50, 500, 700, 12582912 Or 8388608 Or 16777216 Or 65536 Or 524288 Or 131072, preview.hwnd)
PESetWindowOptions PJ, wo
If rc <> 1 Then
    MsgBox Str(PEGetErrorCode(PJ)), , "PEOutputToWindow"
    Unload preview
Else
    rc = PEStartPrintJob(PJ, True)
    If rc <> 1 Then
        MsgBox Str(PEGetErrorCode(PJ)), , "PEStartPrintJob"
        Unload preview
    End If
End If
PEClosePrintJob (PJ)
PECloseEngine
*******************************
Já agora, alguém sabe como é que posso mudar o nome do servidor??mudando de computador para computador??
Criei os relatorios no servidor "A", mas se depois instalar no Servidor "B", ou "C",etc ele já não funciona, acho que é por causa do servidor.

Um abraço e obrigado...