Ссылка на документы из вьюхи

  • Автор темы LIGHT
  • Дата начала
L

LIGHT

#1
Все привет!

Делаю такую штуку. Есть база в которой создается документ и в который необходимо воткнуть кучу ссылок на другие документы из другой базы в поле ArhDocLink, документы выбираются из пик листа,

Выбираю, перебираю коллекцию выделеных документов получаю их UNID и название.
Как сделать так:

[Ж] - это желтый листой

[Ж] Название документа [Ж] Название второго документа [Ж] Название третьего документа ...


Вопрос срочный, горит. Помогите мылсями, что-то в тупик зашел.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
NotesRichTextItem.AppendDocLink

Также посмотри класс NotesNewsletter. Позволяет из коллекции получить документ с ссылками.
 
L

LIGHT

#3
Не получатеся, код:

Код:
	Set collection = ws.PickListCollection( _
PICKLIST_CUSTOM, _
True, _
ElementServer(0), _
ElementPath(0), _
"По контрагентам", _
"Связь с архивом", _
"Выбирите все документы которые необходимо связять с текущим" )

If collection.Count = 0 Then Goto NoSelect	


Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem( ThisDoc, "LinkArhDoc" )


Set doc = collection.GetFirstDocument
While Not ( doc Is Nothing )

Call rtitem.AppendDocLink( doc, "Открыть документ из базы дыннх" & dbarh.Title )
Call rtitem.AddTab( 1 )
Call rtitem.AppendText( doc.Subject( 0 ) )
Call rtitem.AddNewLine( 1 )
Call uidoc.Refresh
Call uidoc.Save

Set doc = collection.GetNextDocument ( doc )
Wend
Где тут собака закопалась.
Поле на форме
LinkArhDoc Rich Text пробовал и другие, вычисляемое, само себе равно.

В цикле данные возвращаются корректно, типа MsgBox doc.UniversalID
 
L

LIGHT

#5
Код:
	Set doc = collection.GetFirstDocument
Почему???

doc - это документ из коллекции (из пиклиста) мне то их и нужно перебирать.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
В смысле что не получается?
Видно, что добавляешь ссылки в один документ. При этом в цикле постоянно сохраняешь другой. Что потом происходит вообще не понятно.
 
I

IsAvailable

#7
Для: LIGHT
А в чем именно проблема? Что не так отрабатывает?
Каждый в новой строке что ли создается? Тогда да - 17-я строка однозначно )))

Для: Medevic
Видимо, надо полагать, что ThisDoc = uidoc.Document
Ну а сохранять можно и в цикле - криво, но если автору нравится, то фигли... % )))
 
L

LIGHT

#8
Проблема такая

В окрытый документ в поле LinkArhDoc сунуть N ссылок на документы выбранные в пиклисте.
В цикле я беру документы пик листа collection и doc и сую в открытый документ ThisDoc
Сохранял по всякому и ThisDoc.save(true,true) и uidoc.Save ....

Результат обработки кода, поле пусто!
В массиве данные от docSubject и др. есть. Printом проверено

PS

Dim uidoc As NotesDocument
Set uidoc = ws.CurrentDocument
Dim ThisDoc As NotesDocument
Set ThisDoc = uidoc.Document

Что не так в 17той строке? Пробовал и () в конец лепить, не решает затык.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#9
<!--QuoteBegin-LIGHT+26:12:2007, 15:48 -->
<span class="vbquote">(LIGHT @ 26:12:2007, 15:48 )</span><!--QuoteEBegin-->Что не так в 17той строке? Пробовал и () в конец лепить, не решает затык.
[snapback]91437" rel="nofollow" target="_blank[/snapback]​
[/quote]
Всё нормально там. Это выражение такое. :)

Короче, Call uidoc.Refresh и Call uidoc.Save убираем из цикла.
После цикла добавляем
Call rtitem.Update
Call ThisDoc.Save(True, True)

Потом закрываем документ (при этом не сохраняем когда спросит) и открываем заново.
 
L

LIGHT

#10
Для: Medevic Спасибо!
Код:
Потом закрываем документ (при этом не сохраняем когда спросит) и открываем заново.
Как это можно обойти корректно, т.е. юзерам же не объясниш такую глупость )))
 
L

LIGHT

#13
Все равно караяво, мне в принципе не важно сразу показывать ссылки, можно и после ручного переоткрытия. Но после ручного они не появляются. Т.е. я убрал все сохранялки в коде, и сохраняю по кнопке на панеле действий, выхожу из дока, захожу а ссылок нет.
 

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#14
Все равно караяво, мне в принципе не важно сразу показывать ссылки, можно и после ручного переоткрытия. Но после ручного они не появляются. Т.е. я убрал все сохранялки в коде, и сохраняю по кнопке на панеле действий, выхожу из дока, захожу а ссылок нет.
сохраняйте док на бекэнде, а не на уи...
 
L

LIGHT

#15
Зделал так, из вьюхи в док загоняются только Subject документов. И в скрытое поле ложиться их UNID а на PostSave повесил функцию которая прогоняет все елементы поля и вставляет линк ;)