Sumar edits e ir actualizando

[giulichajari]

Bueno amigos! Se que se podria hacer de manera mas sencilla, pero se me ocurrio hacerlo asi y queria compartir con uds el problema jaa.

Tengo en un form el pago de un cliente. coloque entonces los siguientes edits(en la imagen):
http://i1187.photobucket.com/albums/z387/giulichajari/Dibujo_zps48378342.jpg
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.

Pero el caso es que quise hacerlo con eventos, y me lie jaja.
Es decir si el usuario va cambiando los ars o dls cambia el total al igual que al agregar un cheque.

Y el algoritmo termino siendo mas complejo de lo que parecia iba a ser.

Me acorde del foro aja y quiero compartirlo

[AgustinOrtu]

Yo para trabajar con importes monetarios uso el tipo currency. Podes hacer algo como esto:


procedure ...
var
TotalEfectivo, TotalCheques, ... : currency
begin
TotalEfectivo := StrToCurr(PesosArgentinos.Text) + StrToCurr(Dolares.Text) + ...;
TotalCheques := StrToCurr(Cheque1.Text) + StrToCurr(Cheque2.Text) + ...;
TotalHaber.Text:= CurrToStrF(TotalEfectivo + TotalCheques + ..., ffCurrency, 2);
end;


Luego quedaria a gusto tuyo el como tratar las excepciones, no se si realizas alguna validacion en otro evento, ahi se asume que "esta todo bien"

El CurrToStrF es para decirle a Delphi que ademas de convertir a string un valor monetario, que le de formato. En el ejemplo que puse yo trunca el valor mostrando solamente 2 decimales y le agrega el signo de la moneda configurada ($, U$S, etc)

Tranquilamente podes usar tambien CurrToStr o mandarle otros parametros (revisa los posibles valores ademas del ffCurrency)

Eso lo podes poner en el OnExit de los edit, o en el OnChange.

Saludos!

[AgustinOrtu]

En realidad la forma que a la larga termina siendo la mas sencilla y clara es que encapsules todo ese comportamiento en una clase

Por ejemplo, algo super sencillo


TPago = class
private
FEfectivo: currency;
FCheque: currency;
FDirty: boolean;
procedure SetEfectivo(const Value: currency);
procedure SetCheque(const Value: currency);
function GetEfectivo: currency;
function GetCheque: currency;
function GetTotal: currency;
procedure Recalcular;
// mas atributos..
published
property Efectivo: currency read GetEfectivo write SetEfectivo;
property Cheque: currency read GetCheque write SetCheque;
property Total: currency read GetTotal;
// resto de las propiedades
end;


E implementar los getter y setter asi


function TPago.GetEfectivo: currency;
begin
if (FDirty) then
Recalcular;
result := FEfectivo;
end;

procedure TPago.SetEfectivo(const Value: currency);
begin
if (Value <> FEfectivo) then
begin
FEfectivo := Value;
FDirty := true;
end;
end;

function TPago.GetTotal: currency;
begin
if (FDirty) then
Recalcular;
result := FEfectivo + FCheque;
end;


Aca el secreto esta en utilizar propiedades para obtener y acceder a los valores, en el atributo FDirty (Sucio) y el metodo Recalcular (todo esto es de un ejemplo que lei del viejo maestro Ian Marteens)

De esta manera nos aseguramos que cuando obtenemos un valor, este esta "actualizado" porque la clase sabe calcular el total. Imaginate si tenes que aplicar tasas de interes, impuestos, descuentos.. etc. Asi te quedaria todo el calculo del total en el metodo Recalcular (en un solo lugar) y podrias consultar y setear valores libremente sabiendo que siempre estaran ajustados dependiendo de los valores que setees.

Luego siguiendo la logica de lo que queres hacer, en el OnExit de los edit podrias validar que el importe efectivo es valido (por ejemplo) y mandarselo a la clase. La clase setea el valor y FDirty pasaria a True, por lo tanto la proxima lectura de algun valor llama a Recalcular y los montos son actualizados.

Entonces el OnExit de los edit quedaria


procedure TForm1.Edit1Exit(Sender: TObject);
var Efvo: currency;
begin
try
Efvo := StrToCurr(Edit1.Text);
Pago.Efectivo := Efvo; // Pago podria ser una variable del form, declarada en Private por ejemplo
Refrescar;
except
on EConvertError do
begin
Edit1.SetFocus;
MessageDlg('Importe inválido!', mtError, [mbOK], 0);
end;
end;
end;


Donde refrescar seria un proceso de tu form que se encarga de asignar a cada edit el valor correspondiente de la instancia de la clase Pago

[giulichajari]

Bueno gracias por responder.
Un problema que tenia antes de publicar el mensaje con el evento onchange, es que el valor se sumaba mal, por ejemplo, si escribo 1 y luego 2 me queda 12 que se suma al 1 anterior.

