Problemas con un contador.

[simon]

Hola UTECYBE

no se si tiene repuesta de tu pregunda pero lo que quiere es un autoIncremento, el codigo es el siquiente.

procedure TFrm_Giros.Tbl_SolicitudDocumentoNewRecord(DataSet: TDataSet);
begin
if Tbl_SolicitudDocumento.State = dsInsert Then
Begin
Qry_Secuencia.Open;
Numero_Documento := Tbl_SolicitudDocumentoNumero_Documento.Value;
Tbl_SolicitudDocumentoNumero_Documento.Value := Qry_Secuencia.Fields[0].AsInteger + 1;
Qry_Secuencia.Close;