F�rum Division point by zero - quick report #390215

09/11/2010

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

Curtir t�pico

+ 0

Responder

Posts

09/11/2010

Deivison Melo

Qual a query que est� utilizando para buscar os resultados do relat�rio?

Responder

Gostei + 0

09/11/2010

Ana Carolina

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.

Responder

Gostei + 0

09/11/2010

Deivison Melo

Teria como voc� disponibilizar o c�digo para que eu possa analisar?

Responder

Gostei + 0

09/11/2010

Ricardo Araujo

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.

Responder

Gostei + 0

10/11/2010

Ana Carolina

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".

Responder

Gostei + 0

04/06/2012

Deivison Melo

Boa tarde,

Infelizmente com apenas essa parte do c�digo n�o tenho a possibilidade de ajudar vc!

Responder

Gostei + 0