ActiveDelphi

[clspeak]

Ola galera ++ .. tudo blz... tipo assim, criei umas tabelas virtuais que me possibilitasse a efetuar alguns calculos so qto fazendo uns calculos no evento oncalcfields ele da erro, ele so funciona quando eu uso um fields como valor resultante.. visto que issu tudo esta ligado a um dbgrid :

tipo esse e o codigo que eu to usando no Oncalcfields:

[b] procedure TDM.TB_CadastroCalcFields(DataSet: TDataSet);
begin
//--------FRETE-------
DM.TB_CadastroAuxSubTotal1.AsFloat:=DM.TB_CadastroV_UNIT.AsFloat*DM.TB_CadastroFRETE.AsFloat/100;
DM.TB_CadastroAuxFrete.AsFloat:=DM.TB_CadastroAuxSubTotal1.AsFloat*DM.TB_CadastroQUANT.AsInteger;
//-----------ICMS----------------------------
DM.TB_CadastroAuxSubTotal2.AsFloat:=DM.TB_CadastroV_UNIT.AsFloat*DM.TB_CadastroICMS.AsFloat/100;
DM.TB_CadastroAuxICMS.AsFloat:=DM.TB_CadastroAuxSubTotal2.AsFloat*DM.TB_CadastroQUANT.AsInteger;
//---------------OUTROSGASTOS-------------------------
DM.TB_CadastroAuxSubTotal3.AsFloat:=DM.TB_CadastroV_UNIT.AsFloat*DM.TB_CadastroOUTROSDESP.AsFloat/100;
DM.TB_CadastroAuxOutosDesp.AsFloat:=DM.TB_CadastroAuxSubTotal3.AsFloat*DM.TB_CadastroQUANT.AsInteger;
//-----------------DESCONTOS------------------------
DM.TB_CadastroAuxSubTotal4.AsFloat:=DM.TB_CadastroV_UNIT.AsFloat*DM.TB_CadastroDESCONTO.AsFloat/100;
DM.TB_CadastroAuxDesconto.AsFloat:=DM.TB_CadastroAuxSubTotal4.AsFloat*DM.TB_CadastroQUANT.AsInteger;

//-----------------------SOMA TOTAL------------
DM.TB_CadastroV_TOTAL.AsFloat:=(DM.TB_CadastroAuxFrete.AsFloat+DM.TB_CadastroAuxICMS.AsFloat+DM.TB_CadastroAuxOutosDesp.AsFloat-DM.TB_CadastroAuxDesconto.AsFloat+DM.TB_CadastroV_UNIT.AsFloat)*DM.TB_CadastroQUANT.AsInteger;
end;[/b]
Ele roda blz mais quando eu vou abaster os campo num dbgrid ele da ERRO,
+ se eu mudar a ultima linha pra :

[u] DM.TB_CadastroAuxValorTotal.AsFloat:=(DM.TB_CadastroAuxFrete.AsFloat+DM.TB_CadastroAuxICMS.AsFloat+DM.TB_CadastroAuxOutosDesp.AsFloat-DM.TB_CadastroAuxDesconto.AsFloat+DM.TB_CadastroV_UNIT.AsFloat)*DM.TB_CadastroQUANT.AsInteger;[/u]]ele roda blz....
Por issu to precisando de ajuda pra pode fazer esse valor do fields, passar para a tabela DM.TB_CadastroV_TOTAL.AsFloat o resultado dos calculos acima .. um grande abraco a todos...

[Arquiteto]

po cara tenta fazer esses calculos antes da gravação no banco.


_________________
It Follows The Red Rabbit
<hr>