Как сохранить файл из проекта на ЖД пользователя

Тема в разделе "Lotus - Программирование", создана пользователем Sandro, 7 дек 2009.

  1. Sandro

    Sandro Гость

    Опять глупый вопрос, но не могу найти в мануале ничего ((( Есть файл шаблона dot, добавленный в проект, как его скинуть юзверю ?
     
  2. Klido

    Klido Гость

    ExtractFile method в хелпе
     
  3. amigolinx

    amigolinx Гость

  4. Klido

    Klido Гость

    уже прочитал и врубился... конечно, в ресурсы файло, с которым работать - не самое лучшее решение... я, например, предпочитаю док того же профайла или какой-либо настроечный документ (шаблонов может быть много - какие-нибудь договора) и цеплять их в справочные доки....
     
  5. Sandro

    Sandro Гость

    Ок, наверно так и сделаю, наглядней даже будет, спасиб
     
  6. Sandro

    Sandro Гость

    Klidо, может скинешь код , как ты из настроечного файла файл сохраняешь, делаю как в мануале ничего не получается (((
    Мы когда просто файл на форму аттачим, он в поле "Body" сохраняется ?
     
  7. Klido

    Klido Гость

    Код (Text):
    'пусть в doc у нас док настроек и там 1 аттач

    Dim rtitem As NotesRichTextItem

    Set rtitem = doc.GetFirstItem("Doc_Attach")

    If doc.HasEmbedded Then
    Forall o In rtitem.EmbeddedObjects
    'way - каталог выгрузки, его формируем выше или можно на ходу
    Call o.ExtractFile (way &"/"& o.name)
    End Forall
    End If
    а что не работает? ошибки выдаёт?
     
  8. Sandro

    Sandro Гость

    Спасиб. Док с аттачем не находится, сейчас попробую твой код
     
  9. Klido

    Klido Гость

    тогда проблема не в выгрузке, а в поиске и получении дока с аттачем :KillMe:
     
  10. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    А аттач точно в рт-поле?
    Можно попробовать взять аттач к документу через Set notesEmbeddedObject = notesDocument.GetAttachment(fileName$)
    Код (Text):
    Dim v2File as notesitem
    Set v2File = fileDoc.GetFirstItem ( "$File" )      
    If Not v2File Is Nothing Then
    If Isarray(v2File.Values) Then
    Set o = fileDoc.GetAttachment (v2File.Values(0))
     
  11. Sandro

    Sandro Гость

    Слушай, так не могу понять, приаттаченный в редакторе файл, он чем является ? "Doc_Attach" у тебя что ? Я чё то не так понимаю
     
  12. Klido

    Klido Гость

    что за редактор??? :KillMe: Дизайнер? или док в режиме редактирования???

    не надо аттачить на саму форму - надо аттачить в документ в ртф-поле....
     
  13. amigolinx

    amigolinx Гость

    Кхм... Давай по порядку. Создается форма под справочный док. На форме создается РТФ-поле. В это поле аттачится нужное файло. В процессе работы получаешь справочный док любым удобным способом, например, notesDataBase.GetDocumentByID. Имея док, обращаешся по имени к РТФ-полю в нем и экстрактишь файло. Точка...
    Например вкратце так
    Код (Text):
        Dim s As New NotesSession
    Dim db As NotesDatabase
    Set db = s.CurrentDatabase.Database

    Dim doc As NotesDocument   
    Dim Obj As NotesEmbeddedObject
    ' =========обработка профайла и выгрузка шаблона=======   
    If Dir("C:\Tmp",16)="" Then Mkdir "C:\Tmp"

    Set doc = db.GetDocumentByID("000009AE")        ' взяли служебный документ по ИД
    Set Obj=doc.GetAttachment("шаблон.dot")
    Call Obj.ExtractFile("C:\Tmp\шаблон.dot")
    ' ===========================================
     
  14. Sandro

    Sandro Гость

    Вооот где я 2 часа уже торможу ))))) Спасиб. Надо конечно б теорию поизучать, но реально времени нет
    Я в дизайнере файл приаттачивал
     
  15. Klido

    Klido Гость

    можно и оттуда его выцепить, но смысл в том, что в настроечном документе всегда можно поменять аттач без изменений дизайна - это может сделать уполномоченный юзер самостоятельно...
     
Загрузка...

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