Allora ci riprovo. Ho scritto questo codice e l\'ho inserito nell\'initialize di un\'agente che si chiama NUMERA il quale ho provato a metterlo in runtime nelle più diverse maniere.
Sub Initialize
Dim objNSServer As New NotesSession
Dim objDbServer As NotesDatabase
Dim Server As String
Set objDbServer = objNSServer.currentdatabase
Server = Cstr(objDBServer.server)
Dim dbIGS As New NotesDatabase( Server,"/meucci/IGS.nsf" )
Dim viewIGS As NotesView
Dim docIGS As NotesDocument
Set viewIGS = dbIGS.GetView( "Per Numero" )
Set docIGS = viewIGS.GetLastDocument
If docIGS Is Nothing Then
ProgIGS = 1
Else
ProgIGS = docIGS.Progressivo(0)
ProgIGS = ProgIGS + 1
End If
Dim session As NotesSession
Set session = New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext
doc.Progressivo = ProgIGS
Call doc.Save( True, True )
End Sub
Nella Form che si chiama Segnalazione ho indicato nella proprietà WebQuerySave la Formula: @Command([ToolsRunMacro]; "NUMERA")
All\'interno della form, oltre ad un campo numerico editabile che si chiama Progressivo, c\'è un semplice bottone che fa @Command([FileSave])....salva...tutto regolare
ma non succede niente!!!
AIUTO !!!! ...e buon fine settimana.
|