Grazie mille. Con il tuo suggerimento ho risolto brillantemente il problema. Non ci sarei mai arrivato da solo.
Ecco lo script modificato e funzionante :
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 NotesItem
Dim itemE As NotesItem
Dim itemF As NotesItem
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")
Set itemD = DocB.GetFirstItem ("Author")
Set itemE = DocB.GetFirstItem ("Readers_predefinito")
Set itemF = DocB.GetFirstItem ("Reparto_readers")
giorni% = Cint(ItemB.Values(0))
Call itemD.CopyItemToDocument (DocA, "Author")
Call itemF.CopyItemToDocument (DocA, "Reparto_readers")
Call itemE.CopyItemToDocument (DocA, "Readers_predefinito")
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"
Wow !!!
|