ti posto lo script che adesso funziona..., leggendo l\'help del designer ho visto he bisogna cambiare qualcosa se il documento da copiare e\' gia\' aperto e non selezionato dalla vista:
Sub facturarectif
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument, doc2 As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Set doc2 = New NotesDocument(db)
Call doc.CopyAllItems(doc2)
doc2.Form="Fattura"
doc2.Codice_1=""
doc2.F_Annulata="SI"
doc2.F_Pagata="SI"
Set uidoc = workspace.EditDocument( True , doc2)
Call uidoc.refresh
Msgbox "ahora es posible poner el motivo, cambiar la fecha y numerar ",64 , "Operacion terminada"
End Sub
Zeus
|