• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

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

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Пробовал, как:
Код:
If (cDoc.Responses) Is Nothing Then ...
так не получается :rolleyes:
 
G

Guest

#5
Денис Кириченко
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

Lotus team
04.07.2007
2 210
1
#6
Денис Кириченко
Странно, у всех работает, а у тебя нет <_<
Попробуй так:

Код:
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
 
G

Guest

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

Код:
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
Ух, шаман, заработало, спасибочки огромное :)
Правда, от спасибо пьян не будешь ;)
 

Omh

Lotus team
04.07.2007
2 210
1
#9
Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.
 
G

Guest

#10
Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.
А шо за фигня может происходить, во внедренном представлении не показывается суммарное значение столбца, когда в обычном представлении все есть ?!?!
 

Omh

Lotus team
04.07.2007
2 210
1
#11
А оно под той категорией, которую ты показываешь как single.
Сделай ещё категорию под той, по которой отбираешь.

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

Guest

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

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