Ver Mensaje Individual
  #13  
Antiguo 27-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola giulichajari.
Cita:
Empezado por giulichajari Ver Mensaje
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:
Cita:
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita