Ciao a Tutti,
Ho creato uno script che partendo da un documento già creato me ne crea un altro con data differente (aumentata di tot giorni, settimane o mesi). Fin qui tutto bene, lo script funziona a meraviglia. I problemi sono sorti quando ho creato due campi di tipo readers ed un capo di tipo authors. Anche quelli li ho copiati nel nuovo documento creato dallo script ma copiando i campi gli accessi non vengono rispettati nel senso che chi è presente nel campo authors non riesce più ad editare il documento.
Ecco il testo dello script :
Dim Sessione As New NotesSession
Dim db As NotesDatabase
Dim docA As NotesDocument
Dim ws As New NotesUIWorkspace
Dim dc As NotesUIDocument
Dim docB As NotesDocument
Dim itemA As NotesItem
Dim itemB As NotesItem
Dim IitemC As NotesItem
Dim itemD As Variant
Dim itemE As Variant
Dim dateTime As NotesDateTime
Dim giorni As Integer
Set db = Sessione.CurrentDatabase
Set docA = db.CreateDocument
Set dc = ws.CurrentDocument
Set docB = dc.Document
Set itemA = docB.GetFirstItem ( "data_strumento" )
Set dateTime = itemA.DateTimeValue
Set itemB = DocB.GetFirstItem ( "giorni_taratura" )
Set itemC = DocB.GetFirstItem ("addtime")
itemD = DocB.GetItemValue ("Author")
itemE = DocB.GetItemValue ("Readers_predefinito")
giorni% = Cint(ItemB.Values(0))
DocA.Author = ItemD(0)
DocA.Reparto_readers = DocB.Reparto_readers
DocA.Readers_predefinito = ItemE(0)
DocA.Nome_strumento = DocB.Nome_strumento
DocA.reparto_strumento = DocB.reparto_strumento
DocA.operatore_strumento =DocB.operatore_strumento
DocA.stato_strumento = "Non Completata"
DocA.notifica_strumento = DocB.notifica_strumento
DocA.Subform = DocB.Subform
DocA.giorni_taratura = DocB.giorni_taratura
DocA.addtime = DocB.addtime
If itemC.Values (0) = "giorni" Then
Call dateTime.AdjustDay(giorni%)
Elseif itemC.Values (0) = "settimane" Then
Call dateTime.AdjustDay(giorni%*7)
Elseif itemC.Values (0) ="mesi" Then
Call dateTime.AdjustMonth(giorni%)
End If
DocA.data_strumento = dateTime.LSLocalTime
Call docA.Save ( True, True )
Messagebox "Documento Creato Regolarmente"
Ho notato anche che andando sulle proprietà dei campi di tipo authors dei due documenti nel primo creato a mano il campo ha questa proprietà : Field Flags: SUMMARY READ/WRITE-ACCESS NAMES; mentre lo stesso campo creato con lo script ha questa proprietà : Field Flags: SUMMARY. Potrebbe essere questo il problema?
Grazie.
|