Cita:
Empezado por donpedro
estoy utilizando el siguiente codigo pero no me ha dado resultado, porque la parte para cuando el monto que pague el estudiante sea mayor que el valor no se como manejarlo:
|
Hola donpedro, puedes hacer algo como esto:
Código Delphi
[-]
var
flg : boolean;
a,b,res,x, Valor:integer;
begin
a:=strtoint(emontoapagar.text);
flg := False;
With dmdatos do
begin
aqfacturad.first;
While not aqfacturad.eof do
begin
b:=strtoint(aqfacturadvalor.asstring);
if (a > b) then
Valor := 0
else
if a>0 then
begin
Valor := b-a;
flg := True;
end;
a := a-b;
aqfacturad.edit;
aqfacturadvalor.asstring:=Valor;
aqfacturad.post;
if Not flg then
aqfacturad.next
else
break;
end;
end;
Saluditos