FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Calculos en una tabla
En mi aplicación hice en el onClick de un botón este procedimiento para calcular AMORTIZACION, VALOR ACUMULADO Y VALOR RESIDUAL de un determinado Bien de Uso, pero mi problema es que cuando calculo ésto (también tengo un boton que me Graba los datos haciendo un Post en la tabla) y hago click en el boton Grabar no me graba estos valores en la Tabla, la verdad es que no se porque. Alguien puede ayudarme abajo está el código que hice para estos calculos.
Estoy usando Delphi 5, y tablas Paradox 7. Gracias, saludos.- Código: procedure TForm10.CalcularClick(Sender: TObject); (Calculo AMORTIZACION, V. ACUMULADO, V. RESIDUAL) Var d,m,Aini,Afin,difa:Word; n,a,precio:Variant; amort,Vacumulado,Vresidual:Integer; begin //Calculo la AMORTIZACION ModeloDatos.TblMueble.Active:=True; n:=ModeloDatos.TblMueble.FieldValues['Rubro']; //lo que tengo en el campo 'Rubro' de TblMueble.- a:=ModeloDatos.TblRubro.Lookup('CODRUB',n,'Añoamortizacion'); //años de Amortización.- precio:=ModeloDatos.TblMueble.FieldValues['Preccompra']; Amort:=precio/a; ModeloDatos.TblMueble.FieldValues['Amortizacion']:=Amort; //Calculo VALOR ACUMULADO.- Decodedate(Date,Afin,m,d); //Decodifica una fecha en año, mes, día.- Decodedate(ModeloDatos.TblMueble.FieldValues['Fechcomp'],Aini,m,d); difa:=Afin-Aini; Vacumulado:=Amort*difa; //Calculo VALOR RESIDUAL.- Vresidual:=precio-Vacumulado; ModeloDatos.TblMueble.FieldValues['Vresidual']:=Vresidual; end; |
|
|
|