Encontrar registro duplicado no firebird (having)

select  a.empresa,
        a.codigo,
        count(a.codigo)

from
tvenpedido a
group by 1,2
having count(a.codigo) > 1;


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

select  b.empresa,
        b.identificador,
        count(b.identificador)

from
tvenproduto b
group by 1,2
having count(b.identificador) > 1;