[quote]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[/quote]
ma se fai cosi imposti il campo UID sempre a 1 per qualsiasi documento!!!
Dovresti:
- creare una vista che contenga solo questi documenti ordinati per UID
discendente
- alla primo salvataggio del nuovo documento prendi il primo documento della
vista ed incrementi lo UID che trovi:
Sub QuerySave(......)
if UiDoc.IsNewDoc then
\'Setti la vista
\'Prendi il primo documento della vista
\'incrementi il contatore
Set View = db.GetView("NOME_DELLA_VISTA")
Set FirstViewDoc = View.GetFirstDocument
if not(FirstViewDoc is nothing) then
CurDoc.UID = FirstViewDoc.UID(0) + 1
else
CurDoc.UID = 1
end if
End Sub
ciao
P.
-
|