ActiveDelphi

[DRAGONFLY]

Estou usando d6 e firebird 1.5 com dbexpress no dbgrid tenho 3 campos (ex.) Quant, Valor e Total como faço para que o campo Total seja Quant * Valor e que isso fique armazenado no campo Total.

Adriano - Curitiba - PR

[RobertoCAN]

Table1Total.Value:=Table1Quant.Vlue*Table1Valor.Value;

[Sufolk]

Mas se o campo for calculed você tem que colocacar o cálculo que o Roberto passou no evento onCalcFields da Table1.

[DRAGONFLY]

em qual evento isto deve estar se não for calculado?

Valeu!

Obrigado!

[Sufolk]

Eu colocaria no onBeforePost mas pode ser colocado no onValidade de cada uns dos dois campos.

[rafaelmart]

bao cara eu usaria outro metodo! se todos esses campos estao na mesma tabela no banco de dados eu calcularia pelo Firebird tipo:
total computed by (quantidade * valor)

_________________
Rafael Martins de Oliveira
Analista de Sistemas

[DRAGONFLY]

Legal. como faço isso rafael?

[rafaelmart]

faca assim:
Exclua p campo da sua tabela
ALTER TABLE NOME_DA_TABELA DROP TOTAL

Depois adiciona ele assim:
ALTER TABLE NOME_DA_TABELA
ADD TOTAL COMPUTED BY (VALOR * QUANT)

qualquer duvida posta aí
_________________
Rafael Martins de Oliveira
Analista de Sistemas

[DRAGONFLY]

blz, de fato funcionou, mas o calculo só aparece quando eu salvo e eu gostaria que quando digitasse o Valor e a Quant logo aparecesse no Total o calculo.

[rafaelmart]

Bom cara, nesse metodo q eu lhe disse so vai aparecer depois de salvar mesmo! caso queria q seja feito na hora q o usuario digitar o valor siga o exemplo dos compaheiros
_________________
Rafael Martins de Oliveira
Analista de Sistemas

[DRAGONFLY]

Coloquei no evento onValidate o seguinte:
CDS_TABELATOTAL.Value := CDS_TABELAQUANT.Value + CDS_TABELAVALOR.Value

Retorna Incompatible Type

[Sufolk]

CDS_TABELATOTAL.Value := CDS_TABELAQUANT.asFloat + CDS_TABELAVALOR.asFloat;

[DRAGONFLY]

Retornou Incompatible Type : \'TBcd\' and \'Extended\'

[Sufolk]

De que tipo são esses seus campos?

[DRAGONFLY]

numeric