Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

  • 2 meses depois ...
  • 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 para o comentário
Compartilhar em outros 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
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.
Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.