Correccion de Sintanxis

[sierraja]

Saludos a todos

Estoy utilizando firebird 1.5 y delphi 7. Utilizo la interface ibexpert para checar las tablas, pero hice un procedimiento y despues de investigar un poco y quedo de esta manera:

Código SQL [-]
FOR SELECT codigo_suscriptor, tipo_tarifa, tipo_factura, fecha, base_imponible, excento
    FROM facturacion f
    where (f.tipo_tarifa=:x_tipo_tarifa) and (f.tipo_factura=:x_tipo_factura) and (fecha=:x_fecha)
  INTO :cod, :tip_tar, :tip_fac, :fec, :bas_imp, :exc
  DO
    update facturacion
    set base_imponible=cloaca;
  suspend;

Ahora quisiera saber si este procedimiento tiene algun error, por que no me hace lo que yo quiero, que es: cambiar el valor que tiene base_imponible por cloaca y que todos sean de tipo_tarifa='Residencial and tipo_factura='Consumo'. Ademas coloque fecha para hacer una prueba, pero en realidad el parametro es el mes y el a#o solamente. Gracias por su atencion.