Salve e grazie del tuo prezioso intervento. Continua a darmi errore. Questa volta mi dice che "Set required on class instance assignment". MAH??? devo invocare delle classi???
Questo è quello che ho scritto:
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,"/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.Progressivo(0)
ProgIGS = ProgIGS + 1
End If
Dim s As New notessession
Dim doc As notesdocument
doc = s.documentcontext
doc.Progressivo = ProgIGS
End Sub
...e comunque, una volta corretto lo script che indicazioni gli devo passare sul pannello dell\'agente alla voce Runtime???
Grazie mille
|