tenho o seguinte código abaixo:
cursor c_buscar_contrato is
select
sum(a.vl_total) a,
a.cd_cliente,
b.nm_nome,
sum(c.vl_receita_negociada) b
from
publccao a,
cliente b,
meta_negociada c
where
a.cd_gestor = :contato_cliente.cd_contato and
a.cd_veiculo = to_number(:contato_cliente.list68) and
b.cd_cliente = a.cd_cliente and
c.cd_cliente = a.cd_cliente
group by a.cd_cliente,b.nm_nome,c.cd_cliente;
cursor c_buscar_agencia is
select
sum(a.vl_total) a,
a.cd_agencia_publicidade,
b.nm_nome,
sum(c.vl_receita_negociada) b
from
publccao a,
cliente b,
meta_negociada c
where
a.cd_gestor = :contato_cliente.cd_contato and
a.cd_veiculo = to_number(:contato_cliente.list68) and
b.cd_cliente = a.cd_agencia_publicidade and
c.cd_cliente = a.cd_agencia_publicidade
group by a.cd_agencia_publicidade,b.nm_nome,c.cd_cliente;
if v_tipo_plan = 01 then
go_block('CAMPOS');
first_record;
for v_cursor_a in c_buscar_agencia
loop
:campos.agencia := v_cursor_a.nm_nome;
:campos.realizado := v_cursor_a.a;
:campos.planejado := v_cursor_a.b;
next_record;
end loop;
end if;
if v_tipo_plan = 02 then
go_block('CAMPOS');
first_record;
for v_cursor_b in c_buscar_contrato
loop
:campos.agencia := v_cursor_b.nm_nome;
:campos.realizado := v_cursor_b.a;
:campos.planejado := v_cursor_b.b;
next_record;
end loop;
end if;
ORA-01001: invalid cursor
já tente fazer alguma alterações mas até agora não consegui nada, continua dando o mesmo erro.
podem me ajudar por favor!!!
obrigado,
Alex[/code]