Private Folder

[wowa]

На форме я провожу поиск... Там же на форме встроена в таблицу папка
Найденные документы заносятся в папку и отображаются пользователю
Но в это время в поиск может зайти еще один пользователь и увидит что папка заполнена другими документами, которые нашел первый пользователь
КАк можно это исправить?
ТАм есть при создании папки свойства типа private.... и т.д.... это то?

 

[Medevic]

Ага.

 

[wowa]

Для: Medevic
Просто Private???
там есть shared, private on first use и т.д.

 

[wowa]

Я сделал папку Private
НАсколько я понимаю, то эту папку никто не видит кроме меня...????
когда я выполняю поиск доков то эти доки заносятся в папку.
А когда другой пользователь, то эту папку не находит

	 Dim vwecCollection 	As NotesViewEntryCollection
Set vwFolder = db.GetView( "Search" )
Set vwecCollection = vwFolder.AllEntries
Call vwecCollection.RemoveAllFromFolder( "Search" )
Call vwFolder.Refresh()

КАк выйти из этой ситуации?
в Коде создавать эту папку что-ли????

 

[root]

Для: Medevic
То есть Private имеют доступ только кто создал, а shared создается после первого использования. Так ?

 

[wowa]

Для: root
выходит что так, т.к. другой пользователь ее не видит !!!
Вот я и спрашиваю, получается каждому пользователю с помощью кода ,нужно создавать эту папку?

 

[root]

Для: wowa

 

[Medevic]

<!--QuoteBegin-root+12:09:2007, 17:27 -->
<span class="vbquote">(root @ 12:09:2007, 17:27 )</span><!--QuoteEBegin-->То есть Private имеют доступ только кто создал, а shared создается после первого использования. Так ?

[snapback]78031" rel="nofollow" target="_blank[/snapback]​

[/quote]
Типа того. Shared, [desktop] private on first use выглядит общей (т.е. доступна всем), но при первом использовании создается такая же личная папка.
<!--QuoteBegin-wowa+12:09:2007, 17:48 -->
<span class="vbquote">(wowa @ 12:09:2007, 17:48 )</span><!--QuoteEBegin-->Вот я и спрашиваю, получается каждому пользователю с помощью кода ,нужно создавать эту папку?

[snapback]78037" rel="nofollow" target="_blank[/snapback]​

[/quote]
Нет необходимости. Используй Shared, [desktop] private on first use папки.

 

[wowa]

Для: Medevic
Если Shared, [desktop] private on first use папки.
Вначале перед работой на форме я пытаюсь очистить папку.
и в PostOpen запихиваю:

Dim vwecCollection 		As NotesViewEntryCollection
Set vwFolder = db.GetView( "Search" )
Set vwecCollection = vwFolder.AllEntries
Call vwecCollection.RemoveAllFromFolder( "Search" )
Call vwFolder.Refresh()

Оно не находит Set vwFolder = db.GetView( "Search" )
В чем тут могут быть проблемы и как можно избавиться?

 

[Medevic]

Используй Shared, private on first use (не desktop) папки.

 

[wowa]

<!--QuoteBegin-Medevic+13:09:2007, 09:04 -->
<span class="vbquote">(Medevic @ 13:09:2007, 09:04 )</span><!--QuoteEBegin-->Используй Shared, private on first use (не desktop) папки.

[snapback]78093" rel="nofollow" target="_blank[/snapback]​

[/quote]
я так сделал, и у меня все нормально работает
Но когда другой пользователь работает, то у него ошибка в этом месте:
<!--QuoteBegin-wowa+13:09:2007, 08:33 -->
<span class="vbquote">(wowa @ 13:09:2007, 08:33 )</span><!--QuoteEBegin-->Оно не находит Set vwFolder = db.GetView( "Search" )
В чем тут могут быть проблемы и как можно избавиться?

[snapback]78085" rel="nofollow" target="_blank[/snapback]​

[/quote]

 

[wowa]

Для: Medevic
в чем тут могут быть проблемы?????

 

[Medevic]

Для: wowa
В ACL галка на "Create personal folders/views" стоит ?

 

[wowa]

Для: Medevic
стоит!
Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может

 

[wowa]

Для: Medevic
скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
Можно ли создать так???
Будет ли все нормально?

 

[Medevic]

<!--QuoteBegin-wowa+13:09:2007, 15:30 -->
<span class="vbquote">(wowa @ 13:09:2007, 15:30 )</span><!--QuoteEBegin-->Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может

[snapback]78208" rel="nofollow" target="_blank[/snapback]​

[/quote]
Как не может? Т.е. в чем это проявляется?

<!--QuoteBegin-wowa+14:09:2007, 10:09 -->
<span class="vbquote">(wowa @ 14:09:2007, 10:09 )</span><!--QuoteEBegin-->скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
Можно ли создать так???

[snapback]78271" rel="nofollow" target="_blank[/snapback]​

[/quote]
Можно и так.

 

[wowa]

<!--QuoteBegin-Medevic+14:09:2007, 10:35 -->
<span class="vbquote">(Medevic @ 14:09:2007, 10:35 )</span><!--QuoteEBegin-->Т.е. в чем это проявляется?

[snapback]78282" rel="nofollow" target="_blank[/snapback]​

[/quote]
Set vwFolder = db.GetView( "Search" )
Пусто! НЕ получает ее..

 

[wowa]

Для: Medevic
Но все же , если придется private, как создать приватную папку??
НА форуме нашел твой код создания папки, вот такой код:

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newview As NotesView
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set view = db.GetView("Папка-шаблон")
Set doc = db.GetDocumentByUNID(view.UniversalID)
Set doc = doc.CopyToDatabase(db)
Call doc.ReplaceItemValue("$TITLE", "Новая папка")
Call doc.ReplaceItemValue("$Name", "Новая папка")
Call doc.Save(True, True)
End Sub

НО а приватную папку?
И как потом ее удалить?

 

[root]

https://codeby.net/threads/13786.html