[firebase-br] Equivalencia

[Eduardo Jedliczka]

Sim, no clipper você arredonda com duas casas, no firebird (cast), está
arredondando com 6... (talvez este cast seja necessário, mas depois da
divisão)...

[s]

====================
Eduardo Jedliczka
Apucarana - Paraná
====================
----- Original Message -----
From: "Marcelo Silva" <marcvan em ig.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, July 01, 2005 11:04 AM
Subject: [firebase-br] Equivalencia


Pessoal estou com problemas em um relatório...
Este relatório é feito em clipper e estou passando para o delphi com
Firebird...
Tenho no clipper a seguinte função:
...
xEnt := Round( F_BANCO->valor * RATENT->perce / 100, 2 )
...

No firebird tenho:

SELECT
  A.OPERADORA,
  A.DAT_INI,
  A.DAT_FIM,
  CAST(COUNT(A.OPERADORA)+
    (SELECT COUNT(B.OPERADORA) FROM REL_COB B
    WHERE(B.USUARIO = A.USUARIO)
        AND(B.TIP_EVE = 'N')
        AND(B.OPERADORA = A.OPERADORA))AS INTEGER) AS QTD_OPE,
  (SELECT SUM(B.VALOR) FROM REL_COB B
    WHERE(B.USUARIO = A.USUARIO)
        AND(B.TIP_EVE = 'N')
        AND(B.OPERADORA = A.OPERADORA)) AS VALOR,
  (SELECT SUM(C.VAL_ATU) FROM REL_COB C
    WHERE(C.USUARIO = A.USUARIO)
        AND(C.TIP_EVE = 'N')
        AND(C.OPERADORA = A.OPERADORA)) AS VAL_ATU,
  CAST(SUM(((CAST(A.VAL_REN AS NUMERIC(18,6))/A.TOT_REN))*A.VAL_ENT) AS
    NUMERIC(18,2)) AS VAL_REN,
  A.USUARIO
FROM REL_COB A
WHERE
  (A.EVENTO IN('30','38','43','34'))
  AND(A.USUARIO = :pUsuario)
  AND(A.TIP_EVE = 'P')
GROUP BY A.OPERADORA, A.DAT_INI, A.DAT_FIM, A.USUARIO
ORDER BY 1

--- Acontece que os resultados estão dando diferença de centavos
pelo que vejo a diferenca está em Round() do clipper versos Cast() do
firebird

Alguém pode me dizer como fazer para que os calculos batam ?

Por exemplo no clipper da 1500,97 no firebird 1500,92

Já olhei os registros e os mesmos está com os valores exatamente iguais,
dando diferença somente nas somas


* Desculpem a carta...

Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN marcvan em ig.com.br



--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.2/29 - Release Date: 27/06/2005


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa