Firebird

[Márcio Barreto Santana]

Bom dia Pessoal!!!

utilizo o interbase 2.1 e tenho o seguinte senario.

preciso controlar o numero de uma nota fiscal e a serie da mesma.

Tanto o numero da nota, quanto a serie iniciam em 1. quando o numero da nota fiscal atinge 9999999999. o numero da serie deve ser incrementado em 1 e o numero da nota deve voltar para 1.

criei dois generator's:  gen_numero_nf e gen_serie_nf.

criei uma trigger NOTA_FISCAL_BI, do qual deveria funcionar da seguinte forma:

CREATE OR ALTER TRIGGER NOTA_FISCAL_BI FOR NOTA_FISCAL
ACTIVE BEFORE INSERT POSITION 0
as
begin
  if (new.cod_nf is null) then
    new.cod_nf = gen_id(gen_nota_fiscal_id,1);

    begin
        if ( gen_id(gen_numero_nf,0) = 999999999 ) then

             SET GENERATOR gen_numero_nf TO 0;

             SET GENERATOR gen_serie_nf TO (gen_serie_nf +1);      

    end
    begin
        if ( gen_id(gen_numero_nf,0) =< 999999999 ) then
        new.serie_nf= gen_id(gen_serie_nf,0);
        new.numero_nf= gen_id( gen_numero_nf,0);
    end

end

 

Só que os SET's estão dando erro. Alguém sabe como posso resolver essa situação?

[Celso Marigo Junior]

Qual o erro?

[Juliomar Marchetti]

Bom dia

pergunta boba mas por que está com a 2.1?

[Dércio Luis Zanatta]

Olá pessoal

Sei que esse Post é meio antigo, mas estou enfrentando alguns problemas com "out of memory" no Delphi 7

Utilizo Delphi 7 com Firebird 2.5.3

O que ocorre é que aleatóriamente, quando faz um Select numa tabela (não é sempre na mesma tabela) ocorre o erro de "Out Of Memory"

Não tem lógica nenhuma.. As vezes ocorre, as vezes não...

Alguém já passou por uma situação parecida ?

[EMBarbosa]

Pode ser tanta coisa que é chutar uma correção. Depende da quantidade de registros que está retornando, dos componentes de acesso, etc...

Algo que pode ajudar: Você está utilizando o FastMM?