Division point by zero - quick report
Pessoal,
estou com o seguinte problema: toda vez que vou visualizar qq dos meus relatórios aparece a msg: "Division point by zero". Sendo que não faz calculo nesse momento e só acontece em UMA Máquina específica.
Socorro, alguém pode me ajudar???? já comparei BDE de duas máquinas, opções regionais..
Att,
Ana Carolina
Curtidas 0
Respostas
Deivison Melo
09/11/2010
Qual a query que está utilizando para buscar os resultados do relatório?
GOSTEI 0
Ana Carolina
09/11/2010
Boa tarde,
Há uma query principal conectada ao meu relatório, onde sua consulta é construída em uma tela anterior através do parametros selecionados pelo usuário. Depois de efetuar a consulta executa o comando para visualizar o relatório "Preview", o mesmo executa alguns procedimento dentro das bandas criadas normalmente e depois do comando "After Print" do quick report o problema ocorre.
Há uma query principal conectada ao meu relatório, onde sua consulta é construída em uma tela anterior através do parametros selecionados pelo usuário. Depois de efetuar a consulta executa o comando para visualizar o relatório "Preview", o mesmo executa alguns procedimento dentro das bandas criadas normalmente e depois do comando "After Print" do quick report o problema ocorre.
GOSTEI 0
Deivison Melo
09/11/2010
Teria como você disponibilizar o código para que eu possa analisar?
GOSTEI 0
Ricardo Araujo
09/11/2010
boa tarde,
pode disponibilizar o Código fonte da chamada do fomulario referente ao relatório.
assim podemos analisa e chegar alguma conclusão para te ajudar.
att:
rbbarreto.
pode disponibilizar o Código fonte da chamada do fomulario referente ao relatório.
assim podemos analisa e chegar alguma conclusão para te ajudar.
att:
rbbarreto.
GOSTEI 0
Ana Carolina
09/11/2010
Bom dia,
Posso sim segue abaixo:
fmQuitadosPar = Form que chama o relatório
fmQuitadosRel1 = Form do relatório
fmPreviaPar = Tela padrão de chamada de todos os relatórios do sistema
****** Código da tela que chama o relatório
fmQuitadosRel1.query2.close;
fmQuitadosRel1.query2.sql.text := qSelecao.sql.text ;
fmQuitadosRel1.query2.open;
fmPreviaPar.Print(radiogroup1.ItemIndex, fmQuitadosRel1.QuickReport);
Obs: qselecao é uma query da tela "fmQuitadosPar" que monta a consulta a partir dos parametros informados pelo usuário
****** Código da tela padrão de chamada de relatório
procedure TfmPreviaPar.Print(ni: integer; qr: tquickreport);
begin
qr.leftmarginmm := 0;
qrpt := qr;
qrpt.displayprintdialog := false;
if ni = 0 then
qrpt.preview
else
if ParametroImpressao then
showmodal
else
BitBtn1Click(nil);
end;
Obs: No exemplo quando o problema ocorre a variavel "ni" está com o valor = 0, fazendo com que a torina execute o comando "preview".
Posso sim segue abaixo:
fmQuitadosPar = Form que chama o relatório
fmQuitadosRel1 = Form do relatório
fmPreviaPar = Tela padrão de chamada de todos os relatórios do sistema
****** Código da tela que chama o relatório
fmQuitadosRel1.query2.close;
fmQuitadosRel1.query2.sql.text := qSelecao.sql.text ;
fmQuitadosRel1.query2.open;
fmPreviaPar.Print(radiogroup1.ItemIndex, fmQuitadosRel1.QuickReport);
Obs: qselecao é uma query da tela "fmQuitadosPar" que monta a consulta a partir dos parametros informados pelo usuário
****** Código da tela padrão de chamada de relatório
procedure TfmPreviaPar.Print(ni: integer; qr: tquickreport);
begin
qr.leftmarginmm := 0;
qrpt := qr;
qrpt.displayprintdialog := false;
if ni = 0 then
qrpt.preview
else
if ParametroImpressao then
showmodal
else
BitBtn1Click(nil);
end;
Obs: No exemplo quando o problema ocorre a variavel "ni" está com o valor = 0, fazendo com que a torina execute o comando "preview".
GOSTEI 0
Deivison Melo
09/11/2010
Boa tarde,
Infelizmente com apenas essa parte do código não tenho a possibilidade de ajudar vc!
Infelizmente com apenas essa parte do código não tenho a possibilidade de ajudar vc!
GOSTEI 0