Somar no QRExpr

Delphi

30/03/2004

Como devo fazer para obter o resultado da divisão de dois QRexpr ??

QRExpr1.expression = SUM(Table1Qtd) = 200
QRExpr2.expression = SUM(Table1Soma) = 50

QRExpr3 deverá ser = 0,25, ou seja, QREXpr2 / QRExpr1 ou,
QRLabel1 = 0,25

Obrigado

CBier


Cbier

Cbier

Curtidas 0

Respostas

Pezzin

Pezzin

30/03/2004

QRExpr3.expression = SUM(Table1Soma) / SUM(Table1Qtd)


GOSTEI 0
Cbier

Cbier

30/03/2004

Preciso calcular o resultado do QRExpr e não os campos da Table.

Exemplo:

Resultado do QRExpr1 = 200
Resultado do QRExpr2 = 50

Estes resultados são obtidos através de campos de tabelas filtrados.

Item Qtd
1 50 (QRexpr2)
2 45 (QRexpr2)
3 105 (QRExpr2)

Total 200 (QRExpr1)

daí

50 / 200 = 0,25 * 100 = 25¬
45 / 200 = 0,225 * 100 = 22,5¬
105 / 200 = 0,525 * 100 = 52,5¬

Total 100¬

CBier


GOSTEI 0
Cbier

Cbier

30/03/2004

Alguém pode me ajudar com esta problema ??

Obrigado

CBier


GOSTEI 0
Cbier

Cbier

30/03/2004

Pessoal,

Alguém pode me ajudar com este problema ??

CBier


GOSTEI 0
Valdir.santos

Valdir.santos

30/03/2004

Olha, já tentei utilizar o valor de um QRExpr p/ fazer outro cálculo e não consegui. O jeito foi criar variáveis Double, e no evento OnPrint dos QRExpr, atribuir o valor da expressão na variável. Daí utiliza-se a variável ao invés do componente QRExpr.

Exemplo:

fDspMes60:=QRExpr1.Value.dblResult;


Valdir.


GOSTEI 0
Cbier

Cbier

30/03/2004

Veja se está certo desta forma:

No onprint do QRExpr3

QRExpr3.expression:=(QRExpr1.Value.dblResult/QRExpr2.Value.dblResult)*100;

CBier


GOSTEI 0
Valdir.santos

Valdir.santos

30/03/2004

Tente colocar:

QRExpr3.Value.dblResult:=(QRExpr1.Value.dblResult/QRExpr2.Value.dblResult)*100;

Mas eu acho que no lugar de QRExpr3 vc deveria colocar um QRLabel e fazer:
QRLabel.Caption:=(QRExpr1.Value.dblResult/QRExpr2.Value.dblResult)*100;

Valdir.


GOSTEI 0
Cbier

Cbier

30/03/2004

Valeu,

Vou tentar dessa forma.

CBier


GOSTEI 0
POSTAR