Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png
  • Este tópico foi criado há 1792 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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?

Link to comment
Share on other sites

  • 2 months later...
  • Membros Pro

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 ?

Link to comment
Share on other sites

  • Consultores

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?

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 1792 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.