value out of bounds

[merlin]

hola buneas tengo oun problemilla y es q me da el error value out of bounds cuando ago lo siguiente:

table1.FieldByName('stockact').AsFloat:=((table1.fieldbyname('stockini').AsFloat)+(entrada.fieldbyna me('entradas').AsFloat)) - salida.fieldbyname('salidas').AsFloat;

el campo de la tabla es nuemrico 6/2 es una tabla de dbase5 alguien sabe xq?

[merlin]

un datelle q se me ha pasado por alto antes deciros q este proceso me funciona para la casi todos los articulos y para mas inrri en el articulo q me da error es uno en el q la operacion es

table1.FieldByName('stockact').AsFloat:=((table1.fieldbyname('stockini').AsFloat)+(entrada.fieldbyna me('entradas').AsFloat)) - salida.fieldbyname('salidas').AsFloat;

y los valores q tienen son ((0.6+540)-540.6) como puede ser q 0.0 de el error value out of bounds

[tcp_ip_es]

prueba a crearte una variable intermedia tipo double y asígnale el valor si esto no te da error pasa a asignarle al campo esa variable y si te salta ahi el problema estará en la definición del campo.


Saludos, Tony

[merlin]

he exo lo siquiente e declarado

stock:double;


y luego he dejado la parte problematica asi:
stock:=((table1.fieldbyname('stockini').AsFloat)+(entrada.fieldbyname('entradas').AsFloat)) - salida.fieldbyname('salidas').AsFloat;
table1.FieldByName('stockact').AsFloat:=stock;

pero nada sigue el error. q puedo hacer mas??

[santana]

Hola, buneas.

Tengo oun problemilla couando intento leer heste ilo y es ke n oenteindo algounas palarbas.

[tcp_ip_es]

cuando te da el error en la asignación a la variable o en la asignación al campo?



P.D. Que chispa tienes Santana

[merlin]

en la asignacion al campo?

[tcp_ip_es]

te pregunto que si el error te lo da en esta línea:

Código Delphi [-]
stock:=((table1.fieldbyname('stockini').AsFloat)
+(entrada.fieldbyname('entradas').AsFloat)) - salida.fieldbyname('salidas').AsFloat;

o en esta otra(que es donde la asignas al campo):

Código Delphi [-]
table1.FieldByName('stockact').AsFloat:=stock;

[merlin]

lo de en la de la asignacion al campo y el error lo da xq cuando hace la operacion de la resta no la hace bien.

ent:=((table1.fieldbyname('stockini').AsFloat)+(entrada.fieldbyname('entradas').AsFloat));
sal:=salida.fieldbyname('salidas').AsFloat;

stock:=ent-sal;<-------hay!!

table1.FieldByName('stockact').AsFloat:=stock;

ej:

ent=(0.6+540)
ent=540.6

sal=540.6

stock=540.6-540.6 //al hacer esto da un valor muy raro.
stock=1.241570365e-13 //y claro esto es lo q hace q de el error ese de value out of bouns
xq el campo de la tabla es de (6parte entra,2parte decimal).

sabes xq hace la resta mal o q es lo q puede estar pasando???

[tcp_ip_es]

realmente no se que te puede estar pasando .

Declarate todos los campos de cada una de las tablas con el fieldeditor (botón derecho sobre el componente table->Field Editor.... y añadete todos los campos) después de haber hecho esto pon esta instrucción:

Código Delphi [-]
table1stockact.value:=((table1stockini.value)+(entradaentradas.value)) - salidasalidas.value;

Ya me dirás como te ha ido.

Saludos, Tony

[roman]

Empezado por tcp_ip_es

P.D. Que chispa tienes Santana

Esta

[tcp_ip_es]

La verdad es que la gente es muy propensa a escribir como si de un móvil se tratase , con la cantidad de caracteres que te permite este peazo de foro je je je


Saludos, Tony

P.D. Y lo digo sin acritud eh!!

[merlin]

Al delphji se le va la piedra y cuando hace restas de dos cantidades iguales hay cantidades con las q las hace bien y otras no.
ej:

540.6-540.6 = 0 bueno segun el delphi es 1.10203E13 lo q hacia q en mi
tabla no entrara ese valor xq mi campo era 6/2.

[tcp_ip_es]

Hiciste lo que te comente????

Empezado por tcp_ip_es

realmente no se que te puede estar pasando .

Declarate todos los campos de cada una de las tablas con el fieldeditor (botón derecho sobre el componente table->Field Editor.... y añadete todos los campos) después de haber hecho esto pon esta instrucción:

Código Delphi [-]
table1stockact.value:=((table1stockini.value)+(entradaentradas.value)) - salidasalidas.value;

Ya me dirás como te ha ido.

Saludos, Tony

[__cadetill]

Para valores pequeños aconsejo usar el formato Currency. Te evitarás muchos problemas de estos

Código Delphi [-]
table1stockact.AsCurrency := ((table1stockini.AsCurrency) +
          (entradaentradas.AsCurrency)) - salidasalidas.AsCurrency;

PD: tcp_ip_es, podrías mirar de editar el mensaje 8 y poner un slto de linea para evitar el scroll horizontal? gracias

[tcp_ip_es]

Eso esta hecho

Saludos, Tony