[firebase-br] Auto Incremento

[Reijanio Nunes Ribeiro]

se vc usar direto no evento onnewrecord no clientdataset n seria mais facil
não?
ClientesIDcli.value := clientes.recordcount + 1

Em 20/04/07, Marcelo Castro - [www.ligteltelecom.com.br] <
marcelo.castro em ligteltelecom.com.br> escreveu:
>
> 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;
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>