Ver Mensaje Individual
  #1  
Antiguo 28-01-2005
JCarlos JCarlos is offline
Miembro
 
Registrado: nov 2004
Posts: 25
Reputación: 0
JCarlos Va por buen camino
Question Campos autocalculados en una tabla

Hola a todos,

Tengo una preguntica, estoy trabajando en un proyecto en delphi 7 con base de datos paradox, en el proyecto tengo una tabla con los siguientes campos: Descripcion, valor, Fecha de adquisicion y depreciacion. Ademas 3 campos auto calculados, para que cuando muestre la tabla en el dbgrid en esos campos me muestre:
1. Depreciacion anual, esta la calculo con la siguiente formula Da=valor*dep/100
2. Depreciacion mensual, Dm=Da/12
3. Depreciacion acumulada Dac=(Da/365)*(Fecha actual - Fecha de Aquisicion)
estos campos los cree en la tabla, dando doble click, new field en la ventanita que muestra, tipo de campo autocalculado, tipo de campo Float..

Y en el evento oncalcfields de la tabla el siguiente codigo:
procedure TDataModule5.Table3CalcFields(DataSet: TDataSet);
begin
if not table3valor.IsNull and (table3valor.Value <>0) then
begin
table3danual.Value:=table3valor.Value * table3dep.Value/100;
table3dmes.Value:= table3danual.Value/12;
table3dacum.Value:= table3danual.value/365 * date-(table3fadq.value);
end ;

Esto compila bien, pero el resultado me lo muestra completo, es decir 3333.348459505 y los que el resultado es de 0.70, nada mas me muetra el .7.

Que es lo que estoy haciendo mal, trate de ponerle una maascara el campo autocalculado pero a lo mejor no la puse bien, pues me sigue haciendo lo mismo...

Agradeceria cualquier ayuda que me pudieran brindar... Gracias por adelantado.
Responder Con Cita