ERRO CRYSTAL REPORT 8.5
Pessoal,
Boa tarde!
Possuo a seguinte linha de código:
Dim mempresa As Long
mdata = InputBox([Ô]Digite a data do Caixa.[Ô], [Ô]Lançamentos[Ô])
mempresa = InputBox([Ô]Digite o Número da Loja.[Ô], [Ô]Lançamentos[Ô])
rptmenu.WindowTitle = [Ô]Relatório de Lançamentos[Ô]
rptmenu.ReportFileName = App.Path + [Ô]\Relatorios\Lancamento.RPT[Ô]
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[Ô] & mempresa & [Ô] AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
rptmenu.RetrieveDataFiles
rptmenu.Action = 1
Ao executar a rotina aparece a mensagem: A string is required here,
No banco de dados o campo IdEmpresa é numérico e Data no Formato Date.
banco utilizado Access - Office 2007.
Já fiz vária modificações e consigo executar quando mudo a linha do SelectionFormula para:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[ô][Ô] & mempresa & [Ô][ô][Ô] [ô]AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
Agradeço a ajuda.
Boa tarde!
Possuo a seguinte linha de código:
Dim mempresa As Long
mdata = InputBox([Ô]Digite a data do Caixa.[Ô], [Ô]Lançamentos[Ô])
mempresa = InputBox([Ô]Digite o Número da Loja.[Ô], [Ô]Lançamentos[Ô])
rptmenu.WindowTitle = [Ô]Relatório de Lançamentos[Ô]
rptmenu.ReportFileName = App.Path + [Ô]\Relatorios\Lancamento.RPT[Ô]
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[Ô] & mempresa & [Ô] AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
rptmenu.RetrieveDataFiles
rptmenu.Action = 1
Ao executar a rotina aparece a mensagem: A string is required here,
No banco de dados o campo IdEmpresa é numérico e Data no Formato Date.
banco utilizado Access - Office 2007.
Já fiz vária modificações e consigo executar quando mudo a linha do SelectionFormula para:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[ô][Ô] & mempresa & [Ô][ô][Ô] [ô]AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
Agradeço a ajuda.
CYBERMAC,
Pelo visto, o Crystal Reports (CR) está esperando receber uma string. para o campo:
... mesmo que o código da empresa seja numérico.
Esta [Ô]SelectionFormula[Ô] funcionou corretamente?
[][ô]s,
Tunusat.
Pelo visto, o Crystal Reports (CR) está esperando receber uma string. para o campo:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[ô][Ô] & mempresa & [Ô][ô][Ô] [ô]AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]... mesmo que o código da empresa seja numérico.
Esta [Ô]SelectionFormula[Ô] funcionou corretamente?
[][ô]s,
Tunusat.
Tunusat,
Bom dia!
Esta Selection funciona:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[ô][Ô] & mempresa & [Ô][ô][Ô]
Preciso que além do código da empresa, o usuário também possa escolher a data para conferir seus movimentos bancários, só o código da empresa traz muitas informações e demanda tempo para exportar e conferir em planilha.
Att.
Bom dia!
Esta Selection funciona:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[ô][Ô] & mempresa & [Ô][ô][Ô]
Preciso que além do código da empresa, o usuário também possa escolher a data para conferir seus movimentos bancários, só o código da empresa traz muitas informações e demanda tempo para exportar e conferir em planilha.
Att.
Bom dia CYBERMAC!
Percebi uma coisa estranha ... está colada a aspas simples e o comando AND:
Pensei que tinha funcionado, mas agora que você explicou só a partir deste ponto não funcionou, certo?
[][ô]s,
Tunusat.
Percebi uma coisa estranha ... está colada a aspas simples e o comando AND:
[ô]ANDPensei que tinha funcionado, mas agora que você explicou só a partir deste ponto não funcionou, certo?
[][ô]s,
Tunusat.
é que na verdade a aspa simples está comentando o resto do conteúdo dalinha. Como não consegui fazer o comando, comentei do AND para frente, então a string fica dessa forma:
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[Ô] & mempresa & [Ô] AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
Que não funciona.
Abcs e obrigado pela ajuda.
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[Ô] & mempresa & [Ô] AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy,mm,dd[Ô]) & [Ô][ô])[Ô]
Que não funciona.
Abcs e obrigado pela ajuda.
CYBERMAC,
Você já experimento assim? O Més com dois [Ô]M[Ô]s maiúsculos e a separação do padrão ANSI de data com [Ô]/[Ô]
[][ô]s,
Tunusat.
Você já experimento assim? O Més com dois [Ô]M[Ô]s maiúsculos e a separação do padrão ANSI de data com [Ô]/[Ô]
rptmenu.SelectionFormula = [Ô]{LancamentoDesp.IdEmpresa} =[Ô] & mempresa & [Ô] AND {LancamentoDesp.Data} = date([ô][Ô] & Format(mdata, [Ô]yyyy/MM/dd[Ô]) & [Ô][ô])[Ô][][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas