Procedimiento que no procesa todos los registros

[[sitrico]]

Buenas, tengo un procedimiento que debería ajustar el valor de un campo en otra tabla por cada ocurrencia del campo clave:

Código SQL [-]
CREATE PROCEDURE AD_ANULARPROFORMA (
    elidproforma integer)
as
declare variable vidservasig integer;
declare variable vcantidad integer;
declare variable vcodigo char(20);
begin
  For select idservasig, Cantidad, Codigo
  from ad_detalleproformas
  Where IdProforma = :elidproforma
  Into :vidservasig, :VCantidad, :vcodigo Do
     Begin
     UPDATE ad_serviciosasignados SET idproforma = 0
     WHERE ad_serviciosasignados.idservasig = :vidservasig;
     suspend;
  End
end

Se supone que por cada idservasig encontrado ajustará

idproforma = 0

Pero no ejecuta si tengo más de un registro

Alguien me puede echar una mano? Gracias