Saludos, Yo de nuevo, fabrique una solución poco ortodoxa porque no se me ocurrió nada mas para resolver esto
, si tienen alguna observación me gustaría saberla, Gracias.
Código Delphi
[-]Var
Cod, Numero : String;
Begin
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;
Begin
with QTemp do
begin
Close;
SQL.Clear;
SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado, Mora = :Mora '+
'Where Cod =:NumC';
Parameters.ParamByName('Fecha').Value := FormatDateTime('dd/mm/yyyy', Now);
Parameters.ParamByName('Estado').Value := 'Realizado';
Parameters.ParamByName('Mora').Value := Edit1.Text;
Parameters.ParamByName('NumC').Value := Cod;
ExecSQL;
End;
End;
End;;
Tuve que crear un campo autonumerico que denomine "Cod" para que tuviera un valor único y así luego poder hacer el UPTADE a ese único registro.
Cualquier sugerencia sera bien recibida.
Gracias.