F�rum N�o salva o resultado da query no banco de dados (Firebird) #608292

20/02/2020

function GetNumeroNFCe(aIDLoja: Integer) : Integer;
var
mQuery : TFDQuery;
begin
Result := 0;
try
QueryCriar(mQuery, False);
mQuery.SQL.Add('SELECT NFCE_SEQUENCIA FROM CONFIGURACAO');
mQuery.Open();
mQuery.CachedUpdates := True;
FrmPrincipal.ConnectConfigPDV.StartTransaction;
mQuery.Edit;
mQuery.FieldByName('NFCE_SEQUENCIA').AsInteger := mQuery.FieldByName('NFCE_SEQUENCIA').AsInteger + 1;
mQuery.Post;
Result := mQuery.FieldByName('NFCE_SEQUENCIA').AsInteger;
finally
QueryLiberar(mQuery);
end;
end;

Algu�m saberia me ajudar? N�o estou conseguindo encontrar qual � a linha que esta incorreta.
A numera��o da nota esta somando + 1 corretamente, s� n�o grava no firebird.

Ana Soares

Curtir t�pico

+ 0

Responder

Post mais votado

20/02/2020

tente assim (de qualquer forma, faltava o commit):

function GetNumeroNFCe(aIDLoja: Integer): Integer;
var
	mQuery: TFDQuery;
begin
	Result := 0;
	try
		QueryCriar(mQuery, False);
		FrmPrincipal.ConnectConfigPDV.StartTransaction; // abre a transacao
		mQuery.ExecSQL('UPDATE CONFIGURACAO SET NFCE_SEQUENCIA = NFCE_SEQUENCIA + 1');
		FrmPrincipal.ConnectConfigPDV.Commit; // confirma a transacao
		mQuery.Open('SELECT NFCE_SEQUENCIA FROM CONFIGURACAO');
		Result := mQuery.FieldByName('NFCE_SEQUENCIA').AsInteger;
		mQuery.Close;
	finally
		QueryLiberar(mQuery);
	end;
end;

S� n�o entendi a finalidade do par�metro aIDLoja

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

20/02/2020

Ana Soares

Show ! Funcionou, muito obrigada!

Eu copiei e coloquei a function de outra parte do c�digo, esqueci de apagar.o aIDLoja.

Responder

Gostei + 0

20/02/2020

Emerson Nascimento

vi que voc� usa Firebird. nesse caso recomendo a voc� utilizar GENERATOR/SEQUENCE, porque � um processo protegido, e n�o h� risco de duas inst�ncia "pegarem" o mesmo valor.

se usar generator, o instru��o seria mais ou menos assim:

function GetNumeroNFCe(): Integer;
var
	mQuery: TFDQuery;
begin
	Result := 0;
	try
		QueryCriar(mQuery, False);
		mQuery.Open('SELECT GEN_ID(NFCE_SEQUENCIA,1) PROX_NFCE FROM RDB$DATABASE');
		Result := mQuery.FieldByName('PROX_NFCE').AsInteger;
		mQuery.Close;
	finally
		QueryLiberar(mQuery);
	end;
end;

para criar o generator no Firebird:

CREATE SEQUENCE NFCE_SEQUENCIA START WITH XXX INCREMENT BY 1; -- XXX � O VALOR INICIAL, NO CASO, O �LTIMO NFCE EXISTENTE

/* Sintaxe antiga:
CREATE GENERATOR NFCE_SEQUENCIA;
SET GENERATOR NFCE_SEQUENCIA TO XXX; -- XXX � O VALOR INICIAL, NO CASO, O �LTIMO NFCE EXISTENTE
*/

/* Previl�gios para o generator */
GRANT USAGE ON SEQUENCE NFCE_SEQUENCIA TO SYSDBA WITH GRANT OPTION;

Responder

Gostei + 1

26/03/2020

Ana Soares

Obrigada! No inicio eu pensei em fazer assim, mas, n�o consegui. Ai Acabei optando pelo outro jeito, por�m desta forma que voc� explicou � mais segura sim. Vou alterar.

Responder

Gostei + 0