Approfitto della tua pazienza per chiederti una cortesia, visto che non riesco ad ottenere quello che voglio...
Come posso modificar equesto script per fare un " exit sub " se il campo "progressivo" del documento aperto in edit non e\' vuoto "" ??
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,"pippo/pluto.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
Grazie,
Zeus
|