[firebase-br] Auto Incremento

[Marcelo Castro - [www.ligteltelecom.com.br]]

Amigos;

Eu estou usando um generator para criar auto incremento.

Seria possível fazer eu fazer esse auto incremento direto no banco.

Porém estou usando uma query para isso.

Estou fazendo assim pelo delphi.

procedure TDM_Server.DspProdutosBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
begin
       IF UpdateKind = ukInsert THEN
    BEGIN
      if SourceDS = QryProdutos THEN
        BEGIN
           QryGenProdutos.OPEN;

           TRY
             FNUMPROD := QryGenProdutos.fieldbyname('PROD_CODIGO_NOVO').AsInteger;
           finally

           QryGenProdutos.Close;

           end;
           DeltaDS.fieldbyname('PROD_CODIGO').NewValue := FnumPROD;

           end;
           end;
end;