CONNECT g121if685_eq05/123456@//itapissuma.cin.ufpe.br:1521/dbdisc ;

questoes or

1)
select a.telefones from funcionario_tb a 
where 1< (select count(distinct(deref(c.escritorio).id_esc)) from contrata_tb c 
where a.cpf=c.funcionario.cpf) and 5>(select count(distinct(deref(c.escritorio).id_esc)) from contrata_tb c 
where a.cpf=c.funcionario.cpf);

2)
select a.nome,sum(f.duracao) from funcionario_tb a,equipamento_tb f where a.cpf in 
(select deref(b.funcionario).cpf from contrata_tb b where b.id_contrata in
(select deref(c.contrata).id_contrata from equipamento_tb c where c.duracao = f.duracao))
and 1< (select count(deref(p.gerente).cpf) from funcionario_tb p where a.cpf=p.gerente.cpf) group by a.nome ;

3)
insert into cliente_tb (id_cliente,nome,telefones,email,endereco) 
values (2223,'filho2',telefones_cl_nt(32710421,88447695),email_nt('bol','uol'),
(select e.endereco from funcionario_tb e where e.dataNascimento =(select min(x.dataNascimento) from funcionario_tb x )));

4) alter type evento_tb add constructor function evento_tp (tipo varchar2) return self as result cascade;

	create or replace type body evento_tp as 
	constructor function evento_tp(tipo varchar2) return self as result
	is
	
	begin
	IF tipo = 'feira' THEN
	  	duracao := 1;
	end if;
	if tipo = 'festival' then
		duracao := 3;
	end if;
	if tipo = 'congresso' then
		duracao :=	7;
	end if;
	return;
	end;
end ;

	insert into tb_evento (id_evento,duracao) values(1,evento_tp('feira'));

5)
	alter type escritorio_tp add member function custo return varchar2 cascade;
	
	create or replace type body escritorio_tp as 
	
	
	member function custo return varchar2 is
	media float;

	begin
		select avg(x.preco) into media from escritorio_tb p , equipamento_tb x where p.id_esc in
	(select deref(a.escritorio).id_esc from contrata_tb a where a.id_contrata in
	(select deref(m.contrata).id_contrata from equipamento_tb m where x.id_esq=m.id_esq    ) ) and id_esc=self.id_esc; 
	
	if media <200 then return 'baixo custo';
	end if;
	
	if media > 200 and media <500 then return 'medio custo';
	end if;
	if media >500 then return 'alto custo';
	end if;
	
	end;
end;

6)
alter type cliente_tp add member function ev return number cascade;


create or replace type body cliente_tp as
member function ev return number is

ret number;
	

begin

	select count(distinct(e.id_evento)) into ret from tb_evento e,associado_tb a where 
		1<(select count(*) from table(select p.pontos_vendas from tb_evento p where e.id_evento=p.id_evento )) 
			and e.id_evento = (select deref(v.evento).id_evento from associado_tb v where v.id_associado = a.id_associado) 
				and self.id_cliente = (select deref(f.cliente).id_cliente from associado_tb f 
					where f.id_associado= a.id_associado);

	return ret;
end;

end;

7)
alter type pessoa_fisica_tp add member procedure ret cascade;



create or replace type body pessoa_fisica_tp as
member procedure ret
	 is 
	 
	 nomev varchar2(100);
	 cnpjv number;
	 qtd number;
	 cursor c  is select n.nome,n.cnpj,count((select * from table(select a.telefones from pessoa_juridica_tb a where a.cnpj=n.cnpj ))) 
			from pessoa_juridica_tb n where n.endereco.cidade = 
			(select x.endereco.cidade from pessoa_fisica_tb  x  where x.cpf=self.cpf) group by n.nome,n.cnpj;
			
	 
	 
	 begin 
	 open c;
	 fetch c into nomev,cnpjv,qtd;

		dbms_output.put_line( nomev);
		dbms_output.put_line( cnpjv );
		dbms_output.put_line( qtd );
	 
			
	 end;
end;

8)
create or replace type body funcionario_tp as
   member procedure func (datai DATE,dataf DATE) is
   
   id number;
   nome varchar2(100);
   cursor c is select e.nome,e.id_esc into nome,id from escritorio_tb e ,contrata_tb c where e.id_esc=(select deref(a.escritorio).id_esc  from contrata_tb a where a.id_contrata=c.id_contrata)
   and self.cpf=(select deref(f.funcionario).cpf from contrata_tb f where f.id_contrata = c.id_contrata) and c.data_contratacao>datai and c.data_contratacao<dataf;
   
   
   begin  
   open c;
   fetch c into nome,id; 
   
   dbms_output.put_line('Id:'||id||'Nome:'||nome);
   
   end;
  end; 

	//teste
	declare 
	f  funcionario_tp;
	begin
	f:= funcionario_tp(null,null,null,null,null,112,null,null,null);
	
	f.func(to_date('05/04/2010','dd/mm/yyyy'),to_date('05/04/1990','dd/mm/yyyy'));
	end;

