RELATORIOS COM INTERVALO DE DATAS NAO FUNCIONAM NO
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!!
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!!
Cara... qual a descrição do erro???
pelo número não me recordo de nada...
mas tente conferir as configurações regionais da máquina... formato de data, etc...
pelo número não me recordo de nada...
mas tente conferir as configurações regionais da máquina... formato de data, etc...
Mostre para nós sua string de conexão eseus parametros usados para fazer a pesquisa, assim fica um pouco mais facil de lhe ajudar.
Falow... T+
Falow... T+
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...
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...
Tópico encerrado , respostas não são mais permitidas