ClientDataSet e Generator

Question

Bom o problema � simples tenho a seguinte tabela com o seguinte generator e abaixo a trigger[code:1:3f4892432c]CREATE GENERATOR LCTO_LIVROS;CREATE TABLE LCTOEMPRE_DEVOL (    CHAVE_1         INTEGER NO...

Beppe · Answer

Acho que o Before Insert s� ocorre ap�s o ApplyUpdates. Inicialize o campo CHAVE_1 com um valor qualquer, e na trigger remova o teste is null....

Bon Jovi · Answer

Nao vejo pq usar trigger pra pegar ID, acho q s� atrapalha, como foi nesse caso. Prefiro nao complicar:

function TDataModule2.GeraSequenceInterbase(Nome: string): integer;
begin
  SQLDataSet.Close;
  SQLDataSet.CommandText := 
    �SELECT GEN_ID(� + Nome + �, 1) AS NOVO_ID FROM RDB$DATABASE�;
  SQLDataSet.Open;
  Result := SQLDataSet.FieldByName(�NOVO_ID�).AsInteger;
  SQLDataSet.Close;
end;

  ClientDataSet.Append;
  ClientDataSet.FieldByName(�CHAVE_1�).AsInteger := GeraSequenceInterbase(�LCTO_LIVROS�);
  ClientDataSet.Post;
  ClientDataSet.ApplyUpdates(-1);

Ltres · Answer

concordo com Bon Jovi, fa�a uma rotina padrao q pode ser usada com qualquer generator. Algo do tipo

function RetornaGenerator(vGen: String; Conect: TSQLConnection): integer;
var
  TMPsql: TSQLQuery;
begin
  Result := -1;

  try
    TMPsql := TSQLQuery.Create(nil);
    TMPsql.SQLConnection := Conect;
    TMPsql.SQL.Text := �SELECT GEN_ID(� + vGen + �, 1) AS VLR FROM RDB$DATABASE�;
    TMPsql.Active := True;
    Result := TMPsql.FieldByName(�VLR�).AsInteger;
  finally
    TMPsql.Free;
  end; 
end;

Rhosaka · Answer

Valeu pessoal,consegui resolver meu problema...At� mais.....

F�rum ClientDataSet e Generator #45562