Newsgroup: it.comp.appl.notes-domino
Titolo: COSA SBAGLIO

Nel mio form ho un pulsante di attivazione che fa questo
	Dim ses As New notesSession
	Dim ui As New notesUiWorkSpace
	Dim uidoc As notesuidocument
	Dim db As notesDatabase
	Dim coll As notesDOcumentCollection
	Dim extDoc As notesDocument
	Dim curDoc As notesDocument 
	Dim res As Variant
	Dim pos As Integer
	Dim rtitem As NotesRichTextItem
	Set db = ses.currentDatabase
	Set uidoc = ui.currentdocument
	Set curDoc = ui.currentDocument.document
	Set rtitem = New NotesRichTextItem( curdoc, "mc_link" )
 
	If Not ui.CurrentDocument.EditMode Then ui.CurrentDocument.EditMode = 
True 
	Set res = ui.PickListCollection (PICKLIST_CUSTOM,False,db.server, 
"extdbi.nsf","Reclami","Selezione" ,"Selezionare un reclamo") 	If res.
count = 0 Then 		Messagebox "Nessun reclamo 
Selezionato!",48,"Attenzione" 		Exit Sub	
	End If
 
	Set extDoc = res.getFirstDocument
 
	' Aggiorno il documento
	curDoc.mc_rif = extDoc.mc_prog_1(0) & "/" &  extDoc.mc_anno_1(0)
	Call rtitem.AppendDocLink( extdoc, db.Title )
 
	Call ui.currentdocument.refresh
 
Il risultato che vorrei ottenere è nel mio form un link al documento 
selezionato con il pulsante.. 
Io ho definito nella mia form il campo mc_link a richtext modificabile, 
ma non mi mette nulla in quel campo, mentre nel campo mc_rif ho 
correttamento il numero di riferimento. 
grazie
--
absolute

absolute wrote:

Ciao,
mi sembra (ma potrei anche sbagliare clamorosamente) che per vedere le 
modifiche su rtf devi salvare il doc e riaprirlo.
Ciao,
maximo

 le modifiche su rtf devi salvare il doc e riaprirlo.
Bingo! E' esatto. 
--
http://www.depquest.net

 
Il problema č proprio questo. Che nonostante io chiudo e riapro il 
collegamento non lo vede. 
La cosa strana č questa:
doc. 1 :se io nel mi form ho  fisicamente il campo "mc_link"  , premo 
il tasto operazione che aggiunge il link nel campo, salvo ed esco...
alla riapertura il collegamento non c'č. 
Doc. 2: Se invece nel mio form non metto il campo "mc_link", premo il 
tasto operazione che aggiunge il link, salvo ed esco... giustamente 
alla riapertura il collegamento non c'č. 
Se poi entro con il design nel mio form e ci aggiungo fisicamente il 
campo ...riaprendo il doc2 vedo il collegamento, riaprendo il doc1 non 
vedo il collegamento.... 
ho le travergole?????????????????'
--
absolute

 
Ciao,
ho fatto qualche prova e mi capita la stessa cosa.
Il problema mi sembra essere dovuto al fatto che il salvataggio 
dell'uidoc alla chiusura del documento sostituisca il valore dell'item 
con quello presente attualmente nella form, cioè "".
Se applichi lo stesso codice, salvando il curdoc e NON salvando l'uidoc 
l'item viene settato correttamente.
Sto provando a cercare un modo per fare funzionare il tutto, se ci 
riesco posto.
ciao,
maximo

 OldSmobile wrote:
[cut]
Ciao,
ho torvato una soluzione parziale (per vedere le modifiche devi sempre 
salvare chiudere e riaprire) non so se molto elegante ma sembra funzionare.
1. sulla form ho messo un campo RTF computed 'rtfDisp'
2. l'azione che setta il valore lo scrive in un RTF che non c'č sulla 
form 'rtf' cosě:
	Dim ses As New notesSession
	Dim ui As New notesUiWorkSpace
	Dim uidoc As notesuidocument
	Dim db As notesDatabase
	Dim coll As notesDOcumentCollection
	Dim extDoc As notesDocument
	Dim curDoc As notesDocument
	Dim res As Variant
	Dim pos As Integer
	Dim rtitem As NotesRichTextItem
 
	Set db = ses.currentDatabase
	Set uidoc = ui.currentdocument
 
	Set curDoc = ui.currentDocument.document
 
	Set rtitem = New NotesRichTextItem( curdoc, "rtf" )	
	Call rtitem.AppendDocLink( db, db.title) 'per esempio
3. nella query open copio l'RTF settato in quello che viene mostrato 
sulla form cosě:
	Set doc = source.document
 
	If Not source.isNewDoc Then
		If doc.hasItem("llDisp") Then
			Set rtItem = doc.getFirstItem("rtfDisp")
			rtItem.remove
		End If
		If doc.hasItem("ll") Then
			Set rtItem = doc.getFirstItem("rtf")
			Call rtItem.CopyItemToDocument( doc, "rtfDisp" )
			Call doc.save(True, True)
		End If				
	End If
 
Un po' arzigogolato ma funziona.
Ciao,
maximo

  End If
"IIDisp" e ("II") cosa sono?
Grazie
--
absolute


Lascia, ho capito e funziona perfettamante.
Ti ringrazio tantissimo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ciao
--
absolute

absolute wrote:

Bene,
scusa ma nella fretta non avevo cambiato i nomi degli item...
Ciao,
maximo