Código Delphi
[-]Begin
with QTemp do
begin
Close;
SQL.Clear;
SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago = :Fecha, Estado = :Estado, Mora = :Mora '+
'Where (NumPrestamo =:Codigo) and (Numero =:Numero)';
Parameters.ParamByName('Fecha').Value := FormatDateTime('dd/mm/yyyy', Now);
Parameters.ParamByName('Estado').Value := 'Realizado';
Parameters.ParamByName('Mora').Value := Edit1.Text;
Parameters.ParamByName('Codigo').Value := EnumPrestamo.Text;
Parameters.ParamByName('Numero').Value := ????
ExecSQL;
end;
End;
Esto es lo que tengo hasta ahora, esta incompleto, como lo termino?