Private Folder

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 12 сен 2007.

  1. wowa

    wowa Well-Known Member

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    Просто Private???
    там есть shared, private on first use и т.д.
     
  4. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Я сделал папку Private
    НАсколько я понимаю, то эту папку никто не видит кроме меня...????
    когда я выполняю поиск доков то эти доки заносятся в папку.
    А когда другой пользователь, то эту папку не находит

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

    root Гость

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

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: root
    выходит что так, т.к. другой пользователь ее не видит !!!
    Вот я и спрашиваю, получается каждому пользователю с помощью кода ,нужно создавать эту папку?
     
  7. root

    root Гость

    Для: wowa
    :)
     
  8. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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 папки.
     
  9. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    Если Shared, [desktop] private on first use папки.
    Вначале перед работой на форме я пытаюсь очистить папку.
    и в PostOpen запихиваю:
    Код (Text):
    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" )
    В чем тут могут быть проблемы и как можно избавиться?
     
  10. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Используй Shared, private on first use (не desktop) папки.
     
  11. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    <!--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]
     
  12. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    в чем тут могут быть проблемы?????
     
  13. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: wowa
    В ACL галка на "Create personal folders/views" стоит ?
     
  14. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    стоит!
    Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может
     
  15. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
    Можно ли создать так???
    Будет ли все нормально?
     
  16. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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]
    Можно и так.
     
  17. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    <!--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" )
    Пусто! НЕ получает ее..
     
  18. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Для: Medevic
    Но все же , если придется private, как создать приватную папку??
    НА форуме нашел твой код создания папки, вот такой код:
    Код (Text):
    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

    НО а приватную папку?
    И как потом ее удалить?
     
Загрузка...
Похожие Темы - Private Folder
  1. Amfion
    Ответов:
    1
    Просмотров:
    674
  2. seoman2
    Ответов:
    12
    Просмотров:
    2.324
  3. Serduko
    Ответов:
    17
    Просмотров:
    2.516
  4. PaVaP
    Ответов:
    3
    Просмотров:
    1.573
  5. Zeka
    Ответов:
    4
    Просмотров:
    17.931

Поделиться этой страницей