delete from componenteformula where tipocomponente = 'T' and sistematintometrico = 31781;
commit;

----------------------------------------------------------------------------------------

delete from produtoformula
where codpro in (select codpro from complementoproduto where sistematintometrico = 31781 and tipocomponente = 'P');
commit;
