Perdon por la etiqueta SQL. Tuve un error.
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;