Как определить есть ли у документ ответы

[Guest]

Пробовал, как:

If (cDoc.Responses) Is Nothing Then ...

так не получается

 

[morpheus]

IF cDoc.Responses.Count > 0 then

 

[Guest]

IF cDoc.Responses.Count > 0 then

Неа - Variant does not contain an object

 

[Sandr]

Денис Кириченко
cDoc не сохранен?

 

[Guest]

Денис Кириченко
cDoc не сохранен?

Странно, почему через cDoc.Save не хочет сохранять. Только uidoc.Save

Set uidoc = ws.CurrentDocument
Set сDoc = uidoc.Document

Call cDoc.Save(True, False)

If Not cDoc.Responses.Count > 0 Then Exit Sub

Когда сохраняю через uidoc.Save, так же ругается <_<

Неа не работает и для сохраненного тоже ругается

 

[Omh]

Денис Кириченко
Странно, у всех работает, а у тебя нет <_<
Попробуй так:

Function HasResponses(doc As NotesDocument) As Integer
On Error Goto Errh  

Dim rv As Integer

If doc Is Nothing Then Exit Function

Dim RespDc As NotesDocumentCollection
Set RespDc = Doc.Responses
If Not RespDc Is Nothing Then rv = (RespDc.Count > 0)

HasResponses = rv

Exit Function
errh:
'YOUR ERRORHANDLER
Exit Function
End Function

 

[Guest]

Денис Кириченко
Странно, у всех работает, а у тебя нет <_<
Попробуй так:

Function HasResponses(doc As NotesDocument) As Integer
On Error Goto Errh  

Dim rv As Integer

If doc Is Nothing Then Exit Function

Dim RespDc As NotesDocumentCollection
Set RespDc = Doc.Responses
If Not RespDc Is Nothing Then rv = (RespDc.Count > 0)

HasResponses = rv

Exit Function
errh:
'YOUR ERRORHANDLER
Exit Function
End Function

Ух, шаман, заработало, спасибочки огромное
Правда, от спасибо пьян не будешь

 

[morpheus]

Ух, шаман, заработало, спасибочки огромное
Правда, от спасибо пьян не будешь

+ 1 в рему господину Omh

Если чесно, просто резюмировал то что говорилось в самом начале!

 

[Omh]

Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.

 

[Guest]

Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.

А шо за фигня может происходить, во внедренном представлении не показывается суммарное значение столбца, когда в обычном представлении все есть ?!?!

 

[Omh]

А оно под той категорией, которую ты показываешь как single.
Сделай ещё категорию под той, по которой отбираешь.

И внимательнее посмотри на embedded view: что показывается?
Точнее, показывается ли категория?

 

[Guest]

А оно под той категорией, которую ты показываешь как single.
Сделай ещё категорию под той, по которой отбираешь.

И внимательнее посмотри на embedded view: что показывается?
Точнее, показывается ли категория?

Да все прикольно, только вот сумма показывается не внизу, а вверху
Напротива категоризированного поля.