Newsgroup: it.comp.appl.notes-domino
Titolo: Problema con DocLink

Un saluto a tutti.
Seguo da tempo questo forum e a volte ho risposto con altri nick, ma oggi
per la prima volta ho un problema e vorrei chiedere il vostro aiuto.
Ho avuto modo di verificare nel post passati, che questo topic è stato già
trattato ma nonostante ciò non ho trovato soluzione al mio problema. Ho già
impostato la Vista Standard per il corretto funzionamento dello script.
Ho costruito un script che mi consente di inviare una E-mail da un database
per il rilievo orario, che richiede l'approvazione al responsabile. Tutto
sembra funzionare correttamente, ma quando clikko sul DocLink in allegato
alla mail ricevuta dallo script non succede nulla. Nelle proprietà del
Collegamento mi viene indicato soltanto il testo "DocLink" indicato nel
codice, ma a quanto pare questo non è sufficiente per puntare correttamente
al documento coinvolto.
Questo il codice del pulsante "Richiedi approvazione" utilizzato nel form:
--------------------
Sub Click(Source As Button)
 
Dim ws As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesuiDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
 
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
 
 
SendTo = "Destinatario"
Nome = Cstr(doc.Dipendente(0))
Quanto = Cstr(doc.OrePerm(0))
doc.Form = "Memo"
doc.Subject = "Richiesta di approvazione: " + Cstr(doc.Richiesta(0))
 
Set rtitem = New NotesRichTextItem ( doc, "Body")
Call rtitem.appendtext("Richiesta di approvazione da parte di " + Nome + "
per 
n.ro
 " + Quanto + " ore. Clicca sul DocLink seguente.")
Call rtitem.addnewline(1)
Call rtitem.appenddoclink(doc, "DocLink")
Call doc.save (True, True)
Call doc.Send( False, SendTo)
 
End Sub
------------------
cosa sbaglio ?
Utilizzo Notes & Designer ver 5.0.11 su Server 5.08
Un grazie anticipato a tutti coloro che vorranno dedicarmi il loro tempo
Saluti
Gianluca
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Call rtitem.appenddoclink(doc, "DocLink")
[cut]
prova così
 Call rtitem.appenddoclink(doc, db.title)
--
absolute


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Prova a mettere il 
call doc.save(true,true)
prima dell'appenddoclink
--
absolute

Ho effettuato anchhe questa prova. Nisba ...
Ho come la sensazione che solo db.Title non basti.
Bisognerebbe passargli più informazioni.
Sei al corrente se esiste qualche vincolo e/o limitazione all'uso della
classe NotesRichTextItem ? ( ex. non funziona se il db è in locale o altro
del genere )


 
Credo proprio sia quello il problema.(almeno mi sembra che avevo avuto 
anch'io un problema simile) ..prova mettere il db sul server e verifica.
 
--
absolute

 anch'io un problema simile) ..prova mettere il db sul server e verifica.
scusate se mi intrometto:
ho modificato il tuo codice come segue e funziona correttamente sia in
locale che sul server. In pratica noterai che non invio il documento
originale ma un nuovo documento che ho chiamato "Note", anche perchč
il tuo codice andava a cambiare il nome della form nel documento
originale. Provalo e facci sapere. Ciao
p.
Sub Click(Source As Button)
	Dim ws As New notesuiworkspace
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim uidoc As NotesuiDocument
	Dim doc As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim Note	As NotesDocument
 
	Set db = session.CurrentDatabase
	Set Note = New NotesDocument(db)
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document
 
 
	SendTo = "Destinatario"
	Nome = Cstr(doc.Dipendente(0))
	Quanto = Cstr(doc.OrePerm(0))
	Note.Form = "Memo"
	Note.Subject = "Richiesta di approvazione: " + Cstr(doc.Richiesta(0))
 
	Set rtitem = New NotesRichTextItem ( Note , "Body")
	Call rtitem.appendtext("Richiesta di approvazione da parte di " +
Nome + "per 
n.ro
 " + Quanto + " ore. Clicca sul DocLink seguente.")
	Call rtitem.addnewline(1)
	Call rtitem.appenddoclink(doc, "DocLink")
 
	Call Note.Send( False, SendTo)
 
End Sub

In effetti hai ragione. A quanto pare il meccanismo Front-End Back-End, non
mi era ben chiaro.
Grazie infinite per il tuoi aiuto.


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/