Hola giulichajari.
Cita:
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:
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
TotEfect:= StrToCurrDef(EditARS.Text, 0) +
StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0);
edTotEfect.Text:= CurrToStrF(TotEfect, ffCurrency, 2);
TotHaber:= TotEfect +
StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0);
EditTotHaber.Text:= CurrToStrF(TotHaber, ffCurrency, 2);
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