Osea la funcion recalcular deberia restar lo anterior. Y ademas el evento onexit no es suficiente porque el usuario puede retornar al edit.

Pero lo voy a intentar.

[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

[giulichajari]

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


TotalARS := StrToCurr(EditARS.Text);


De esa manera asignas siempre el valor ingresado

Estas haciendo algo como esto?


TotalARS := TotalARS + StrToCurr(EditARS.Text);


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

[giulichajari]

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,

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]

Hola giulichajari.

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

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 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
ffCurrency, 2

En este enlace lo explica con detalle: CurrToStrF (http://www.delphibasics.co.uk/RTL.asp?Name=CurrToStrF)

Saludos :)

[giulichajari]

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 (http://www.delphibasics.co.uk/RTL.asp?Name=CurrToStrF)

Saludos :)

Disculpa ecfisa: no me calcula la nueva deuda:

Edit5.Text:=CurrToStrF(StrToCurrDef(Edeuda.text, 0) - StrToCurrDef(Edit2.Text,0),ffCurrency,2);

Edit2 es el total haber.

[ecfisa]

Hola giulichajari.
Disculpa ecfisa: no me calcula la nueva deuda:

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:

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]

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 :p

[giulichajari]

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 :p

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.

[ecfisa]

Hola giulichajari.

Si el contenido de la propiedad Text del TEdit que mencionas, tiene un formato como por ejemplo '$ 90.780,33', podrías hacer:

function UnFormatCurr(const CurrValue: string): string;
begin
Result:= CurrValue;
Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
Result:= StringReplace(Result, '.', '', [rfReplaceAll]);
end;


Ejemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= '$ 1.250,25';
Edit2.Text:= FloatToStr(StrToFloat(UnformatCurr(Edit1.Text)) + 1000);
end;

http://sia1.subirimagenes.net/img/2014/12/30/141230085357826470.jpg

Saludos :)

[giulichajari]

Pues me da el problema de que al sacar el punto (.) me graba mal el dato, porque si debe 1.000,00 y pongo 100,00 quedan 900,00, y en la bd graba 9000. Este problema se debe a que usa el punto para los miles y el punto para los decimales, tendria que ser el punto para una cosa y la coma para la otra, me parece

[ecfisa]

Hola giulichajari.

Para saber la definicion de los separadores que tenes configurada, sería útil si copiaras desde el Memo (y pegaras aqui) el resultado de ejecutar este código:

...
begin
Memo1.Font.Name:= 'Currier';
Memo1.Text:= Format('S. mil: %s %sS. dec: %s',
[ThousandSeparator, #$A#$D#$A#$D, DecimalSeparator]);
end;


Saludos :)

[giulichajari]

Hola giulichajari.

Para saber la definicion de los separadores que tenes configurada, sería útil si copiaras desde el Memo (y pegaras aqui) el resultado de ejecutar este código:

...
begin
Memo1.Font.Name:= 'Currier';
Memo1.Text:= Format('S. mil: %s %sS. dec: %s',
[ThousandSeparator, #$A#$D#$A#$D, DecimalSeparator]);
end;


Saludos :)

Agrego un Memo y le paso la suma de los valores?Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?

[ecfisa]

Hola giulichajari.
Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?
Si usas el punto tanto para separador de miles como de decimales, habría que hacer un pequeño cambio a la función anterior:

...
{ definir punto como separador de miles y decimales }
procedure TuForm.FormCreate(Sender: TObject);
begin
DecimalSeparator := '.';
ThousandSeparator:= '.';
Application.UpdateFormatSettings:= False;
end;

function UnFormatCurr(const CurrValue: string): string;
begin
Result:= CurrValue;
Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
Result:= StringReplace(Result, '.', '', []); // <<-- cambio
end;


Saludos:)

[giulichajari]

No seria:

procedure TuForm.FormCreate(Sender: TObject);
begin
DecimalSeparator := ',';{coma para decimal}
ThousandSeparator:= '.';
Application.UpdateFormatSettings:= False;
end;

[ecfisa]

Hola giulichajarí
No seria:

procedure TuForm.FormCreate(Sender: TObject);
begin
DecimalSeparator := ',';{coma para decimal}
ThousandSeparator:= '.';
Application.UpdateFormatSettings:= False;
end;
No si es como comentas en este mensaje:
Agrego un Memo y le paso la suma de los valores?Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?
En ese caso el signo "$" y el primer "." impiden el formato al no coincidir con el formato establecido.

De todos modos es una forma muy frágil de obtener el valor ya que depende de las configuraciones locales de los equipos en que funciona la aplicación. Sería mucho mejor tener almacenado el valor que mostras en el Edit en una variable (privada al formulario o global a la unidad) y te evitas todo este lío.

Saludos :)