execute block
as
declare variable T_CLIENT integer;
declare variable T_EMAIL_DATA integer;
declare variable T_EMAIL varchar(255);
begin
for select CLIENT, EMAIL_DATA, replace(EMAIL, 'edi@domen.ru', 'edi@domen.com')
from CLIENT_EMAIL_DATA
into :T_CLIENT, T_EMAIL_DATA, T_EMAIL
do
begin
update CLIENT_EMAIL_DATA
set EMAIL = :T_EMAIL
where CLIENT = :T_CLIENT and EMAIL_DATA = :T_EMAIL_DATA ;

end
end