9)
	não consegui fazer o select dessa questao
	alter type funcionario_tp add map member function compara return varchar cascade;
	
	create or replace type funcionario_tp as
	map member function compara return varchar
	as 
	   begin
	   return self.nome;
	   end;
	end;   
	
	select e.nome from equipamento_tb e where e.clientes is not dangling order by (select e.clientes from table(select c.clientes from equipamento_tb c where c.id_esq=e.id_esq));

 
  
10) insert into funcionario_tb (nome,salario,dataNascimento,vinculo,funcao,cpf,endereco,gerente) values ('CEP',100.50,to_date('04/05/2011','dd/mm/yyyy'),'nenhum','partner',5,endereco_tp('0300','alots','abb','zumba','olinda',100,'bala'),(select ref(e) from funcionario_tb e where e.cpf=0));
  
	alter type funcionario_tp add order member fuction  match (f in funcionario_tp) return number cascade;
  
	
	create or replace type funcionario_tp as
	order member function compara (f in funcionario_tp) return number
	as 
	   begin
	   return self.cpf;
	   end;
	end;

	select deref(f.funcionario).nome from contrata_tb f where f.funcionario.telefones is null and f.funcionario.endereco.cidade = 'olinda' order by deref(f.funcionario);
	





questoes xml


1)
declare

cursor c is select * from funcionario_tb where endereco is not null;

reg_c c%rowtype;

begin 
open c;

loop

fetch c into reg_c;
exit when c%notfound;

	update funcionario_tb set nometag = (select sys_xmlgen(nome) from funcionario_tb where cpf=reg_c.cpf) where cpf = reg_c.cpf;
	end loop;
close c;
end;	
/
2)
	declare
	ctx dbms_xmlgen.ctxhandle;
	result clob;
	
	begin
	
	ctx := dbms_xmlgen.newContext('select l.nome,l.id_local from local_tab l , tb_evento e
	where e.id_evento=(select deref(x.evento).id_evento from local_tab x where x.id_local= l.id_local and
	1= (select count(*) from table( select p.pontos_vendas from tb_evento p where p.id_evento  = e.id_evento))	
	)');
	DBMS_XMLGEN.setRowsetTag(ctx,'Centro_de_Convencoes');
	DBMS_XMLGEN.setRowtag(ctx,'Local');
	
	result := dbms_xmlgen.getXML(ctx);
	dbms_output.put_line(result);
	
	dbms_xmlgen.closeContext(ctx);
end;
/
3)
	alter type pontos_de_vendas_tp add attribute xml sys.xmltype cascade;

	declare
	ctx dbms_xmlgen.ctxhandle;
	cursor cursor is
		select * from pv_tb;
		
		c clob;
		
begin 
	for l in cursor loop
	ctx := dbms_xmlgen.newContext('select nome,id_pv,endereco from pv_tb
	where id_pv=' || l.id_pv);
	DBMS_XMLGEN.setRowsetTag(ctx, 'RAIZ');
    DBMS_XMLGEN.setRowTag(ctx,'Pontos_de_Venda');
	
	c:= dbms_xmlgen.getXML(ctx);
	dbms_output.put_line(c);
		
	update pv_tb p set xml = sys.xmltype.createxml(c) where p.id_pv = l.id_pv;	
		
	dbms_xmlgen.closeContext(ctx);
    end loop;
end;
/
		
4)
declare 
       ctx dbms_xmlgen.ctxhandle;
       cursor c is
               select * from equipamento_tb e;        
       result clob;
begin                
       for linha in c loop
               ctx := dbms_xmlgen.newContext( 
                       'select p.id_esq as id, p.nome  as NOME ,p.preco as PRECO from equipamento_tb p 
						where p.id_esq = ' || linha.id_esq );
               DBMS_XMLGEN.setRowsetTag(ctx, 'RAIZ');
               DBMS_XMLGEN.setRowTag(ctx,'EQUIPAMENTO');
               result := dbms_xmlgen.getXML(ctx);
               dbms_output.put_line( result );
               
			   update equipamento_tb p set preco = 300;
               dbms_xmlgen.closeContext(ctx);        
       end loop;
end;
/