[[egostar]]

Empezado por Caral

Hola
Hay que ver el fondo del asunto:
El primer bloque dice que actualice la table con una sentencia sql que esta en sQuery, y ademas se le dice que la ejecute Query1.ExecSQL;
Vamos con el sengundo bloque:
Dice, de lo contrario: ELSE.
Use la misma variable sQuery y que ejecute denuevo.
La verdad no me parece logico o ejecuta o no.
Saludos

Pues eso es lo que sobra, ya lo habia comentado.

Código Delphi [-]
 
// Todo lo que tengas que hacer
 If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin       
   sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias Where 
   cclie=:cclie';
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add(sQuery);
   Query1.ParamByName('cclie').AsString:=Edit1.Text;
   Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
   Query1.ExecSQL;
end;

Ese código esta de mas, no se requiere.

Salud OS.