Duvida com Campo Calculado

[vms]

Olá pessoal

Criei um campo calculado para numerar os itens da tabela

o problema é que a numeração não começa com 1 e sim com -1, assim

-1

2

3

4 ...

estou usando o codigo abaixo com um AdoTable

procedure TDM.TVendaDescCalcFields(DataSet: TDataSet);
begin
  TVendaDescItem.Value := TVendaDesc.RecNo;
end;

Desde já agradeço.

Edited December 9, 2011 by vms

[Jhonas]

use uma Query no lugar de RecNo .... e necessariamente não precisa ser um campo calculado

exemplo

// Senteça SQL da Query

select MAX( CAST(NUM AS INTEGER) ) from Vendas

procedure TDM.TVendaDescCalcFields(DataSet: TDataSet);
begin
   // Pega o registro de maior valor e soma + 1

   QOSMAx_IB.Active := true;
   reg := QOSMAx_IBMAXOFNUM.Value;
   reg := reg + 1;
   QOSMAx_IB.Active := false;

   TVendaDescItem.Value := reg;
end;

voce pode usar o mesmo código na hora de salvar os registros

abraço

[vms]

opa! não era bem isso que eu queria mas me ajudou em outra coisa.

Este campo calculado que criei serve apenas para mostra a qtd de registro e não um tipo de autoincremento.

este codigo funcionava perfeitamente mas agora o primeiro registro mostra -1 onde deveria ser apenas 1 e resto da sequencia fica normal (-1, 2, 3, 4 ... )