Sumar edits e ir actualizando

[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

[giulichajari]

El subtotal son los pesos correspondientes a los dolares, y el total son los pesos mas los pesos representados por los dolares, es decir el cliente puede pagar en pesos mas dolares. Entonces se calculan los dolares en pesos en el subtotal mas lo que entregue en pesos y ese es el total en efectivo.

Luego al sumar los cheques es el monto total del haber.

Muchas gracias.

[giulichajari]

Empezado por giulichajari

El subtotal son los pesos correspondientes a los dolares, y el total son los pesos mas los pesos representados por los dolares, es decir el cliente puede pagar en pesos mas dolares. Entonces se calculan los dolares en pesos en el subtotal mas lo que entregue en pesos y ese es el total en efectivo.

Luego al sumar los cheques es el monto total del haber.

Muchas gracias.

Lo que sucede es que tengo un boton para buscar el cliente en una grilla y cuando lo pego lleno el edit de deuda y a la vez nueva deuda con el mismo valor. Pero luego al cargar un pago en ARS por ej pone - y el valor de la suma, es decir que toma el edit nueva deuda como "0" y le resta el total efectivo.