Dados atualizados na tela - Firebird

Question

Pessoal, estou precisando de uma ajuda muito especial.Tenho um cadastro de construtoras feito em Firebird e estou conseguindo cadastrar beleza.Mas depois que dou um POST, preciso que os dados que acab...

Facc · Answer

[quote:c0c25f3168=�Rodrigo Lima�]Pessoal, estou precisando de uma ajuda muito especial.

Tenho um cadastro de construtoras feito em Firebird e estou conseguindo cadastrar beleza.

Mas depois que dou um POST, preciso que os dados que acabei de digitar estejam na tela para o usu�rio consultar (ver se digitou certo por exemplo). Mas o c�digo da construtora, que � gerado por uma generator s� aparece depois que dou um REFRESH.

E o REFRESH volta para o primeiro registro. Como fazer para corrigir esse problema. J� estou ficando doido.

Valeu.[/quote:c0c25f3168]

O c�digo � gerado atrav�s de Generator?

se sim, coloque no OnNewRecord da table/query, pois assim no momento que vc clicar pra inserir ele trar� o c�digo

Rodrigo Lima · Answer

Facc, valeu pela ajuda, mas n�o funcionou. N�o sei se estou fazendo alguma coisa errada, pois sou novo no Firebird.

O c�digo � gerado por uma trigger e um generator.

Ser� que voc� poderia dar um exemplo de c�digo?

Obrigado

Rodrigo

Facc · Answer

Para trazer o generator em tempo de execu��o

function  Generator(sNome : String) : Integer;
var
  qryPesquisa : TQuery;
begin
  qryPesquisa := TQuery.Create(nil);
  qryPesquisa.DatabaseName := FPrincipal.DatabaseSistema.DatabaseName;
  qryPesquisa.SQL.Text := � select gen_id(�+sNome+�, 1) codigo �+
                          � from rdb$database                  �;
  qryPesquisa.Open;

  Result := qryPesquisa.FieldByName(�codigo�).AsInteger;

  qryPesquisa.Close;
  qryPesquisa.Free;

end;

Vc deve usar assim

 no OnNewRecord coloque:

  TabelaCampoCodigo.asinteger := Generator(�Nome Generator�);

e antes de dar o refresh, vc pega o c�digo do cadastro e faz um locate

Rodrigo Lima · Answer

Facc, mais uma vez obrigado.Vou testar e ver se funciona.Rodrigo...

F�rum Dados atualizados na tela - Firebird #339765