me disculpo. ya lei la guia de estilo.
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:
Código Delphi
[-]
var a,b,res,x:integer;
begin
a:=strtoint(emontoapagar.text);
b:=strtoint(dmdatos.aqfacturadvalor.asstring);
dmdatos.aqfacturad.first;
while not dmdatos.aqfacturad.eof do
begin
if (b > 0) and (a < b) or (a = b) then
begin
dmdatos.aqfacturad.edit;
res:=b-a;
dmdatos.aqfacturadvalor.asstring:=inttostr(res);
dmdatos.aqfacturad.post;
break;
dmdatos.aqfacturad.next;
end;