Multiple rows in singleton select (Firebird 2.1)

AS
declare variable id_venda integer;
declare variable cod_prod_v2 integer;
declare variable nome_cli_v1 varchar(65);
declare variable Est_atual_p numeric(12,2);
begin
	select
		v1.id,
		v1.nome_cliente,
		v2.cod_prod,
		p.est_atual
	from
		venda_orc v1,
	inner join
		venda_orc_prod v2 on (v2.id_venda = v1.id)
	inner join
		produto p on (p.id = v2.cod_prod)
	into
		:id_venda, :cod_prod_v2, :nome_cli_v1, :Est_atual_P;

	/* Trigger text */
	if (old.status = 'C') then
		update produto set est_atual = est_atual + old.qtd where id = old.cod_prod;
/*	else
		update produto set est_atual = est_atual + old.qtd where id = old.cod_prod;*/

	insert into HIST_PROD(ID_VENDA, DESCRICAO, QTD, COD_PROD, EST_ATUAL)
	values ( :id_venda, :nome_cli_v1, old.qtd, old.cod_prod, :est_atual_p + old.qtd);
end

AS
declare variable idvenda integer;
declare variable codproduto integer;
declare variable statusitem varchar(1);
declare variable qtditem numeric(12,2);
declare variable nomecliente varchar(65);
begin
    // se o trigger é disparado ao excluir um registro da tabela venda_orc_prod,
    // então tudo que é necessário pra manipular o estoque do produto já está à mão
    for
        select
            o.id_venda,
            o.cod_prod,
            o.status,
            o.qtd,
            v.nome_cliente
        from
            old o
        inner join
            venda_orc v on (v.id = o.id_venda)
        into
            :idvenda, :codproduto, :statusitem, :qtditem, :nomecliente
    do
        if (:statusitem = 'C') then
        begin
            update produto set est_atual = est_atual + :qtditem where id = :codproduto;
 
            insert into HIST_PROD(ID_VENDA, DESCRICAO, QTD, COD_PROD, EST_ATUAL)
            values ( :idvenda, :nomecliente, :qtditem, :codproduto, (select est_atual from produto where id = :codproduto));
        end;
end

AS
declare variable idvenda integer;
declare variable codproduto integer;
declare variable statusitem varchar(1);
declare variable qtditem numeric(12,2);
declare variable nomecliente varchar(65);
begin
    // se o trigger é disparado ao excluir um registro da tabela venda_orc_prod,
    // então tudo que é necessário pra manipular o estoque do produto já está à mão
    for
        select
            o.id_venda,
            o.cod_prod,
            o.status,
            o.qtd,
            v.nome_cliente
        from
            old o // old faz referência à tabela venda_orc_prod (o trigger deve ser disparado ao excluir ou alterar venda_orc_prod)
        inner join
            venda_orc v on (v.id = o.id_venda)
        into
            :idvenda, :codproduto, :statusitem, :qtditem, :nomecliente
    do
        if (:statusitem = 'C') then
        begin
            update produto set est_atual = est_atual + :qtditem where id = :codproduto;
  
            insert into HIST_PROD(ID_VENDA, DESCRICAO, QTD, COD_PROD, EST_ATUAL)
            values ( :idvenda, :nomecliente, :qtditem, :codproduto, (select max(est_atual) from produto where id = :codproduto));
        end;
end

CREATE OR ALTER TRIGGER DELETE_EST_VENDA_ORC_PROD FOR VENDA_ORC_PROD
ACTIVE AFTER UPDATE POSITION 0
AS
declare variable idcliente integer;
declare variable nomecliente varchar(65);
declare variable descrhist varchar(200);
begin
	for
		select
			v.id_cliente,
			v.nome_cliente
		from
			venda_orc v
		where
			v.id = old.id_venda
		into
			:idcliente, :nomecliente
	do
		if (old.status = 'C') then
		begin
			descrhist = 'VENDA ITEM C/ ' || cast(:idcliente as varchar(10)) || ' ' || :nomecliente;

			insert into HIST_PROD(ID_VENDA, DESCRICAO, QTD, COD_PROD, EST_ATUAL, DATA)
			values ( old.id_venda, :descrhist, old.qtd, old.cod_prod, ((select max(est_atual) from produto where id = old.cod_prod)+ OLD.qtd), current_date);
			-- current_date para data
			-- current_timestamp para data e hora

			update produto set est_atual = est_atual + old.qtd where id = old.cod_prod;
		end
end
^

SET TERM ; ^