Jump to content

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

Recommended Posts

Posted

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?

  • 2 months later...
  • Membros Pro
Posted

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 ?

  • Consultores
Posted

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
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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.
  • Este tópico foi criado há 3041 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.

The popup will be closed in 10 seconds...