1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Помогите новичку. Копирование документа.

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

  1. MMN

    MMN Well-Known Member

    Репутация:
    0
    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    копирую документ

    Код:
    	Dim dat As New NotesDateTime(Now)
    Dim newDoc As NotesDocument
    Set newDoc=Doc_form.ParentDatabase.Createdocument
    Call Doc_form.CopyAllItems(newDoc)
    UNID = newDoc.UniversalID
    creatorName=CS_Session.UserName
    
    Set telDoc=PhoneDb_GetDocumentByLotusName(creatorName)
    If Not telDoc Is Nothing Then CreatorName=PhoneDb_GetRusName(telDoc)
    
    Call newDoc.ReplaceItemValue("CreatorName", CreatorName)
    Call newDoc.ReplaceItemValue("UNID", UNID)
    Call newDoc.ReplaceItemValue("Status", "1")
    Set URV_ws=New NotesUIWorkspace
    Set newUIDoc=URV_ws.EditDocument(True, newDoc)
    
    Call newUIDoc.Refresh
    после копирования он замечательно открывается, но не предлагает сохранить при закрытии, как заставить его это делать ??
     
  2. Medevic

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

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Заполнить поля после открытия:
    Код:
    Set newUIDoc=URV_ws.EditDocument(True, newDoc)
    Call newUIDoc.Document.ReplaceItemValue("CreatorName", CreatorName)
    Call newUIDoc.Document.ReplaceItemValue("UNID", UNID)
    Call newUIDoc.Document.ReplaceItemValue("Status", "1")
     
  3. MMN

    MMN Well-Known Member

    Репутация:
    0
    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    кстати если я пытаюсь менять поля после открытия, то они не меняются, где я допускаю ошибку ??
     
  4. Medevic

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

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Поля вычисляемые?
     
  5. MMN

    MMN Well-Known Member

    Репутация:
    0
    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    нет, обычные

    так меняется
    Call newDoc.ReplaceItemValue("Status", "1")
    Set URV_ws=New NotesUIWorkspace
    Set newUIDoc=URV_ws.EditDocument(True, newDoc)
    Call newUIDoc.Refresh

    а так уже нет
    Set URV_ws=New NotesUIWorkspace
    Set newUIDoc=URV_ws.EditDocument(True, newDoc)
    Call newDoc.ReplaceItemValue("Status", "1")
    Call newUIDoc.Refresh
     
  6. Medevic

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

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Код:
    Call newDoc.ReplaceItemValue("Status", "1")
    В приведенном мною выше примере иначе написано.
     
  7. MMN

    MMN Well-Known Member

    Репутация:
    0
    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    пардон, не разглядел newUIDoc
    все получилось спасибо
     
Загрузка...
Похожие Темы - Помогите новичку Копирование
  1. Ким
    Ответов:
    24
    Просмотров:
    1.192
  2. thunder
    Ответов:
    34
    Просмотров:
    780
  3. thunder
    Ответов:
    0
    Просмотров:
    188
  4. rn3rjd
    Ответов:
    9
    Просмотров:
    1.415
  5. maxiik
    Ответов:
    3
    Просмотров:
    2.044

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