Naturalmente non ho testato e ho buttato gių come mi č venuto in mente, prova. Ciao.
Dim dbIGS As New NotesDatabase( Server,"/db/IGS.nsf" )
Dim viewIGS As NotesView
Dim docIGS As NotesDocument
Set viewIGS = dbOrdine.GetView( "Per Numero" )
Set docIGS = viewIGS.GetLastDocument
If docIGS Is Nothing Then
ProgIGS = 0
Else
ProgIGS = docIGS.RNumeroOrdine(0)
ProgIGS = ProgIGS + 1
End If
dim s as new notessession
dim doc as notesdocument
doc = s.CurrentDocument \'si tratta del documento su cui si sta lavorando, l\'agente nel web query save ti passa questo doc
doc.Progressivo = ProgIGS
non ricordo se bisogna salvare o se il salvataggio del documento avviene automaticamente.
|