Sumar edits e ir actualizando

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

[giulichajari]

Ahora como hago para guardar el contenido de un eddit, el de haber por ej en el campo deuda de la tabla de clientes que es Decimal si el edit es currency?

[[AgustinOrtu]]

No no, ojo, lo que tenés en el texto del edit siempre es un String.

Para guardar ese valor podes usar sentencias sql, usando insert o update, y pasando como parámetro el valor del edit. Deberías convertirlo a currency con StrToCurr

Si tenés dudas con esto solamente avisa por acá, que ahora estoy desde el móvil y me da pereza escribir código

[giulichajari]

Empezado por AgustinOrtu

No no, ojo, lo que tenés en el texto del edit siempre es un String.

Para guardar ese valor podes usar sentencias sql, usando insert o update, y pasando como parámetro el valor del edit. Deberías convertirlo a currency con StrToCurr

Si tenés dudas con esto solamente avisa por acá, que ahora estoy desde el móvil y me da pereza escribir código

Ps ya se que con un insert, pero el contenido del edit esta como Currency por el evento que me paso ecfisa, para que se vea el signo pesos, entonces si hago STRToFloat para guardar el valor en la deuda, no va a funcionar, eso es lo que pregunto.