Импорт атачментов в документ

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 26 ноя 2008.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Всем привет.

    Вобщем такой вопрос.
    На форме я инициирую вложение атачментов по следующему принципу.
    есть кнопка "прикрепить" на форме много полей рич-текст (16штук) (F1, F2, F3......) в ети поля должни попасть атачменти
    При прикриплении я инициурую форму в которой видно в какое поле должен попасть какой файл. и там написано что все файли прикреплятся когда доку сохранить. но вот проблем не подкрепляются а остаются в дополнительной форме...

    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim aDoc As NotesDocument
    Dim c1 As New WinAPI
    Dim path As String

    Set aDoc = ws.CurrentDocument.Document
    path = c1.GetDirDialog("Оберіть папку, де знаходяться файли заявки...")
    If path <> "" Then
    aDoc.Message = "Прикріплення файлів з каталогу " & path
    aDoc.ff1=wSlash(path) + "F1.JPG"
    adoc.upload_1="1"
    aDoc.ff2=wSlash(path) + "F2.pdf"
    adoc.upload_2="2"
    aDoc.ff3=wSlash(path) + "F3.JPG"
    adoc.upload_3="3"
    aDoc.ff4=wSlash(path) + "F4.pdf"
    adoc.upload_4="4"

    'цикл ForAll, в якому визначаємо, які файли знаходяться в каталозі, та заповнюємо поля FF1, FF2, т.д., та upload_1, upload_2, і т.д.
    flag = ws.DialogBox (".dlgAttach", True, True, False, False, False, False, "Файли", aDoc, True, False, True)
    If flag Then
    End If
    Else
    Msgbox "операцію перервано."
    End If
    Set c1 = Nothing
    End Sub
     

    Вложения:

    • 2.JPG
      2.JPG
      Размер файла:
      32 КБ
      Просмотров:
      57
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.079
    Симпатии:
    300
    вопрос - зачем Вам куча РТ полей (это сплошной глюк)?
     
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    да ето не мне надо, моя б воля то только одно поле сделал б. мнесказали я и сделал, им надобно чтоб видеть есть ли дока тоесть если ето копия паспорта тогда под ето специальное поле если идентификационний номер то етот документ ципляется в другое поле и т.д

    мне надобно перед процесом подтягивания файлов показать куда какой файл цеплять, если юзер согласен тогда при сохранении и подципить файли.
    на картинке которую я приатачил видно 1 шаг (тоесть я показиваю какие файли и одкуда и куда к какому полю) но вот когда я сохраняю то файли атк и остаются в етой подформе а на главную форму в соответсвующие поля не переносятся
     
  4. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Я вообще не вижу где ты приаттачиваешь файлы. Вижу только пути к файлам.
    Теперь тебе надо использовать метод notesRichTextItem.EmbedObject для каждого ричтекст поля, указав путь к файлу.
     
  5. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    ну да сначала я показиваю форму и на форме уже видно ети пути для юзеров чтоб они смогли убедится в том что они именно ети файли хотят приатачить.
    Но вот как мне ети файли потом подтянуть уже с форми на главную форму затрудняюсь.....
     
  6. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    У тебя в форме только пути хранятся. Тебе надо взять пути из документа aDoc, а дальше метод notesRichTextItem.EmbedObject.
     
  7. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    ето уже надобно на qverysave делать?
    типа чтото етого?
    If aDoc.ff1<> "" Then
    Set rtItem.F1 = doc.GetFirstItem ("aDoc.ff1")
    Set inputAttachment = rtItem.EmbedObject ( EMBED_ATTACHMENT, "",FilePath )
    End If

    где F1 ето поле куда надобно запихнуть документ
     
  8. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Что-то типа:
    Код (Text):
    Set rtItem = doc.GetFirstItem("F1")
    Call rtItem.EmbedObject (EMBED_ATTACHMENT, "", doc.GetItemValue("aDoc.ff1")(0))
    После чего документ надо сохранить(doc.Save) и переоткрыть. :(
     
  9. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    не канает когда запускаю дебагер то отанавливается на следующием шагу

    If aDoc.ff1<> "" Then ---- с ошибкой object variable not set

    на qvery save такой код

    Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim rtItem As NotesRichTextItem
    Dim aDoc As NotesDocument

    If aDoc.ff1<> "" Then
    Set rtItem = doc.GetFirstItem ("F1")
    Call rtItem.EmbedObject (EMBED_ATTACHMENT, "", doc.GetItemValue("aDoc.ff1")(0))
    End If

    End Sub
     
  10. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Чему равен aDoc?
     
  11. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    не совсем понятно..... в aDoc есть путь к документу
    aDoc.ff1=wSlash(path) + "F1.JPG" ----путь к документу
    adoc.upload_1="1" ---здесь даили нет(тоесть прицеплять доку или нет)
     
Загрузка...
Похожие Темы - Импорт атачментов документ
  1. ToxaRat
    Ответов:
    11
    Просмотров:
    622
  2. magistr
    Ответов:
    25
    Просмотров:
    1.756
  3. Lia
    Ответов:
    15
    Просмотров:
    1.080
  4. ty3uk
    Ответов:
    16
    Просмотров:
    1.946
  5. Ali002
    Ответов:
    0
    Просмотров:
    1.114

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