Actualizar un Registro Por SQL con varios parametros

[Edwardfeliz]

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?

[mallenat]

Yo lo resolvería por SQL, con una subselect. El valor de número vendria de:

Código SQL [-]
SELECT Min(Numero)
FROM Cuotas
WHERE NumPrestamo = :Codigo

*Sin conocer tu esquema de base de datos puede que en el where falte alguna condición. La idea es conseguir el mínimo número que te interese en esta select.

Si tu motor de base de datos admite subselects en un update lo puedes juntar:

Código SQL [-]
UPDATE Cuotas SET Fecha_Pago = :Fecha, Estado = :Estado, Mora = :Mora  
Where (NumPrestamo =:Codigo) and (Numero = (
    SELECT Min(Numero)
    FROM Cuotas
    WHERE NumPrestamo = :Codigo
))

En caso contrario deberías averiguar primero el mínimo y luego llamar a tu query.

[Edwardfeliz]

en resumen tengo esto:

Código Delphi [-]
with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado, Mora = :Mora '+
               'Where (NumPrestamo =:Codigo) and (Numero = (SELECT Min(Numero) '+
               'FROM Cuotas WHERE NumPrestamo = :Codigo))';
    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;
    ExecSQL;
    end;

Pero estoy recibiendo el error de parametro "fecha" no encontrado.

[[AgustinOrtu]]

Revisa el valor de la propiedad QTemp.Connection

[Edwardfeliz]

El código no da error pero en la base de datos no pasa nada

[Casimiro Notevi]

Abre el programa que uses para gestinar las bases de datos y ejecuta el sql desde allí, "juega" haciendo cambios para comprobar qué registros cumplen la condición.
Ahí no podemos ayudarte mucho si no podemos probar con tu base de datos.

[Edwardfeliz]

Empezado por Casimiro Notevi

Abre el programa que uses para gestinar las bases de datos y ejecuta el sql desde allí, "juega" haciendo cambios para comprobar qué registros cumplen la condición.
Ahí no podemos ayudarte mucho si no podemos probar con tu base de datos.

anexo la base de datos y los archivos delphi? para que hagan pruebas?