Помогите разобратся с Execute

[Cleric84]

Всем привет.

разбираюсь с кодом

на строчке видает ошибку

retcode% = Execute (script$)
если смотреть в дебагере то можно увидеть : Objectvariable not set строка 24 в коде

[b]script$[/b]
Use {х1}
Use {х2}
Use {х3}
Use {х4}
Use {х5}
Sub Initialize
Dim subs as New NotesSession
Dim subw as new NotesUIWorkspace
Dim subdb as NotesDatabase
Dim subdoc as NotesDocument
Dim subui as NotesUIDocument
Set subdb=subs.CurrentDatabase
Set subui=subw.CurrentDocument
Set subdoc=subw.CurrentDocument.Document
Dim dbUnit as NotesDatabase
Dim vUnit as NotesView
Dim dUnit as NotesDocument
Set dbUnit = subs.GetDatabase(subdb.Server,{OrgUnit.nsf})
Set vUnit = dbUnit.GetView({$select.ro.view})
Set dUnit = vUnit.GetDocumentByKey(subdoc.IWF_Department(0),True)
If dUnit.HeadOfUnit(0) Like {Head.*} Or dUnit.HeadOfUnit(0) Like {Curator.*} Then
subdoc.WFCurrentApprover = Evaluate({@ExpandNameList(@ServerName;HeadOfUnit)},dUnit)
Else
subdoc.WFCurrentApprover = dUnit.HeadOfUnit
' здесь пробовал разние варианти все равно ошибка
'call subdoc.ReplaceItemValue("WFCurrentApprover", dUnit.GetItemValue("HeadOfUnit")(0))
'subdoc.WFCurrentApprover = dUnit.HeadOfUnit(0)
End If
End Sub

 

[Cleric84]

кажется нашел свою оплошность ))))

 

[morpheus]

мейби

dUnit Is Nothing ???

 

[lmike]

Set dUnit = vUnit.GetDocumentByKey(subdoc.IWF_Department(0),True)

не люблю хардкоденые имена...

 

[Cleric84]

)))

я еще не на том уровне

 

[Akupaka]

если смотреть в дебагере то можно увидеть : Objectvariable not set строка 24 в коде

На сколько я знаю, то дебагер показывает Execute за один шаг. Откуда уверенность, что ошибка в 24 строке именно того скрипта, что внутри? Или ты выполнил этот скрипт отдельно от Execute?

кажется нашел свою оплошность

Кажется? Т.е. исправил ошибку и заработало? Или, все же, кажется?

dUnit Is Nothing ???

+1
Эта проверка должна быть обязательно в случае получения документа по ключу из вида! Я бы ее в первую очередь добавил и проверил как изменилась работа программы.


Добавлено:

не люблю хардкоденые имена...

О чем речь-то? )))

 

[Cleric84]

Akupaka
На сколько я знаю, то дебагер показывает Execute за один шаг. Откуда уверенность, что ошибка в 24 строке именно того скрипта, что внутри? Или ты выполнил этот скрипт отдельно от Execute?

а мне показал :lool:

Кажется? Т.е. исправил ошибку и заработало? Или, все же, кажется?

нет уже не кажется, заработало..... а код не мой разбираюсь

 

[lmike]

Эта проверка должна быть обязательно в случае получения документа по ключу из вида!

необязательно - можно поставить обработчик ошибки

 

[Akupaka]

можно поставить обработчик ошибки

Кгм :lool:

 

[lmike]

Кгм

- Кора Головного Мозга :lool:?

 

[Akupaka]

lmike,
не, типа, вариант, но не так красив, все же. имхо