Создание нового документа с инициализацией его полей

[Guest]

Для: Денис Кириченко
Не надо так хитрить, надо сделать просто

Call NewDoc.ReplaceItemValue("Action", CurDoc.GetItemValue("ActionType"))

Фишка в том, что CurDoc.GetItemValue("ActionType") без "(0)" в конце

Да в том то и дело что так не передается Может дело в поле, которое принимает, оно поле со списком.

 

[Omh]

Поля "Action", "ActionType" - мультивэлью?

 

[Medevic]

Для: Денис Кириченко
Поле ActionType многозначное? Если нет, то делай Split.

 

[Guest]

Sorry, вся фишка в том что в поле со списком значения не так просто передать

 

[Sandr]

почему не просто? В чем сложность?

 

[Guest]

почему не просто? В чем сложность?

Да просто оно не передается так:
Call NewDoc.ReplaceItemValue("Action", CurDoc.GetItemValue("ActionType"))
Только если взять через View столбцом. Может чего-то не правильно делаю

 

[Medevic]

<!--QuoteBegin-Omh+11:02:2008, 12:11 -->
<span class="vbquote">(Omh @ 11:02:2008, 12:11 )</span><!--QuoteEBegin-->Поля "Action", "ActionType" - мультивэлью?

[snapback]97464" rel="nofollow" target="_blank[/snapback]​

[/quote]

 

[Guest]

> Поля "Action", "ActionType" - мультивэлью?

У поля со списком флаг Разрешить несколько значений не выбирается (он затемнен). Покрайней мере у меня

 

[Medevic]

Для: Денис Кириченко
ComboBox что ли? Так это поле не может иметь несколько значений.

 

[Guest]

Для: Денис Кириченко
ComboBox что ли? Так это поле не может иметь несколько значений.

ComboBox ?!?! А зачем оно тогда вообще нужно, я так предполагаю оно позволяет выбирать значение из списка. А если оно не может иметь несколько значений, то выходит, что оно позволяет выбирать только из одного значения?

 

[Omh]

Для: Денис Кириченко
Ты лучше опиши подробнее, что у тебя сейчас имееться и где что не работает.
А то, как я понял уже никто ни в зуб ногой

 

[Medevic]

<!--QuoteBegin-Денис Кириченко+11:02:2008, 13:32 -->
<span class="vbquote">(Денис Кириченко @ 11:02:2008, 13:32 )</span><!--QuoteEBegin-->ComboBox ?!?! А зачем оно тогда вообще нужно, я так предполагаю оно позволяет выбирать значение из списка. А если оно не может иметь несколько значений, то выходит, что оно позволяет выбирать только из одного значения?

[snapback]97501" rel="nofollow" target="_blank[/snapback]​

[/quote]
Вопрос надо ставить правильно. Передать нужно не значения, а список вариантов.
Делается иначе. Только недавно было.

https://codeby.net/threads/21042.html

 

[Guest]

Вопрос надо ставить правильно. Передать нужно не значения, а список вариантов.
Делается иначе. Только недавно было.

https://codeby.net/threads/21042.html

Sorry, буду учится
Спасибо за ликбез.

 

[Guest]

"Formulas inherit values from selected document" - зло

Это же намного проще и быстрее, делать стандартными средствами. Почему зло? С точки зрения начинающего, менее проблематичнее, чем писать все на коде. Видь команда Compose намного меньше, чем код:

Sub Click(Source As Button)
Dim uidoc As NotesUIDocument
Dim NewDoc As NotesDocument
Dim ws As New NotesUIWorkspace

dim s as New NotesSession

'Set uidoc = ws.ComposeDocument("Elephant/ICTP","Work/Docs/performing.nsf", "NewAction")
'Set NewDoc = uidoc.Document

set NewDoc = s.CurrentDatabase.CreateDocument
call NewDoc.ReplaceItemValue("SomeItem", "SomeValue")

call NewDoc.ReplaceItemValue("SomeItem", someAnotherDoc.GetItemValue("AnotherItem"))


Call ws.EditDocument(True, NewDoc)
NewDoc.

End Sub

 

[Omh]

Для: Денис Кириченко
Потом такое дело офигенно тяжко суппортить.
Шастать по полям, проверять default value.
Не гибко, на мой взгляд.

Иногда начинает инхеритить из тех документов, которые тебе не надо (например action во view)

"Кака" одним словом.
Всё вышесказаное - имхо

 

[Guest]

) да, я в своем посте поправил уже, сразу не заметил
Денис, ws.ComposeDocument создаст документ на УИ, а мы предлагали создать его на бэк-энд, а потом открыть на редактирование

А как создать документ-ответ?

 

[Omh]

Для: Денис Кириченко

.MakeResponse

 

[Guest]

Для: Денис Кириченко

.MakeResponse

MakeResponse - работает только через View:

Set view = db.GetView( "All documents" )
Set docA = view.GetFirstDocument
Set docB = view.GetNextDocument( docA )

а с текущего документа ответ делать не может?

 

[Omh]

<!--QuoteBegin-Денис Кириченко+19:02:2008, 10:13 -->
<span class="vbquote">(Денис Кириченко @ 19:02:2008, 10:13 )</span><!--QuoteEBegin-->MakeResponse - работает только через View:

[snapback]98691" rel="nofollow" target="_blank[/snapback]​

[/quote]
False.

NotesDocument.MakeResponse(ParentNotesDocument)

 

[wowa]

Для: Денис Кириченко
Может...

Call docCurrent.MakeResponse( docParent )

docCurrent - ответ
docParent - родитель