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;

Firefird, exceção no firewall do windows

@ECHO OFF netsh advfirewall firewall add rule name="Firebird" dir=in action=allow protocol=TCP localport=3050 netsh firewall add portopening protocol=TCP port=3050 name="Firebird" mode=ENABLE scope=SUBNET goto end :end