Lotus Notes - Como hacer consecutivos

Me han comentado que para hacer un campo que sea autonumerico , es decir que se vaya generando y autoincrementando el solo tengo que realizar un documento Profile.¿Alguien me puede decir paso a paso como?
Muchas gracias por adelantado
Cristina

Podrias explicar para que necesitas el contador , es decir para saber cuantas veces han leido un documento o para asignar un consecutivo cada que grabes un nuevo documento?

Para asignar un consecutivo cada vez que grabes un documento

Para asignar un consecutivo cada vez que grabes un documento

Cristina:

el siguiente documento es para crear un consecutivo , esta en ingles, espero no tengas problemas para traducirlo:

1 - Create a form i.e. Counter, with an editable number field in it i.e. Sequential_Number
2 - Create a view i.e. Counter, specifically for the new form. Hide the view.
3 - Create a computed text field in the DB profile document to store the UNID of the Counter document. The formula for the field is as follows:-

REM "This field finds and stores the UNID of the Counter document";
View := "Counter";
Key := "Counter";
UNID := @DbLookup("Notes": "NoCache"; ""; View; Key; "Doc_ID");
@If(@IsError(UNID); "UNID not found"; UNID)

4 - In the form that requires the sequential number, create a computed when composed text field i.e. Counter_UNID with the following code:-

@GetProfileField("Setup" ; "Counter_ID")

Again in the form that requires the sequential number, write the following code in the Queryclose event of the form that requires the sequential number:-

Sub Queryclose(Source As Notesuidocument, Continue As Variant)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As Notesdocument
Dim counterdoc As Notesdocument
Dim Workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set uidoc = Workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = Source.Document

' Check to see if you are in edit mode....
If Source.EditMode Then
'Check to see if the document is new
If uidoc.IsNewDoc Then
Exit Sub
Else
If doc.Sequentia

kreo ke falta el codigo, podrias completarlo profas..... gracias