Computewithform - Variant Does Not Contain An Object

[Guest]

Кто-то может, помочь, почему ComputeWithForm, выдает ошибку?

Dim cDoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim ws As New NotesUIWorkspace	

Set uidoc = ws.CurrentDocument
Set cDoc = uidoc.Document

If сDoc.ComputeWithForm(False, False) Then
Call cDoc.Save( True, True )
End If

 

[Sandr]

А кто же документу открытому на УИ делает компутвизформ? Какой в этом смысл?

 

[Guest]

А кто же документу открытому на УИ делает компутвизформ? Какой в этом смысл?

Я попытался из собачьего языка перевести в LotusScript

@If(@IsValid;
@Do(@Command([FileSave]); @Command([FileCloseWindow]));
@Return(""))


Сделал все по Help, правда там создавали новый документ, а не проверяли существующий:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim success As Variant
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Notification"
doc.Topic = "Large bodies of water"	
success = doc.ComputeWithForm( False, False )
If success Then
Call doc.Save( True, True )
End If

 

[Sandr]

Ошибка из-за того, что документ еще не сохранен, соответсвенно у него еще нет формы...
Из этого можно выйти таким способом - прописать ему форму перед компутвизформ

call сDoc.ReplaceItemValue("Form", "ИМЯ ВАШЕЙ ФОРМЫ")

Но это Вам ничего не даст, так как после компутвиз форм все введенные Вами данные слетят нафик...

То, что Вы пытаетесь сделать - проявление лени. Не страдайте ерундой - проверяйте все поля сами, а не пытайтесь это повесить на компутвизформ...

 

[Guest]

Ошибка из-за того, что документ еще не сохранен, соответсвенно у него еще нет формы...
Из этого можно выйти таким способом - прописать ему форму перед компутвизформ

call сDoc.ReplaceItemValue("Form", "ИМЯ ВАШЕЙ ФОРМЫ")

Но это Вам ничего не даст, так как после компутвиз форм все введенные Вами данные слетят нафик...

То, что Вы пытаетесь сделать - проявление лени. Не страдайте ерундой - проверяйте все поля сами, а не пытайтесь это повесить на компутвизформ...

А,а,а,а,а ... почему на собачьем языке работает ?

 

[Sandr]

Денис Кириченко

Что работает? На собачьем языке не компутвизформ...

 

[Guest]

Денис Кириченко

Что работает? На собачьем языке не компутвизформ...

Ну как что:

@If(@IsValid;
@Do(@Command([FileSave]); @Command([FileCloseWindow]));
@Return(""))

@IsValid - видь аналог "компутвизформ"

 

[Guest]

То, что Вы пытаетесь сделать - проявление лени. Не страдайте ерундой - проверяйте все поля сами, а не пытайтесь это повесить на компутвизформ...

Очень верное замечание. Лучше отказать от компутвизформ, потому что работает он криво

 

[Guest]

Очень верное замечание. Лучше отказать от компутвизформ, потому что работает он криво

Правильно ли я понимаю, компутвизформ проверяет. правильно ли ввидены даные в поля по условия, обозначеным в Объекте поля - "Проверка введенных данных".

 

[morpheus]

Компут вычисляет всё что есть вычисляеммое в форме )

 

[Sandr]

Правильно ли я понимаю, компутвизформ проверяет. правильно ли ввидены даные в поля по условия, обозначеным в Объекте поля - "Проверка введенных данных".

компутвизформ ничего не проверяет, он заставляет проверять все валидэйшн формулы на ваших полях и все компутет поля пересчитывает...

 

[Guest]

компутвизформ ничего не проверяет, он заставляет проверять все валидэйшн формулы на ваших полях и все компутет поля пересчитывает...

> валидэйшн формулы
другими словами это формулы которые прописаны в "Проверка введенных данных" (Объекте поля)

> компутет поля
а вот это что такое, пояните, pls.

 

[Sandr]

компутет - > computed -> вычисляемый (анг.)

 

[Guest]

Что бы создавать новую тему, я поспрашаю тут. Подкинь идею как при копировании документа, обнулять его некоторые поля.

 

[morpheus]

ну скопировать скриптом обнулить поля и сохранить документ

 

[Kee_Keekkenen]

сделай кнопку с агентом, который будет копировать выделенный документ (или создавать новый и добавлять нужные поля из старого)..

 

[Sandr]

перебрать все итемы и нужные удалить или очистить Способов море - важно где и как применять...

 

[Guest]

Может, кто сталкивался. Документ не в какую не хочет сохранять внесенные изменения. При том, что всем остальные документы, созданные в той же самой форме нормально редактируются. Шо за глюк

 

[morpheus]

в документе есть поле SaveOptions

 

[Sandr]

и его значение равно "0"