Salve, io dovrei creare un identificatore incrementale univoco per ogni
documento.Nella mia form ho inserito un campo UID number computed.Ho inserito
nella funzione Initialize(Globals) il seguente codice:
Sub Initialize
\' Declare all variables
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim view As NotesView
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim contatore As Integer
contatore = 0
\'if the document is new, set several properties
If uidoc.IsNewDoc Then
\'UID viene incrementato
contatore =contatore +1
End If
\'set the UID
doc.UID = contatore
End Sub
..ma non funziona :yellow_confused.gif: Qualcuno mi potrebbe aiutare.Grazie
|