Sumar edits e ir actualizando

[[AgustinOrtu]]

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

Código Delphi [-]
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

Código Delphi [-]
    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

Código Delphi [-]
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

Código Delphi [-]
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]

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