Calcular un valor antes de guardar en una tabla

[[FGarcia]]

Como les dije es una tontera.....(cuanta falta me hace el conde Smirnoff!!!)

Código Delphi [-]
 
FieldByName('Suma').Value :=
                   (StrToFloat(MidStr(Str,3,7)) + FieldByName('Suma').AsFloat);

Jeje y asi funciona


Gracias!!

P: Jeje me adelante, asi como dije ya no muestra el error!! sin embargo en la tabla todos los valores de suma son iguales a valor. Ademas vi algo raro pero aun no lo defino. Luego les cuento!!

[[eduarcol]]

Empezado por FGarcia

Como les dije es una tontera.....(cuanta falta me hace el conde Smirnoff!!!)

Código Delphi [-]
 
FieldByName('Suma').Value :=
                   (StrToFloat(MidStr(Str,3,7)) + FieldByName('Suma').AsFloat);

Jeje y asi funciona


Gracias!!

P: Jeje me adelante, asi como dije ya no muestra el error!! sin embargo en la tabla todos los valores de suma son iguales a valor. Ademas vi algo raro pero aun no lo defino. Luego les cuento!!

Perdona que insisto, esa solucion solo va a dejar de mostrarte el error, analiza lo del edit y lo de la variable para que llegues a la solucion que mas te convenga...

Recuerda el hecho que no salten excepciones no quiere decir que vaya a funcionar.

[[FGarcia]]

Bueno, ahora si!

Ya probe y revise tablas y parece que ya no hay problema. Esto quedo asi:

Código Delphi [-]
procedure TDMSerie.ProcesaCadena(Str: string);
var
  Acc: Double;
begin
  if not TblCaptura.FieldByName('Suma').IsNull then
    Acc := TblCaptura.FieldByName('Suma').Value
  else
    Acc := 0;
 
  with TblCaptura do
    begin
      Append;
        FieldByName('hfCaptura').Value := Now;
        FieldbyName('ID').Value := MidStr(Str,1,1);
        FieldByName('Valor').Value := MidStr(Str,3,7);
        FieldByName('Suma').Value := (StrToFloat(MidStr(Str,3,7)) + Acc);
      Post;
    end;
 
  DataCnx.ConsultaTotales;
end;

Se siguen aceptando sugerencias!!

Gracias!

[[eduarcol]]

la variable debe ser global, tu la estas declarando local por eso se te reinicia cada vez que entras al procedimiento, sacala de alli y colocala como global.

[[FGarcia]]

Empezado por FGarcia

Bueno, ahora si!

Ya probe y revise tablas y parece que ya no hay problema. Esto quedo asi:

Se siguen aceptando sugerencias!!

Gracias!

Bueno, si, declare la variable local pues es el unico sitio donde la uso y ademas cada vez que entro al procedimiento le asigno el ultimo valor de suma que esta guardado en la tabla esto me da como resultado algo asi ya en la tabla:

consecutivo | ID | Valor | Suma|
1 1 1 1
2 2 1 2
3 1 5 7
4 2 3 10

Aun asi se agradece si estoy obviando algo me lo hagan saber.

[[eduarcol]]

pues si tienes razon, pero lo unico que te aconsejaria es asegurarte que al entrar al procedimiento se vaya al ultio registro, (.Last)

[[FGarcia]]

Gracias!!
Eso si no lo habia tomado en cuenta!!