Малюсинький вопрос по формулке

Тема в разделе "Lotus - Программирование", создана пользователем SOFTOBZOR.ru, 9 ноя 2006.

Статус темы:
Закрыта.
  1. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Разбираю чужой код:

    Код (Text):
    ParentUnid = Evaluate ({@Trim(@Text(ParentUnid) :Resp_ParentUnid)},doc)
    Что бы в этом коде значило :Resp_ParentUnid
    При том что такого поля в помине на форме нет
    За то дальше идет
    Код (Text):
    Call uidoc.Document.ReplaceItemValue ("Resp_ParentUnid",ParentUnid)
     
  2. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Затык вот в чем:

    Есть кнопка, на ней сидит агент создания приложения к доку:
    Формулка такая:

    Код (Text):
    Sub Click(Source As Button)
    Dim s As New NotesSession
    ' Создание сессии
    Dim w As New NotesUIWorkSpace
    ' Обьявление рабочего пространства
    Dim doc As NotesDocument, Profile As NotesDocument
    ' Документ
    Dim uidoc As NotesUIDocument, uiProfile As NotesUIDocument
    ' ID дока текущено
    Dim eval As Variant,ParentUnid As Variant
    ' Значение ParentUnid
    Dim db As NotesDatabase

    Set doc = s.DocumentContext

    Set db = s.CurrentDatabase

    If doc Is Nothing Then
    Messagebox "Выберите Договор" , 64 , db.title
    ' Если не выбран документ
    Exit Sub

    End If

    If doc.GetItemValue ("Form") (0) = "Document" Then
    ' Если форма документа
    Set uidoc = w.ComposeDocument ("" , "" , "Document")
    Call uidoc.Document.MakeResponse (doc)
    ' Создание дочернего дока
    Call uidoc.Document.ReplaceItemValue ("$RefOptions" , "1")
    ' Переименовываем $RefOptions = 1
    ParentUnid = Evaluate ({@Trim(@Text(ParentUnid) :Resp_ParentUnid)},doc)
    ' ????
    Call uidoc.Document.ReplaceItemValue ("Resp_ParentUnid",ParentUnid)
    ' Переименовываем Resp_ParentUnid в ParentUnid
    tmp$ = doc.DBody_RegNum(0)
    ' Регистрационный номер родителя
    If tmp$ <> "" Then tmp$ = "№" & tmp$ & " "
    ' Если есть номер то преобразуем
    Call uidoc.Document.ReplaceItemValue("ParentSubject" , tmp$ & doc.subject(0))
    ' Подставляем относится к = ParentSubject
    Call uidoc.FieldSetText("Department",doc.Department(0))
    ' Департамент
    Call uidoc.FieldSetText("DogRecipient",doc.DogRecipient(0))
    ' Контрагент
    Call uidoc.FieldSetText("ThemeCategory",doc.ThemeCategory(0))
    ' Категория
    Call uidoc.Refresh
    ' Обновляем
    Exit Sub

    End If
    ' Выбран док но не Document
    Messagebox "Приложение может быть создано только для Договора или Приложения к договору" , 64 , db.title
    End Sub
    Все поля на форме имеются, но вываливается такая ошибка:

    ---------------------------
    Lotus Notes
    ---------------------------
    Notes Error - Field value cannot be edited.
    ---------------------------
    ОК
    ---------------------------​
     
  3. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--QuoteBegin-SOFTOBZOR.ru+9:11:2006, 15:13 -->
    <span class="vbquote">(SOFTOBZOR.ru @ 9:11:2006, 15:13 )</span><!--QuoteEBegin-->Все поля на форме имеются, но вываливается такая ошибка:
    [snapback]47532" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    В какой строке ?
     
  4. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Сложно сказать:
    Вот до сюда работает точно:

    Код (Text):
     If tmp$ <> "" Then tmp$ = "№" & tmp$ & " "
    ' Если есть номер то преобразуем
    Call uidoc.Document.ReplaceItemValue("ParentSubject" , tmp$ & doc.subject(0))
    Во всяком случае в создаваемом приложении данное поле заполняется корректно
     
  5. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: SOFTOBZOR.ru
    Так поставь обработчик.
     
  6. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Отбой!

    Вот вчем затык был:
    Поле DogRecipient - Comuted from display ""

    Все заработало!
     
Загрузка...
Статус темы:
Закрыта.

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