Update con Inner Join Funciona en Access pero no en firebird

[[mightydragonlor]]

Encontré este ejemplo que me ha servido de mucho con updates masivos.

Código SQL [-]
EXECUTE BLOCK
AS
DECLARE VARIABLE field1 type;
DECLARE VARIABLE field2 type;
...etc.
DECLARE VARIABLE pk type;
BEGIN
for select pk, field1, field2, ... from src_table
into k, :field1, :field2, ...
do update dest_table set field1 = :field1, field2 = :field2, ...
where pk = k;
END

Espero le sirva a alguien.

Saludos.