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.
|