Sumar edits e ir actualizando

[[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.

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

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.

No, no había realizado ese código, pero a ver... Repasando lo que comentas en tu primer mensaje:

Y la idea era que en el campo total dentro de "efectivo" se sumen los pesos que representan los dolares mas los pesos entregados por el cliente.

A esto se le sumarian los cheque ingresados(hasta cuatro), esto se mostraria en el campo total haber, y el campo nueva deuda estaria la deuda de la base de datos al entrar al form y se le resta el haber.

Veo que había entendido mal la acción a realizar, lo que solicitas sería:

Código Delphi [-]
procedure TForm1.EditsChange(Sender: TObject);
var 
  TotEfect: Currency;
  TotHaber: Currency;
begin
  // total efectivo
  TotEfect:= StrToCurrDef(EditARS.Text, 0) +
    StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0);
  edTotEfect.Text:= CurrToStrF(TotEfect, ffCurrency, 2);

  // total haber
  TotHaber:= TotEfect +
    StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
    StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0);
  EditTotHaber.Text:= CurrToStrF(TotHaber, ffCurrency, 2);

  // deuda anterior - total haber
  EditNueDeu.Text:= CurrToStrF(DeudaAnterior - TotHaber, ffCurrency, 2); // (*)
end;

(*) "DeudaAnterior" sería el valor obtenido de la base de datos.

Lo que ahora no me termina de cerrar es que cálculo deseas obtener en el Edit "Subtotal".

Saludos