Sumar edits e ir actualizando

[giulichajari]

Empezado por AgustinOrtu

1 + 2 te dio 12 porque sumaste sirings, el String '1' concatenado con el String '2' = '12'

Tenés que convertirlo a moneda para que te de 3 con la función StrToCurr

El usuario se para en el edit ARS y escribe 1. entonces el total ARS es 1, pero si luego escribe 2, se forma el 12 que se suma al 1 en total ARS y da 12+1=13 cuando deberia ser 12, osea cada vez que cambia se vuelve a sumar, es como que se deberia sumar la "diferencia".

[[AgustinOrtu]]

Eso es porque en el total ARS no tenes que sumarle lo que acaba de escribir, asignale el valor del edit

Código Delphi [-]
   TotalARS := StrToCurr(EditARS.Text);

De esa manera asignas siempre el valor ingresado

Estas haciendo algo como esto?

Código Delphi [-]
   TotalARS := TotalARS + StrToCurr(EditARS.Text);

Sin el codigo que estas usando no se que podrias estar haciendo mal

[giulichajari]

Código Delphi [-]
procedure TForm3.EcantidadChange(Sender: TObject);
begin
  Etotal.Text:=CurrToStr(StrToCurr(Ecantidad.Text)+ StrToCurr(ESUBTOTAL.Text));
end;

procedure TForm3.ECheque1Change(Sender: TObject);
begin
Edit2.Text:=CurrToStr(StrToCurr(Edit2.Text) + StrToCurr(ECheque1.Text));

end;

procedure TForm3.Echeque2Change(Sender: TObject);
begin
Edit2.Text:=CurrToStr(StrToCurr(Edit2.Text) + StrToCurr(ECheque2.Text));
end;

procedure TForm3.Echeque3Change(Sender: TObject);
begin
Edit2.Text:=CurrToStr(StrToCurr(Edit2.Text) + StrToCurr(ECheque3.Text));
end;

procedure TForm3.Echeque4Change(Sender: TObject);
begin
Edit2.Text:=CurrToStr(StrToCurr(Edit2.Text) + StrToCurr(ECheque4.Text));
end;

procedure TForm3.EcotizacionChange(Sender: TObject);
begin
  if (EcUSD.Text<>'') then
    begin
      ESUBTOTAL.Text:=CurrToStr(StrToCurr(EcUSD.Text) * StrToCurr(Ecotizacion.Text));
    end;

end;

procedure TForm3.EcUSDChange(Sender: TObject);
begin
if (Ecotizacion.Text<>'') then
   begin
      ESUBTOTAL.Text:=CurrToStr(StrToCurr(EcUSD.Text) * StrToCurr(Ecotizacion.Text));
   end;
end;

procedure TForm3.Edit2Change(Sender: TObject);
begin



  if (Edit2.Text<>'') then
     begin
      Edit5.Text:=CurrToStr(StrToCurr(Edeuda.Text) - StrToCurr(Edit2.Text));
     end;
end;

procedure TForm3.ESUBTOTALChange(Sender: TObject);
begin
if (Ecantidad.Text='') then
   begin
    Etotal.Text:=ESUBTOTAL.Text;
   end
   else
    begin

      Etotal.Text:=CurrToStr(StrToCurr(ESUBTOTAL.Text) + StrToCurr(Ecantidad.Text));
    end;

end;


procedure TForm3.EtotalChange(Sender: TObject);
begin
Edit2.Text:=CurrToStr(StrToCurr(Etotal.Text)+StrToCurr(ECheque1.Text)+StrToCurr(ECheque2.Text)+StrTo  Curr(ECheque3.Text)+ StrToCurr(ECheque4.Text));
end;

Muchas gracias por tu ayuda, lo probe y funciona

[ecfisa]

Hola giulichajari.

También podes encapsular las acciones del código que mostras arriba en un método,

Código Delphi [-]
procedure TForm1.EditsChange(Sender: TObject);
begin
  EditTotal.Text:= CurrToStrF(StrToCurrDef(EditARS.Text, 0) +
    StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0) +
    StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
    StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0),
    ffCurrency, 2);
end;

para luego asignarlo a los eventos OnChange de los Edits involucrados.

Saludos

[giulichajari]

Empezado por ecfisa

Hola giulichajari.

También podes encapsular las acciones del código que mostras arriba en un método,

Código Delphi [-]
procedure TForm1.EditsChange(Sender: TObject);
begin
  EditTotal.Text:= CurrToStrF(StrToCurrDef(EditARS.Text, 0) +
    StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0) +
    StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
    StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0),
    ffCurrency, 2);
end;

para luego asignarlo a los eventos OnChange de los Edits involucrados.

Saludos

Es decir, que cada vez que cambia un edit se produce la suma de arriba?

Y que significa

Código Delphi [-]
ffCurrency, 2

?

Tuve que poner la propiedad Text por default en 0(cero) para no tener errores al sumar, porque el vacio es null. Como puedo resolver esto?

[ecfisa]

Hola giulichajari.

Revisa el demo que te adjunto. Le agregué el cálculo del subtotal, que se me había pasado en el código anterior.

Y que significa

Código Delphi [-]
ffCurrency, 2

En este enlace lo explica con detalle: CurrToStrF

Saludos

[giulichajari]

Empezado por ecfisa

Hola giulichajari.

Revisa el demo que te adjunto. Le agregué el cálculo del subtotal, que se me había pasado en el código anterior.


En este enlace lo explica con detalle: CurrToStrF

Saludos

Disculpa ecfisa: no me calcula la nueva deuda:

Código Delphi [-]
Edit5.Text:=CurrToStrF(StrToCurrDef(Edeuda.text, 0) - StrToCurrDef(Edit2.Text,0),ffCurrency,2);

Edit2 es el total haber.