Гимор нужно состряпать типа отчета

[Medevic]

Для: LIGHT
doc всё же нужно указывать в Evaluate.

 

[Sandr]

Вместо cat = Evaluate({@GetDocField($ref; "Subject")}) предлагаю сделат так

dim parDoc as notesDocument
on error resume next
set parDoc = db.getDocumentByUNID (doc.getItemValue("$ref")(0))
on error goto 0
if not (parDoc is Nothing) then
cat = parDoc.getItemValue("Subject")(0)
End If

 

[Medevic]

И посмотри, в дебаггере значение cat. Если cat вообще пусто (IsEmpty(cat) = true, т.е. cat даже не стал массивом), значит у тебя кривой UNID (поле $Ref существует ?). Или не задал doc в параметре.

 

[Mihal]

cat = Evaluate({@GetDocField(@Text($Ref); "Subject")},doc)
Msgbox cat(0)
-----------------------------------------------------------------------
1. doc обязательно. Ну поставте себя на место компутера! К чему ему формулу применять? Ведь данная формула подразумевает некий контекст. Если вгонять под Evaluate @UserName - тогда никакого контекста не надо. А так - надо.
2. Это не место где за здорово живёшь будут вникать в чужую задачу, чё-та писать, проверять и высылать человеку. Тут помощь. Вы спросили - вам ответили. Предполагается, что вы перед тем как с проблемой обратиться хотя бы help прочитали перед этим (это по поводу @GetDocFiled в колонке представления).
------------------------------------------------

' For each document in a Notes database, use a Notes macro to
' compute the average for a list of numeric entries in the
' NumberList field. Evaluate returns a Variant, and Notes
' macros return an array. In this case, the array contains only
' 1 element (element 0). For more info, see the Notes
' documentation.

Sub Click(Source As Button)
' The macro text must be known at compile time.
Const NotesMacro$ = "@Sum(NumberList) / @Elements(NumberList)"
Dim result As Variant, j As Integer
Dim db As New NotesDatabase("", "MYSALES.NSF")
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.AllDocuments
For j% = 1 To dc.Count
Set doc = dc.GetNthDocument(j%)
result = Evaluate(NotesMacro$, doc)
MessageBox("Average is " & result(0))
Next
End Sub

 

[Sandr]

Мышко как всегда бъет в точку

 

[Mihal]

<!--QuoteBegin-Sandr+28:09:2007, 13:50 -->
<span class="vbquote">(Sandr @ 28:09:2007, 13:50 )</span><!--QuoteEBegin-->Мышко как всегда бъет в точку

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

[/quote]

Нарысуй Ромке на лбу точку! Я приду и туда вдарю!

 

[Sandr]

Хотя с Мышком можно поспорить... Обращение идет к полю, которое содержит текст, а не унид... Поправте меня, если я не прав...

Нарысуй Ромке на лбу точку! Я приду и туда вдарю!

Мы будем через 20 минут возле мака...выходи...

 

[Medevic]

@Text($Ref) не обязателен.

To specify the unique id of the parent document, you can use $Ref as the parameter. $Ref is the name of the special field on a response document that stores the unique id of its parent.

Ну и пример из хелпа:

FIELD Project:=@GetDocField($Ref; "Project");

 

[Mihal]

<!--QuoteBegin-Medevic+28:09:2007, 13:57 -->
<span class="vbquote">(Medevic @ 28:09:2007, 13:57 )</span><!--QuoteEBegin-->To specify the unique id of the parent document, you can use $Ref as the parameter. $Ref is the name of the special field on a response document that stores the unique id of its parent.

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

[/quote]

Не верю я никому. $Ref хранит шота мутное. Я к нему всегда @Text применяю. Мне так спокойнее.

 

[LIGHT]

Для: Mihal
<!--QuoteBegin-Mihal+28:09:2007, 14:49 -->
<span class="vbquote">(Mihal @ 28:09:2007, 14:49 )</span><!--QuoteEBegin-->cat = Evaluate({@GetDocField(@Text($Ref); "Subject")},doc)
Msgbox cat(0)

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

[/quote]
Спасибо здоровенное! все замурлыкало.
Всем остальным тоже большое спасибо, очень прияно когда люди кругом с мозгами и деляться ими.

 

[Omh]

Для поддержания дискуссии: Evaluate - гогно

 

[morpheus]

Для: Omh
паспорим что без него хуже чем с ним

 

[Omh]

Давай
Всё равно надо отдыхать от работы.
Забадяж, пожалуйста, пример, где без evaluate никак.
Я знаю, такие есть

 

[Medevic]

<!--QuoteBegin-Omh+28:09:2007, 15:31 -->
<span class="vbquote">(Omh @ 28:09:2007, 15:31 )</span><!--QuoteEBegin-->Забадяж, пожалуйста, пример, где без evaluate никак.

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

[/quote]

Dim dummy As Variant
dummy = Evaluate({Гы})

 

[morpheus]

Для: Omh
я даю пользователям вазможость самим рисовать формулы для полей поиска - тут без формул никак!

единственное для чего очень подходит эвалюейт - это для запуска того чего ты не знаеш )

все остальное описываеться скриптом

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

 

[Omh]

<!--QuoteBegin-Morpheus+28:09:2007, 14:35 -->
<span class="vbquote">(Morpheus @ 28:09:2007, 14:35 )</span><!--QuoteEBegin-->я даю пользователям вазможость самим рисовать формулы для полей поиска - тут без формул никак!

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

[/quote]
Если я правильно понял, то, что ты даёшь пользователям, то тут мог бы помочь @Eval
Execute рулит, согласен.

 

[morpheus]

Для: Omh
Эххх... если бы ...
но у меня баааальшой скриптик и на собаках его не переписать, бальшой поиск по куче баз по заданным полям , и вот формулы для полей пишут юзверя

 

[Omh]

<!--QuoteBegin-Morpheus+28:09:2007, 14:35 -->
<span class="vbquote">(Morpheus @ 28:09:2007, 14:35 )</span><!--QuoteEBegin-->я сам не люблю эту штуку , но к сожалению пользуюсь ею

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

[/quote]
Ну, в принципе, меня удовлетворило и это

 

[Mihal]

<!--QuoteBegin-Mihal+28:09:2007, 14:00 -->
<span class="vbquote">(Mihal @ 28:09:2007, 14:00 )</span><!--QuoteEBegin-->Не верю я никому. $Ref хранит шота мутное. Я к нему всегда @Text применяю. Мне так спокойнее.

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

[/quote]

Никому нельзя верить!

<!--QuoteBegin-Omh+28:09:2007, 14:23 -->
<span class="vbquote">(Omh @ 28:09:2007, 14:23 )</span><!--QuoteEBegin-->Для поддержания дискуссии: Evaluate - гогно

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

[/quote]
С Evaluate можно делать гыбче. Типа, дета в настройках прописывать те же собакоформулы и их использовать. Например, в описании бизнес-процесса на переходах прописываем условие перехода. Шоб было гибче.

Да и банальный список ролей удобнее брать.


<!--QuoteBegin-Morpheus+28:09:2007, 14:35 -->
<span class="vbquote">(Morpheus @ 28:09:2007, 14:35 )</span><!--QuoteEBegin-->я сам не люблю эту штуку , но к сожалению пользуюсь ею, ка квпрочем пользуюсь другой динамической штукой - Execute

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

[/quote]
А я люблю и пользуюсь! Я знаю толк в извращениях!