Lotus Notes - correlativo con error

Pedro gracias por la informacion que me enviaste pero al momento de presionar el boto de guardar ese me da el siguiente error "Object varible no set" seguro es un error que estoy cometiendo es por ellos que te voy a explicar paso a paso lo que he hecho:

* cree el formulario llamado correlativo y coloque un campo tipo text editable
* coloque un boton llamado guardar y en el lotusScript y coloque la rutiba que me enviaste
* coloque un botos de accion y coloque las instrccuines @command([FileSave]) ; @command([FileCloseWindow])
*cree la vista con el numero 0
Pero nada si me puedes dar

ok paso a paso, este es un ejemplo que hice y funciono, te lo mande al correo
pero de todas formas lo voy a postear:

1) Crear un Formulario llamadao "(correlativo)" agregar:
campo tipo texto editable llamado "correlativo"
botón Grabar con la siguiente formula :
@Command([FileSave]);
@Command([FileCloseWindow]);

1.1) Poner en marcha el formulario , en el campo colocar un cero (0) , luego pulsa el boron grabar.

2) Crear una vista que se llame (correlativo), en el item "View Selection" agrega la sgte formula:
SELECT ((Form = "(correlativo)"))

3) Crea un formulario (donde va a correr el correlativo), agrega los campos que quieras ej : nombre
Direccion, etc..,
- agrega un campo que se llame "Correlativo" de tipo texto editable y ocúltalo
para notes..
- Agrega un botón de acción (Menú Create->Action->Action)
llámalo Grabar, en las condiciones para ocultar (segunda pestaña en las propiedades del botón)
agrega la sgte formula "@IsNewDoc", y en la formula agrega esta :
@Command([FileSave]);
@Command([FileCloseWindow])
- Agrega otro botón de Acción
llámalo Grabar, en las condiciones para ocultar (segunda pestaña en las propiedades del botón)
agrega la sgte formula "!@IsNewDoc", y en la acción agrega el sgte código LS.

Sub Click(Source As Button)

Dim s As New notessession
Dim doc As notesdocument
Dim thisdoc As notesdocument
Dim uidoc As notesuidocument
Dim ws As New notesuiworkspace
Dim db As notesdatabase


Set db=s.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set thisdoc = uidoc.document

Set view = db.GetView("(Correlativo)") ' esta vista contiene un solo documento
Set doc = view.GetFirstDocument

CorrDelDocumento = Cdbl(doc.Correlativo(0) + 1)
doc.Correlativo = Cstr(Cdbl(doc.Correlativo(0)) + 1)
Call doc.save(1, 1)

Msgbox "Su documento ha sido creado con el código " & corrDelDocumento, 64, "Mensaje"

Call thisdoc.ReplaceItemValue("Correlativo",CorrDelDocumento)
Call thisdoc.save(1,1)
uidoc.save
uidoc.close

End Sub

- Graba el formulario, correlo graba y te debería aumentar el correlativo
bueno espero que te sirva, si necesitas que te re-envie la base de datos al correo solo dime.

un favor serias tan amable de hacerme llegar un manual de programacion en lotus por fa si gracias