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

buscasr pedido da nfe

SELECT
'0' || a.usrempresa as empresa,
strzero(A.USRID,7) as codigo,

C.ID as numerodunfe,
d.numero as notanfe,
d.numero as notafiscal


/*$$IBEC$$ A.ID as Nfe_TBNfes_ID,
A.Gid as Nfe_TBNfes_GID,
B.SERIE AS SERIE,
B.Numero AS NOTANFE,
C.ID AS NUMERODANFE,
A.* $$IBEC$$*/
FROM NFE_TBITEMSCONCLUIDOS A
INNER JOIN Nfe_Tbnfeside B ON A.Id = B.Gid
INNER JOIN Nfe_Tbnfes C ON C.GId = A.Id
inner join nfe_tbnfeside d on(d.gid = a.id)
WHERE A.USREMPRESA = '01'
--AND A.USRID = '0006978' // numero do pedido
AND A.Tipoitem = 1
and a.usrid < '900000000'

trigger

SET SQL DIALECT 3;


SET TERM ^ ;



CREATE OR ALTER TRIGGER TVENPEDIDO_1000 FOR TVENPEDIDO
ACTIVE BEFORE INSERT OR UPDATE POSITION 9
AS
begin
/* Trigger text */
if (new.tipooperacao in ('02','99')) then
begin
new.valorbruto = new.valorliquido;
new.percdesc = 0;
new.valordesconto = 0;
new.tipodesconto = null;
end
end
^


SET TERM ; ^


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



SET SQL DIALECT 3;


SET TERM ^ ;



CREATE OR ALTER TRIGGER TVENPRODUTO_1000 FOR TVENPRODUTO
ACTIVE BEFORE INSERT OR UPDATE POSITION 9
AS
DECLARE Variable IdOperacao varchar(02);
begin
/* Trigger text */
select a.tipooperacao
from tvenpedido a
where a.empresa = new.empresa and
a.codigo = new.pedido
into :idoperacao;

if (idoperacao in('02','99')) then
begin
new.percdesc = 0;
new.vlrdesc = 0;
new.preditado = new.vendido;
new.prvendido = new.vendido;
new.prpauta = new.vendido;
end
end
^


SET TERM ; ^

Inserindo um lote

select '14' as empresa,
4 as lote, --- insira o numero do lote
a.produto,
a.estdisponivel as qtdcontada,
a.estdisponivel as estoque,
a.estdisponivel as diferenca



from


testestoque a
where a.empresa = '14'
and a.almox = '01'

Salario minimo 2011

Até agora, o novo salario mínimo é de R$ 540,00 de acordo com a medida provisoria 516.

http://www.in.gov.br/visualiza/index.jsp?data=31/12/2010&jornal=1&pagina=6&totalArquivos=168