Forma de procesar Pagos

[feliz-58]

Saludos, tengo la siguiente inquietud, y espero que con su experiencia puedan darme una idea,
tengo un programa en el cual genero pago a cuotas (uso la base de datos en Access), ahora mismo, la tabla cuotas tiene los campos:

Cod | NumPrestamo | Numero | FechaPago | Monto | Estado |
Numero unico de la cuota | Numero del prestamo | numero de orden de cuota | * | * |Pendiente/realizado

"Para pagar las cuotas", selecciono por SQL la primera cuota relacionada al préstamo mediante un SELECT aca el codigo:

with QTemp do
begin
Close;
SQL.Clear;
SQL.Text:= 'SELECT TOP 1 Cod, Numero FROM Cuotas WHERE (NumPrestamo =:Codigo) and (Estado = :Pendiente) '+
'Order By Numero ASC';
Parameters.ParamByName('Codigo').Value := EnumPrestamo.Text;
Parameters.ParamByName('Pendiente').Value := 'Pendiente';
ExecSQL;
Open;
end;

Cod := Qtemp.FieldByName('Cod').AsVariant;
Numero:= Qtemp.FieldByName('Numero').AsVariant;


y Luego actualizo la tabla así:


Begin
with QTemp do
begin
Close;
SQL.Clear;
SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado Where Cod =:NumC';
Parameters.ParamByName('Fecha').Value := FormatDateTime('dd/mm/yyyy', Now);
Parameters.ParamByName('Estado').Value := 'Realizado';
Parameters.ParamByName('NumC').Value := Cod;
ExecSQL;
End;
End;


Quiza no es la forma mas ortodoxa, pero se que se puede hacer mejor, porque una de las desventajas es que de esta forma solo se hace el "pago" una cuota a la ves.

¿cual seria la otra forma para que pueda hacer el "pago" de mas de una cuota?

Gracias de antemano! ^\||/

PD: intente ser lo mas claro posible, dudas, por favor preguntar.