Private Folder

wowa

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

wowa

Well-known member
01.02.2007
845
0
#3
Для: Medevic
Просто Private???
там есть shared, private on first use и т.д.
 

wowa

Well-known member
01.02.2007
845
0
#4
Я сделал папку Private
НАсколько я понимаю, то эту папку никто не видит кроме меня...????
когда я выполняю поиск доков то эти доки заносятся в папку.
А когда другой пользователь, то эту папку не находит

Код:
	 Dim vwecCollection 	As NotesViewEntryCollection
Set vwFolder = db.GetView( "Search" )
Set vwecCollection = vwFolder.AllEntries
Call vwecCollection.RemoveAllFromFolder( "Search" )
Call vwFolder.Refresh()
КАк выйти из этой ситуации?
в Коде создавать эту папку что-ли????
 
R

root

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

wowa

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#8
<!--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

Well-known member
01.02.2007
845
0
#9
Для: 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" )
В чем тут могут быть проблемы и как можно избавиться?
 

wowa

Well-known member
01.02.2007
845
0
#11
<!--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

Well-known member
01.02.2007
845
0
#14
Для: Medevic
стоит!
Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может
 

wowa

Well-known member
01.02.2007
845
0
#15
Для: Medevic
скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
Можно ли создать так???
Будет ли все нормально?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#16
<!--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

Well-known member
01.02.2007
845
0
#17
<!--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

Well-known member
01.02.2007
845
0
#18
Для: 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

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